hi!!

estma folgender beispiel code:

markieren

Delphi-Quellcode:

var proc = procedure( s:string);

procedure Test (s:string);
begin
end;

wie kann ich jetzt der Proc variable die procedure Test zuweisen?

einfach so
proc:=test;
geht ja net...

proc := @Test;

hab ich auch scho versucht... da meckert der aber rum das ne variable erforderlich ist

ich habs auch net ganz so genau wie in meinem bsp code gemacht.

markieren

Delphi-Quellcode:

 type TProc=procedure (var res);

 var proc = TProc;

 procedure Test (var res);
 begin
 end;

aber das sollte ja keinen unterschied machen...

So in etwa sollte es gehn... =)

zusammenfalten · markieren

Delphi-Quellcode:

Unit uProg;

Interface

Uses SysUtils;

Type
  TProg = Procedure( Var Res );

Procedure Machwas( Const Idx: Integer );

Implementation

Procedure Prog1( Var Res );
Begin
  // machwas 1
End;

Procedure Prog2( Var Res );
Begin
  // machwas 2
End;

Procedure Machwas( Const Idx: Integer );
Var pMW: TProg;
    HotteHue: Integer;
Begin
  Case Idx of
    1: pMW := Prog1;
    2: pMW := Prog2;
    Else pMW := Nil;
  End;
  If Assigned( pMW ) Then Begin
    pMW( HotteHue );
    // ...
  End;
  // ...
End;

end.

Achtung, wenn du Proceduren oder Funktionen von Klassen benutzt, gehört das so:

markieren

Delphi-Quellcode:

  //...
Type
  TProg = Procedure( Var Res ) Of Object;
  //...

Bye Christian

ja... ich benutz die von klassen... an dem "of object" lags

VIELEN DANK!!!!!!