Есть несколько полей, нужно создать ещё одно поле, в которое бы заносились результаты вычитания двух других полей. Другими словами поле Res = Zarplata1 - Zarplata2.
Создала ещё одно поле, называется 23, тип integer. В ОбъектИнспекторе, в Events создала событие OnGetText.
Собственно процедура:
procedure TForm1.Table1Field11GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text:=Table1Zarplata.Value - Table1Zarplata2.Value;
end;
Ругается, что Text это String, а разность - integer. Пробовала использовать функцию StrToInt, таким образом:
procedure TForm1.Table1Field11GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
StrToInt(Text);
Text:=Table1Zarplata.Value - Table1Zarplata2.Value;
end;
Всё равно ругается
Подскажите, пожалуйста, правильно ли я использую эту функцию, и если нет, то как правильно? Или может есть другие более простые способы? Заранее огромное спасибо! Надо очень срочно, сессия, завтра сдавать...
