Textdatei von einem Pfad in ein Programm laden

[Mojito]

Hallo liebe Delphi Freunde,

heute habe ich das Problem, dass sich eine Textdatei nicht in mein geschriebenes Programm laden lässt. Hier der Code:

Delphi-Quellcode:

procedure TFrmMain.Importieren(Sender: TObject);
var
  textdatei: string;
begin
  OpenDialogImport.InitialDir := ExtractFilePath(Application.ExeName) + '..\..\';  //Verzeichnis öffnen
  if OpenDialog.Execute then
  begin
    textdatei:= OpenDialogImport.FileName;
    importTextFile(textdatei);
  end;
end;

Beim Laden einer Textdatei erhalte ich die E/A-Fehler 6. Wenn ich den Debugger laufen lasse dann fällt auf, dass filename kein Wert zugewiesen wird. Was mag das Problem sein??

Vielen Dank für eure Hilfe

[Sir Rufo]

Zitat von Mojito:

Delphi-Quellcode:

procedure TFrmMain.Importieren(Sender: TObject);
var
  textdatei: string;
begin
  OpenDialogImport.InitialDir := ExtractFilePath(Application.ExeName) + '..\..\';  //Verzeichnis öffnen
  if OpenDialog.Execute then // willst du wirklich DIESEN Dialog starten?
  begin
    textdatei:= OpenDialogImport.FileName;
    importTextFile(textdatei);
  end;
end;

Evtl. wäre es hilfreich, den richtigen Dialog zu starten

[Mojito]

Jop! Immer diese Feinheiten