Thema: FreePascal Try Except Problem

Einzelnen Beitrag anzeigen

AlexII

Registriert seit: 28. Apr 2008
1.707 Beiträge
 
FreePascal / Lazarus
 
#3

AW: Try Except Problem

  Alt 31. Jan 2015, 14:09
begin und end kennst Du?
Ja, aber es hilft trotzdem nicht.

Delphi-Quellcode:
procedure TForm1.OpenDialog1BitBtnClick(Sender: TObject);
var
  str: String = '';
begin
  str := Edit1.Caption;

  try
    if OpenDialog1.Execute then
    begin
      Edit1.Caption := OpenDialog1.FileName;
    end;
  except
    on E: Exception do
    begin
      MessageDlg('Fehler: Die Datei konnte nicht geladen werden!'
      + sLineBreak + sLineBreak + E.ClassName + sLineBreak + E.Message, mtError, [mbOk], 0);
    end;

    Edit1.Caption := str; // Hier der Fehler: Syntax error, "ON" expected but "identifier EDIT1" found
  end;
end;
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat