Wie geht das mit den Methodenzeigern

[taaktaak]

Dann soll also ein vorhandenes Event OnAfterOpen erweitert/verändert werden?

[sebi87]

Also ursprünglich hab ich diese Procedure

Delphi-Quellcode:

procedure TJRK_GruppenForm.FormatOnGetMGNr(Sender: TField; var Text: String; DisplayText: Boolean);
begin
  Text := FormatFloat('000000', Sender.AsInteger);
end;

lokal definiert und hier aufgerufen

Delphi-Quellcode:

procedure TJRK_GruppenForm.QryMitgliederAfterOpen(DataSet: TDataSet);
begin
  Dataset.FieldByName('Mitgliedernummer').OnGetText := FormatOnGetMGNr ;
end;

Jetzt wollte ich diese Procedure in eine globale Unit Globals setzetn damit ich sie überall verwenden kann.
Aber es kommt dan immer der Fehler
[Fehler] JRK_Gruppen.pas(177): Inkompatible Typen: Methodenzeiger und reguläre Prozedur

[taaktaak]

Hmm, wäre es nicht der einfachste Weg, die Prozedur in der Unit zu belassen und im public-Abschnitt zu veröffentlichen?

[sebi87]

da ist nur das Problem das die Unit nicht immer vorhanden ist und ich somit nicht auf diese zugreifen kann.
Gibt es keine Möglichkeit diese auszulagern?

[Nuclear-Ping]

Für Datenbank-Sachen empfiehlt es sich, ein eigenes "Data Modul" zu haben.

[sebi87]

Wie meinst du das mit dem DataModul?

[Nuclear-Ping]

Ein DataModul kannst du über Datei -> Neu anlegen.

Da sollte man in Anwendungen, die über Datenbanken laufen, alle datenbankspezifischen Komponenten (TConnection, TQuery, TTable, ...) reinpacken. Es ist sozusagen ein Container, eine eigene Unit, eine eigene Klasse, aber keine Form.

Da kannst du auch deinen Handler dann unterbringen.