try + exceptions

[Chegga]

Hallo alle zusammen,

es geht um folgendes:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    Zensur := StrToFloat(Edit1.Text);
    if Zensur = 1 then Label1.Caption := 'sehr gut';
    if Zensur = 2 then Label1.Caption := 'gut';
    if Zensur = 3 then Label1.Caption := 'befriedigend';
    if Zensur = 4 then Label1.Caption := 'ausreichend';
    if Zensur = 5 then Label1.Caption := 'mangelhaft';
    if Zensur = 6 then Label1.Caption := 'ungenügend';
  except
    Label1.Caption := 'Quatsch!';
  end;
end;

Nun auf Tools, Umgebungsoptionen und jetzt eigentlich
unter Vorgaben die Einstellung Bei Exceptions anhalten
deaktivieren. In Delphi 7 gibt es aber unter Umgebungsoptionen
keine Vorgaben!! Wo finde ich nun Bei Exceptions anhalten??

MfG Marc

[Sharky]

Hai Chegga,

schalte mal unter "Tools - Debugeroptionen" die Interne Fehlersuche ab.

P.S.: Schaue dir auch mal Case an ;-)

[Chegga]

Hi Sahrky,

danke für deine Hilfe!! (Kam nur leider zu spät!)
Ich habs in der Zwischenzeit nach langem Suchen selber gefunden! :-D
Trotzdem ein großes DANKE

MfG Marc