Case AnsiIndexText -> Ergebnis verändern

[baumina]

Delphi bietet zwar ein Goto (da heißt das Label), ist aber eine grauenvolle Art zu programmieren und kann eigentlich immer umgangen werden. Trotzdem ein Beispiel mit Label:

Delphi-Quellcode:

 var
   i : Integer;

 label
   GotoLabel;

 begin
   for i := 1 to 10 do
   begin
     ShowMessage('i = '+IntToStr(i));

    if i = 4 then Goto GotoLabel;   // Conditionally exit the loop
   end;

   ShowMessage('The loop finished OK');
 GotoLabel:
   ShowMessage('Loop finished with i = '+IntToStr(i));
 end;

EDIT : Eine Art ein GoTo zu vermeiden ist, dass Du einfach eine Procedure an beiden Stellen aufrufst.