EAccessViolation ?? Warum

[Sprint]

@Schuster: Hast du schon mal was von der Funktion ExtractFileName gehört? Dann kannst dir den langen Part in deiner Btn_Datei_hinzufClick Methode sparen.

Delphi-Quellcode:

procedure TForm_Schaden.Btn_Datei_hinzufClick(Sender: TObject);
begin

  with OpenDialog_Datei do
  begin
    Title := 'Datei auswählen...';
    if Execute then
    begin
      Pfad := OpenDialog_Datei.FileName;
      Dateiname := ExtractFileName(Pfad);
      ShowMessage(Dateiname);
    end;
  end;

end;