Goto

[FAlter]

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