Procedure beenden

[oki]

Zitat von Fussball-Robby:

Zitat von Forlan:

Delphi-Quellcode:

if pos = 1 then 
begin
  button1.Top :=  120;
  button1.Left := 8;
  pos := 2;
  exit;
end;

so sollte es auch besser aussehen...[/Edit]

Und noch besser:

Delphi-Quellcode:

case pos of
  1:begin
      button1.Top :=  120;
      button1.Left := 8;
      pos := 2;
      exit;
    end;
  2:begin
      //usw..

(Wie Dax bereits sagte)

Das Exit erscheint mir aber in beiden Varianten recht überflüssig. Einfach das Pferd von hinten aufzäumen.

Delphi-Quellcode:

case Pos of
  4 : begin
      ...
  end;
  ...
  1 : begin
      ...
  end;
  5 : begin
      ...
  end;
end;

Gruß oki