Форум: "Начинающим";
Текущий архив: 2007.05.27;
Скачать: [xml.tar.bz2];
Вниз
DisplayFormat Найти похожие ветки
← →
vitv © (2007-05-07 17:27) [0]Создал поле. Задал 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;
← →
Правильный Вася (2007-05-07 17:33) [1]
> Не пашет....
не сеет, не жнет
только молотит, по голове
← →
sniknik © (2007-05-07 17:35) [2]> Не пашет....
оно не пашет, оно сеет...
> procedure TDataModule25.PodscotPravProcentGetText(Sender: TField;
> ...
перекрыл обработку на свою и жалуешься, что стандартное не работает? молодец! следующим шагом сам ремонтируй себе машину и жалуйся на некачественный ремонт на автосервис... (можно неустойку потребовать ;о))
← →
vitv © (2007-05-07 17:37) [3]
> sniknik © (07.05.07 17:35) [2]
> > Не пашет....оно не пашет, оно сеет... > procedure TDataModule25.
> PodscotPravProcentGetText(Sender: TField;> ...перекрыл обработку
> на свою и жалуешься, что стандартное не работает? молодец!
> следующим шагом сам ремонтируй себе машину и жалуйся на
> некачественный ремонт на автосервис... (можно неустойку
> потребовать ;о))
Сделать его CalcField?
← →
vitv © (2007-05-07 17:40) [4]Или при передаче строки задать её формат?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.05.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.042 c
