try...except - Manuell in except springen

[DeddyH]

[OT] Ich habe zu Hause ein Buch zu Java, wo in einem Beispiel eine Datei folgendermaßen eingelesen wird (liebe Kinder, bitte nicht nachmachen):
- Datei öffnen
- try
- in einer Endlosschleife Zeile einlesen
- except
- Dateiende erreicht

Was soll man dazu noch sagen? [/OT]

[mkinzler]

Ich habe irgendwo auch einen Delphi-Text gesehen, der eine Schleifen-Steuerung programmiert hat. So was als dreckig zu bezeichen, wäre aber stark untertrieben.

[omata]

Zitat:

Zitat von DeddyH

Delphi-Quellcode:

exit;  //oder alternativ in einem else-Zweig weitermachen

Vielen Dank für dieses Kommentar. :hi:

[hamburcher]

Wie wär's mit einem GoTo, das ein globales :Label (nicht TLabel!) anspringt?

Delphi kann das :mrgreen:

[hamburcher]

Zitat:

Zitat von omata

Zitat:

Zitat von DeddyH

Delphi-Quellcode:

exit;  //oder alternativ in einem else-Zweig weitermachen

Vielen Dank für dieses Kommentar. :hi:

^ Der Kommentar ist nicht übel! Und viel besser als so manche "Signaturen" hier :drunken:

[DeddyH]

Ich bin mir nicht sicher, ob der Kommentar auch richtig verstanden wurde :gruebel:

[omata]

Meine Güte, jetzt wird hier wieder so ein Aufriss gemacht. Das war nicht meine Intention.
Ich habe mich persönlich über den Kommentar gefreut, weil er zeigt, dass hier wiedermal (wie so oft und im Prinzip immer) kein exit nötig ist. Das Problem kann strukturiert gelöst werden, es ist kein Sprung nötig.

Mehr war nicht und ich wollte hier nicht vom eigentlichen Problem ablenken.

[hamburcher]

Zitat:

Zitat von omata

Meine Güte,... weil er zeigt, dass hier wiedermal (wie so oft und im Prinzip immer) kein exit nötig ist. Das Problem kann strukturiert gelöst werden, es ist kein Sprung nötig.

Mehr war nicht und ich wollte hier nicht vom eigentlichen Problem ablenken.

Es ist echt SEHR wissenswert, daß man OHNE exit programmieren kann.

Man sucht in ein paar Milliarden Datensätzen einen bestimmten. Der Gesuchte ist Nummer Zwei. Was soll's, einfach bis zum Ende durchlaufen lassen ohne exit...

:wiejetzt:

[omata]

Schade, das du nicht verstanden hast worum es ging.

[sirius]

Yheeky wollte einfach wissen, wie man eine Exception wirft. Und nicht, ob und warum eine Exception langsamer ist als andere Möglichkeiten. Er hat ein Beispiel dafür aufgeschrieben und man könnte ihm jetzt mal die Lösung zeigen. Denn wir ihr wisst, ist es nicht immer möglich nur mit Ifs zu arbeiten.

Delphi-Quellcode:

try 
  if Form1.Label1.Caption <> 'Administrator' then 
    raise Exception.Create('Du bist kein Administrator');
    //du kannst/solltest dir auch eine eigene Exceptionklasse von Exception ableiten


except 
  on E:Exception do
    ShowMessage(e.message);
end;

Hier wäre jetzt noch ein Hinweis angebracht, dass das Auslösen einer Exception eine Weile dauert (aber auch nicht ewig lange).