Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ String перевести в Integer

Автор: Kiskaaa 4.06.2008 0:15

Делаю БД в Дельфи, через 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;


Всё равно ругается mega_chok.gif
Подскажите, пожалуйста, правильно ли я использую эту функцию, и если нет, то как правильно? Или может есть другие более простые способы? Заранее огромное спасибо! Надо очень срочно, сессия, завтра сдавать...

Автор: volvo 4.06.2008 0:18

Text:=IntToStr(Table1Zarplata.Value - Table1Zarplata2.Value);

не пробовала?

Автор: Kiskaaa 4.06.2008 0:23

Цитата(volvo @ 3.06.2008 20:18) *

Text:=IntToStr(Table1Zarplata.Value - Table1Zarplata2.Value);

не пробовала?


О, Вы волшебник)) как всё просто) огромное спасибо!