Procedure Problem

[DGL-luke]

NEIN, das geht auf gar keinen fall.

Allerdings gibt es dafür overload...


Nuja...

Delphi-Quellcode:

type
  TZweigProc = procedure of object;

  TMyAbZweig = class
    public
      SprungInsUngewisse: TZweigProc;
      contructor Create;
    private
      procedure A;
      procedure B;
      procedure C;
    end;

implementation

procedure TMyAbZweig.Create;
begin
  if RandSeed = 0 then Randomize;

  case Random(3) of
    0: SprungInsUngewisse := A;
    1: SprungInsUngewisse := B;
    2: SprungInsUngewisse := C;
  end;
end;

procedure TMyAbzweig.A;
begin
  ShowMessage('A');
end;

procedure TMyAbzweig.B;
begin
  ShowMessage('B');
end;

procedure TMyAbzweig.B;
begin
  ShowMessage('B');
end;

Un jetzt bitte sehr erzeugen und SprungInsUngewisse aufrufen:

Delphi-Quellcode:

with TMyAbZweig.Create do
  SprungInsUngewisse;

Kannst du damit was anfangen?