Hi haentschman
Upps...Ja! Aber als ich dasDing anlegte, war ich mir über die Namensgebung nicht ganz klar; der Bezeichner ist doch etwas lang. Wobei mir vor allem für den Teil"...korrespondet" nichts kürzeres und Aussagekräftiges einfiel. Ein Ausschnitt aus der Felddeklaration des Datenmoduls:
Delphi-Quellcode:
FCategoryList: TDataObjectList<TQueryResultClass>;
// Enthält die Bilder einer bestimmten Kategorie
FCategoryBildList: TDataObjectList<TQueryResultClass>;
FMySQLCorrespondent : TMySQLCorrespondent;
FWICImage: TWICImage;
FContentmastertables: TStringlist;
FPerformanceSchemaTables: TStringList;
FSessionVarList : TStringlist;
FServerKorrespontent: TMySQLCorrespondent;
...
...und aus der Property-Abteilung
äh.. dem public-Abschnitt:
Delphi-Quellcode:
property Contentmastertables: TStringlist read GetContentmasterTables;
property PerformanceSchemaTables : TStringList read GetPerformanceSchemaTables;
property SessionVarList: TStringList read GetSessionVarlist;
property MySQLCorrespondent : TMySQLCorrespondent read FMySQLCorrespondent write FMySQLCorrespondent;
und zu guter(?)letzt aus dem Constructor des Datenmoduls:
Delphi-Quellcode:
procedure TFDMySQLDml.DataModuleCreate(Sender: TObject);
var LIndent : String;
begin
LIndent := ' - ';
FQueryResultList := TObjectList.Create;
TPicture.RegisterFileFormat('NEF','NEF Format',TWICImage);
FReportlist := TStringlist.Create;
FSessionVarList := TStringlist.Create;
// List := TObjectList<TNewObject>.Create(); TDataObjectList<TQueryResultClass>.
FCategoryBildList := TDataObjectList<TQueryResultClass>.Create();
FCategoryList := TDataObjectList<TQueryResultClass>.Create();
FPathList := TStringList.Create;
FServerKorrespontent := TMySQLCorrespondent.Create(Self);
...
OHH my god!!!
Gruss
Delbor
PS: Latürnich hab ich das gleich korrigiert und nicht FServerKorrespontent sondern FMySQLCorrespondent erstellt. Und da geschieht genau das, was Sir Rufo immer sagt: Kaum macht mans richtig...