[solved]Zquery OnGetText method
lazarus / 16-Databases

----------------------------------------------------------------------
doniuzas · 2015-02-11 08:28

My query field always returning asfloat 1 or 2 (number)
I need change
if asfloat:=2  then asstring:='P'
if asfloat:=1 then asstring:='N'
How i can make this with:

procedure TForm1.zq1outputGetText(Sender: TField; var aText: string;
  DisplayText: Boolean);
begin
 ........
end;

?

----------------------------------------------------------------------
balazsszekely · 2015-02-11 08:55

Code: [Select]procedure TForm1.zq1outputGetText(Sender: TField; var
aText: string;
  DisplayText: Boolean);
begin
  DisplayText := True;
  case Trunc((Sender as TField).AsFloat) of
    1: aText := 'N';
    2: aText := 'P';
    else
       DisplayText := False;
  end;
end;

----------------------------------------------------------------------
doniuzas · 2015-02-11 09:45

thanks getmem