Código Delphi [-] procedure TForm1.SQLQFALLAGetText(Sender: TField; var aText: string; DisplayText: Boolean); begin aText:= Copy(TStringField(Sender).AsString, 1, MaxInt); end;
procedure TForm1.SQLQFALLAGetText(Sender: TField; var aText: string; DisplayText: Boolean); begin aText:= Copy(TStringField(Sender).AsString, 1, MaxInt); end;