Try als Bedingung benutzen

[Taralos]

Hallo,

ich habe folgendes Problem:

eine Real-Zahl kann bei meinem Programm zu groß werden und deshalb packe ich das ganze in Try..Except rein. Jetzt möchte ich noch eine Schleife drum herum machen und sagen er soll das solange machen bis "Try" funktioniert.

Also z.b. mit Until ... Aber was schreibe ich für "Bis Try funktioniert"?

[Christian Seehase]

Moin Taralos,

so könnte es gehen:

Delphi-Quellcode:

  while true do
  begin
    try
      // Hier der Exception auslösende Code
      break; // Wird bei einer Exception nicht ausgeführt
    except
      // was auch immer im Falle einer Exception passieren soll
    end;
  end;

[Taralos]

Danke für den Tip, werde das gleich mal ausprobieren.

Aber was für eine Funktion hat das "Break;"? Das ist mir nicht so ganz klar.

[Christian Seehase]

Moin Taralos,

damit wird, nach erfolgreicher, als exceptionfreier, Abarbeitung des try-Abschnitts, die While-Schleife verlassen, die durch das true ansonsten als Endlosschleife gemacht ist.

[Luckie]

Aber das ganze über try-except zu lösen, halte ich persönlich nicht für sehr sinnvoll. Jedes try verbraucht unmengen an CPU-Taktzyklen. Versuch lieber es über eine if-Bedingung zu lösen.

[Taralos]

@Luckie: Aber wie soll ich es mit if folgendes lösen:
Wenn StrToFloat schiefgeht dann ist x = 12,5?

[jbg]

Du kannst ja auch noch Val benutzen. Das Löst keine Exception aus.