Anfängerfrage zu try und except

[alcaeus]

Zitat von Meflin:

in deinem beispiel müsste das wohl eher so heissen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  try 
  Zensur := StrtoInt (Edit1.text); 
  if Zensur = 1 then Form2.ShowModal; 
  label1.caption := 'Passwort richtig'
  else 
  label1.caption := 'Passwort falsch';
  except
  label1.Caption := 'Passwort ungültig'; 
  end; 
end;

Wohl eher so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  try 
    Zensur := StrtoInt (Edit1.text); 
    if Zensur = 1 then 
    begin
      label1.caption := 'Passwort richtig';
      Form2.ShowModal; 
    end
    else 
      label1.caption := 'Passwort falsch';
  except
    label1.Caption := 'Passwort ungültig'; 
  end; 
end;

Setze die Caption des Labels zuerst, denn ShowModal unterbricht die Ausführung der Unit bis das andere Form geschlossen wird. Außerdem hat Meflin wohl einen begin-end-Block vergessen, was zu einer satten Fehlermeldung beim else geführt hätte.

Greetz
alcaeus