Форум программистов [Powered by Invision Power Board]

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

Форум программистов > Delphi: Базы данных и репортинг > dbase

Автор: Olegan 16.11.2007, 10:47

Всех с Пятницццццой! smile

Подскажите как в dbase заменить значения True/False на Да/Нет в полях logical для отчета в QuickReport?

Спасибо!

Автор: pseud 16.11.2007, 11:03

Код


procedure TForm1.QRDBText1Print(sender: TObject; var Value: String);
begin
  if Value = 'True' then
    Value := 'Да'
  else
    Value := 'Нет';
end;

Автор: Olegan 16.11.2007, 11:40

хмм.. странно, не работает, пишет Нет и все тут. smile

Автор: Deniz 16.11.2007, 13:17

Olegan, запусти отладку и посмотри что в процедуре QRDBText1Print происходит.
Еще вариант обработать OnGetText у TField примерно таким же образом.

Автор: pseud 19.11.2007, 11:11

Цитата(Olegan @ 16.11.2007, 11:40

)

хмм.. странно, не работает, пишет Нет и все тут.

зайди в отладку в этой процедуре и глянь, что в Value находится, может надо так:

Код


procedure TForm1.QRDBText1Print(sender: TObject; var Value: String);
begin
  if UpperCase(Value) = 'TRUE' then
    Value := 'Да'
  else
    Value := 'Нет';
end;