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