Fuction in Record??

[TitanNano]

Hi,
ist es irgend wie möglich eine Funktion in ein Record ein zu bauen??
Wenn ja dann wie

[wicht]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure MyFormFunc;
  public
    { Public-Deklarationen }
  end;

  TMyFunc = procedure() of object;

  TRec = record
    MyFunc: TMyFunc;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
  R: TRec;
begin
  R.MyFunc := MyFormFunc;
  R.MyFunc();
end;

procedure TForm1.MyFormFunc;
begin
  ShowMessage('asdf!');
end;

Edit: Ich glaube ich habe dich falsch verstanden... Lasse es trotzdem erstmal so stehen...

[mkinzler]

Ja aber erst in den neuesten Delphiversion. Sonst musst du halt die "alte" Pascal-OOP mit OBJECT verwenden

[himitsu]

Ab Delphi 2006 / Turbo Telphi ist sowas möglich ... selbe Syntax, wie bei Objekten.

Delphi-Quellcode:

type
  TRec = record
    MyFunc: TMyFunc;
    function test: Integer;
  end; 

function TRec.test: Integer;
begin
end;

[TitanNano]

das mit der Funktion klappt, doch beim definieren wenn ich den Ort angeben will an dem die Funktion liegt, kommt der Fehler "VisualWidow.pas(68): E2037 Deklaration von 'Layout' unterscheidet sich von vorheriger Deklaration".

Delphi-Quellcode:

 
procedure TVFVisualWindow.Layout.GetCorners(linksT, rightT, leftD, rightD: string);

ich habe delphi 2005 und ich hab das von wicht ausprobiert.

[uligerhardt]

Zitat von TitanNano:

das mit der Funktion klappt, doch beim definieren wenn ich den Ort angeben will an dem die Funktion liegt, kommt der Fehler "VisualWidow.pas(68): E2037 Deklaration von 'Layout' unterscheidet sich von vorheriger Deklaration".

Delphi-Quellcode:

 
procedure TVFVisualWindow.Layout.GetCorners(linksT, rightT, leftD, rightD: string);

ich habe delphi 2005 und ich hab das von wicht ausprobiert.

Na dann zeig doch mal die "vorherige Deklaration".

[Klaus01]

Zitat von TitanNano:

..
ich habe delphi 2005 und ich hab das von wicht ausprobiert.

siehe Post #4

Grüße
Klaus