[solved]Zquery OnGetText method

[doniuzas]

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]

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]

thanks getmem