SQL - Property durchreichen

[scrat1979]

Property SQL[Idx:integer] : String read FGetSql write FSetSql;

Delphi-Quellcode:

Function FGetSql(Idx : Integer) : string
Begin
 Result := QueryXYZ.SQL[Idx];
End;

procedure FSetSQL(Idx:integer; value: string);
Begin
QueryXYZ.Sql[Idx] := value;
End;