IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> String перевести в Integer
сообщение
Сообщение #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;


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


Гость






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

не пробовала?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






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

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

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


О, Вы волшебник)) как всё просто) огромное спасибо!
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 4.12.2021 0:06
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name