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

> ВНИМАНИЕ!

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

 
 Ответить  Открыть новую тему 
> String перевести в Integer
Kiskaaa
сообщение 3.06.2008 20:15
Сообщение #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
Подскажите, пожалуйста, правильно ли я использую эту функцию, и если нет, то как правильно? Или может есть другие более простые способы? Заранее огромное спасибо! Надо очень срочно, сессия, завтра сдавать...
 К началу страницы 
+ Ответить 
volvo
сообщение 3.06.2008 20:18
Сообщение #2


Гость






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

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


Гость






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

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

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


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

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

 



- Текстовая версия 24.06.2025 2:10
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"