Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi SQL - Property durchreichen (https://www.delphipraxis.net/201145-sql-property-durchreichen.html)

mcinternet 26. Jun 2019 16:36

Datenbank: MySQL • Version: 8.015 • Zugriff über: MyDAC

SQL - Property durchreichen
 
Hallo die Gemeinde,

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

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 26. Jun 2019 17:34

AW: SQL - Property durchreichen
 
Delphi-Quellcode:
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;


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:57 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz