Wie geht das mit den Methodenzeigern

[sebi87]

Hallo Leute,

ich bin am verzweifeln, ich hab eine Methodenzeiger
type TFormatOnGetText = procedure(Sender: TField; var Text: String; DisplayText: Boolean) ; dann hab ich eine Variable definiert
_FormatOnGetText: TFormatOnGetText ; Ok soweit alles klar und jetzt will ich diesem Zeiger eine Procedure

Delphi-Quellcode:

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

übergeben aber das bekomme ich nicht hin.
Kann mir da jemand helfen?


Grüßle Sebastian

[sirius]

Zitat von sebi87:

Hallo Leute,

ich bin am verzweifeln, ich hab eine Methodenzeiger

Nein, das ist ein Funktionszeiger.

Zitat von sebi87:

dann hab ich eine Variable definiert

ok.

Zitat von sebi87:

Ok soweit alles klar und jetzt will ich diesem Zeiger eine Procedure

Was willst du jetzt übergeben? Methode oder Prozedur/Funktion?

[sebi87]

Zitat:

Nein, das ist ein Funktionszeiger.

Ok das würde erkären waurm das nicht geht.

Wie muss ich den Zeiger definieren wenn ich die Procedure

Delphi-Quellcode:

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

Wie muss ich dann den Zeiger auf die Procedure definieren?

Grüßle Sebastian

[xaromz]

Hallo,

Zitat von sebi87:

Ok das würde erkären waurm das nicht geht.

nein, tut ess nicht.

Zitat von sebi87:

Wie muss ich dann den Zeiger auf die Procedure definieren?

Die Definition des Zeigers ist schon korrekt. Du hast eine Prozedur und einen Prozedur-Zeiger. Oder ist das in Wirklichkeit eine Methode? Dann musst Du den Pointer so schreiben:
type TFormatOnGetText = procedure(Sender: TField; var Text: String; DisplayText: Boolean) of object; Gruß
xaromz

[sebi87]

Und wie übergebe ich diesem Procedurzeiger
type TFormatOnGetText = procedure(Sender: TField; var Text: String; DisplayText: Boolean) (Ist doch ein Procedurzeger)
meine Procedure?

[Dani]

Vor allem solltest du deiner Prozedur mal nen Namen geben:

Delphi-Quellcode:

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

{...}

_FormatOnGetText := MachWas;

[Nuclear-Ping]

Zum Beispiel:

Delphi-Quellcode:

type
  TForm1 = class (TForm)
    // ...
  private
    procedure MyFormatOnGetText(Sender: TField; var Text: String; DisplayText: Boolean);
    // ...
  end;

// ...

implementation

procedure TForm1.MyFormatOnGetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
  // ... Dein Code
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  _FormatOnGetText := MyFormatOnGetText;
end;

Wenn _FormatOnGetText eine globale Variable ist, mußt du glaube oben bei der Deklaration das "... of object" weglassen und die Prozedur aus der Klasse rausnehmen.

[taaktaak]

Moin, Moin,
hast du nicht mit TFormatOnGetText einen neuen Ereignistyp deklarieren wollen, der deine Variable _FormatOnGetText lesen/schreiben soll? Wenn dem so ist, dann fehlt doch die published-Deklaration

Delphi-Quellcode:

published
  property OnGetText : TFormatOnGetText read _FormatOnGetText  write _FormatOnGetText

Oder habe ich das jetzt falsch verstanden?
Gruß Ralph

[Muetze1]

Zitat von Nuclear-Ping:

Wenn _FormatOnGetText eine globale Variable ist, mußt du glaube oben bei der Deklaration das "... of object" weglassen und die Prozedur aus der Klasse rausnehmen.

Der letzte Teil stimmt, aber es hat nichts damit zu tun, ob es als globale Variable oder lokal definiert ist zu tun.

[sebi87]

Allso
was ich eigentlich machen wollte, einen Globalen DB-Handler schreiben der die Ausagbe meiner Datenbank bein AfterOpen Ereignis der Query Formatiert.