![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
Kiskaaa |
![]() ![]()
Сообщение
#1
|
Гость ![]() |
Делаю БД в Дельфи, через Database Desktop.
Есть несколько полей, нужно создать ещё одно поле, в которое бы заносились результаты вычитания двух других полей. Другими словами поле 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;
Всё равно ругается ![]() Подскажите, пожалуйста, правильно ли я использую эту функцию, и если нет, то как правильно? Или может есть другие более простые способы? Заранее огромное спасибо! Надо очень срочно, сессия, завтра сдавать... |
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Text:=IntToStr(Table1Zarplata.Value - Table1Zarplata2.Value);
не пробовала? |
Kiskaaa |
![]()
Сообщение
#3
|
Гость ![]() |
|
![]() ![]() |
![]() |
Текстовая версия | 29.07.2025 15:58 |