Einem record eine procedure zuweisen?

[Tau]

Hallo Leute

hoffe ich habe die richtige Rubrik gewählt: -D

Ich habe einen Record dem ich eine Procedur zuweisen will.
Und auch die Procedure wieder ausführen lasen will.

Delphi-Quellcode:

 TMyRec = record
    NoEvent: Boolean;
    MyProce: ???????;
   end;

Procedure:

Delphi-Quellcode:

procedure DBSort(DataSet: TADOQuery);
begin
...
end;

jetzt meine Frage
1) wie muss ich die Deklaration vom Record machen.
2) und wie kann ich die Procedur wieder aufrufen?

hat jemand einen Tipp.

Tau

[arbu man]

mit eine record geht es glaub ich nicht nim lieber ein TObject

[Christian Seehase]

Moin Tau,

hier mal ein kleines Beispiel:

Delphi-Quellcode:

type
  TMyProc = procedure(parameter : integer);

  TMyRecord = record
    proc : TMyProc;
  end;

procedure PrintInt(AiValue : integer);
begin
  ShowMessage(IntToStr(AiValue));
end;

procedure TForm1.FormCreate(Sender: TObject);

var
  mr : TMyRecord;

begin
  mr.proc := PrintInt;
  mr.proc(1);
end;

[Luckie]

Aber wären dazu nicht Klassen besser geeignet?

[Tau]

Hallo Leute

@arbu man
danke für den Tipp, aber hättest du dafür ein Beispiel?


@Christian Seehase
schaut ganz gut aus das ganze hat leider nur einen kleinen Haken.
wenn ich dir procedure unter public deklariere bekomme ich leider einen Fehler
(Inkompatible Typen: Reguläre Procedure und Methodenzeiger).
ansonsten schaut die Sache ziemlich gut aus.

@Luckie
hättest du auch vielleicht ein Beispiel?

ich lerne gerne immer was dazu.

Ich finde dieses Forum einfach nur super.

Tau

[JasonDX]

Zitat von Tau:

schaut ganz gut aus das ganze hat leider nur einen kleinen Haken.
wenn ich dir procedure unter public deklariere bekomme ich leider einen Fehler
(Inkompatible Typen: Reguläre Procedure und Methodenzeiger).
ansonsten schaut die Sache ziemlich gut aus.

Das liegt wahrscheinlich daran, dass Prozedur <> Methode ist. Die Methode hat noch einen zusätzlichen, versteckten Parameter, nämlich den Instanz-Zeiger. Damit du eine Methode zuweisen kannst, einfach nur den Typen um ein kleines Stichwort erweitern:
TMyMethod = procedure(parameter : integer) of object; Zu OOP, also dem, was dir Luckie vorgeschlagen hat (und arbu man wahrscheinlich auch gemeint hat), gibt es massenweise Tutorials, die dir gut weiterhelfen werden. In der DP dürften welche rumliegen, im DSDT dürften afair auch welche schlummern, und spätestens Tante Google wird dir da gut weiterhelfen

greetz
Mike

[Tau]

@JasonDX

besten Danke für die schnelle Hilfe.

Bast sitzt woklt und hot Luft

Tau

[Luckie]

Zitat von Tau:

@Luckie
hättest du auch vielleicht ein Beispiel?

Klar: http://www.michael-puff.de/dirindex....phi/Tutorials/

Ich meine genau das macht doch eine Klasse aus, dass sie auch Methoden mitbringt, mit denen man die Daten der Klasse manipulieren kann.

[Tau]

Hallo Luckie

Danke für den Link. Werde mir die Tutorials gleich einmal zu gemühte führen.
Ist wieder mal Nahrung für die Grauen Zellen. Man verkalkt jahr viell zu schnell.


Tau