Prozeduren mit CASE-Anweisung aufrufen

[Rastaman]

Das liegt wohl einfach dadran, dass die Prozeduren nicht im Private Teil deklariert sind und gleichzeitig unter dem Aufruf stehen, deswegen sind sie unbekannt.

Also entweder du schreibst die beiden Prozeduren über den Aufruf, oder du deklarierst die Prozedur vorher im Private Teil.

Delphi-Quellcode:

  Private
    procedure p1;
    procedure p2;
[...]
procedure caseauswahl;
var
  x: Integer;
begin
  case x of
    1: p1;
    2: p2;
  end;
end;

Wichtig ist jetzt, wenn du die Prozeduren oben deklariert hast musst du sie wie folgt schreiben:

Delphi-Quellcode:

procedure TForm1.P1;
begin
[...]
end;

procedure TForm1.P2;
begin
[...]
end;

//Edit: Ach Gott damn, das is ja .NET ... Vielleicht klappts ja trotzdem