SQL - Property durchreichen

[mcinternet]

Hallo die Gemeinde,

ich stehe da grade mal wieder wieder der Ochs vorm Berg - es ist wohl einfach zu heiß.

Ich habe ne Klasse TTempQuery, welche eine Temporäre Query mit allen möglichen Properties erzeugt:
(Auf den Code der einzelnen Klassenproceduren/Funktionen verzichte ich hier mal, ich denke jeder weiß, was dort steht)

Code:

  Type TTempQuery = Class
    private
      feof : Boolean;
      fRecordCount : Integer;
      fRowsAffected : Integer;
      fqry : TdllQuery; // abgeleitet von TMyQuery - TQuery

    Public
      constructor Create(aSqlText : String; aAction: TQryAction; sConn : TDllConnection);
      destructor  Destroy; Override;
      function FieldByName(const FieldName: string): TField;
      procedure Open;
      procedure Close;

    Published
      property eof         : boolean read feof;
      property RecordCount : Integer read fRecordCount;
      property RowsAffected : Integer read fRowsAffected;
      property qry         : TdllQuery read fqry write fqry;

  end;

nun möchte ich dort die Property SQL (TStrings) durchreichen.

wie mache ich das????


beste Grüße aus dem Odenwald

mcinternet

[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;