Delphi-Version: XE8
Ganz banale Events - und trotzdem mach ich wohl demnächst die Schraube
Hi zusammen
Per eigenen ProgressDlg zeige ich den Fortgang an, wenn mehrere Datensätze in meine DB eingefügt weredn. Bislang hatte ich etwas "ganz raffiniertes" - der Dialog zeigt mir an wieviele
Delphi-Quellcode:
Die Deklaration des Eventyps hier im Datenmodul:
if i = FPathList.Count - 1 then
begin CInsertTime := GetTickCount - startTime; // + 'ms'; if Assigned(FOnInsertedTime) then //<== Dieses Event soll von CM_First abgefangen werden und FOnInsertedTime(Self,CInsertTime); //<== in der Taskleiste dieser Form im Sekundenformat ausgegeben werden. end;
Delphi-Quellcode:
Die Hauptform soll das Event abfangen und die benötigtee Zeit in die Statusbar schreiben:
TInsertedTimeEvent = procedure(Sender:TObject; const CInsertTime: Cardinal) of Object;
... FOnInsertedTime : TInsertedTimeEvent; ... property OnInsertedRecord : TInsertRecordEvent read FOnInsertedRecord write FOnInsertedRecord;
Delphi-Quellcode:
Und die Zuweisung im OnCreate der Hauptform:
procedure DoInsertTime(Sender : TObject; CInsertTime : Cardinal);
... ... procedure TCM_First.DoInsertTime(Sender : TObject; CInsertTime : Cardinal); begin Self.StatusBar1.Panels[0].Text := IntToStr(CInsertTime) end;
Delphi-Quellcode:
Bei der Zuweisung oben blockt delphi wegen ungleicher Parameter die Compilierung ab.
begin
FProcedureReport := TStringList.Create; ApplicationManager := TWinManager.Create(CM_First); FDMySQLDml:= TFDMySQLDml.Create(Self); ... ... ... FDMySQLDml.OnInsertTime := Self.DoInsertTime; Was, zum Klabautermann, hab ich übersehen? Gruss Delbor |
AW: Ganz banale Events - und trotzdem mach ich wohl demnächst die Schraube
In der Methode fehlt das const beim 2. Parameter
|
AW: Ganz banale Events - und trotzdem mach ich wohl demnächst die Schraube
Ich kaufe ein "const" und möchte lösen. Sorge mal dafür, dass die Signaturen exakt übereinstimmen.
|
AW: Ganz banale Events - und trotzdem mach ich wohl demnächst die Schraube
Hi zusammen
Zitat:
Zitat:
Hier zuständig wäre und steht so auch (eine Zeile tiefer) in der Deklaration: Zitat:
Zitat:
Gruss Delbor |
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:11 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