| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

DisplayFormat

vitv ©   (2007-05-07 17:27:00) 

Создал поле. Задал DisplayFormat
#.00.
Не пашет....

Значение поля вычисляю так:

procedure TDataModule25.PodscotPravProcentGetText(Sender: TField;
 var Text: String; DisplayText: Boolean);
 var
 f:double;
begin
if DataModule25.PodscotPrav.fieldbyname('f_3').asinteger=0 then

else
begin
f:=((DataModule25.PodscotPrav.fieldbyname('f_1').asinteger)/(DataModule25.PodscotPrav.fieldbyname('f_3').asinteger)*100);
Text:=floattostr(f);
end;

procedure TDataModule25.PodscotPravProcentSetText(Sender: TField;
 const Text: String);
begin
Sender.AsString:=text;
end;

---

vitv   (2007-05-07 17:40:00) [1]

Или при передаче строки задать её формат?

---

vitv   (2007-05-07 17:37:00) [2]

> sniknik ©   (07.05.07 17:35) [2]
> > Не пашет....оно не пашет, оно сеет...  > procedure TDataModule25.
> PodscotPravProcentGetText(Sender: TField;> ...перекрыл обработку
> на свою и жалуешься, что стандартное не работает? молодец!
>  следующим шагом сам ремонтируй себе машину и жалуйся на
> некачественный ремонт на автосервис... (можно неустойку
> потребовать ;о))

Сделать его CalcField?

---

sniknik   (2007-05-07 17:35:00) [3]

> Не пашет....
оно не пашет, оно сеет...  

> procedure TDataModule25.PodscotPravProcent GetText(Sender: TField;
> ...
перекрыл обработку на свою и жалуешься, что стандартное не работает? молодец! следующим шагом сам ремонтируй себе машину и жалуйся на некачественный ремонт на автосервис... (можно неустойку потребовать ;о))

---

Правильный Вася   (2007-05-07 17:33:00) [4]

> Не пашет....

не сеет, не жнет
только молотит, по голове

---

Наверх