Hi,
Wenn, dann gib den Labels wenigstens Namen und nicht Nummern
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
label
Blubb;
begin
goto Blubb;
ShowMessage('Wird übersprungen.');
Blubb: ShowMessage('Blubb');
end;
Die sagen schonmal mehr aus als eine Zahl.
Ansonsten versuche nochmal, ohne Labels klarzukommen. Hört sich irgendwie nach Schule an - ich schaffe es zumindest meistens, Ausnahmeregelungen zu bekommen, z. B. Listen statt mit record und Zeiger gleich als Klassen zu implementieren, desgl. Bäume.
Allerdings hatten wir NIE GoTo in der Schule und selbst unsere Lehrer wissen, dass man GoTos nicht verwenden sollte (als eine Schülerin es mal tat, haben sie ihr das gesagt), auch, wenn sie nicht mal Result verwenden und Arrays als Feld bezeichnen, obwohl Anordnung, Aufstellung, oder - im Sinne der Informatik - Datenreihe viel besser passen würden.
[
ot]
Meiner Definition nach ist sowas ein Feld:
Delphi-Quellcode:
type
TBlaBlubb = class
private
Feld: Typ; // <-- das da (privates Feld)
public
Flur: Typ; // <-- das da (öffentliches Feld)
end;
[/
ot]
Mfg
FAlter