Datei öffnen

[[TP]Hawk274]

Bekomme immer I/O Error 6. Hier der Code:

Delphi-Quellcode:

    FileMode := fmOpenRead;
    try
      strFileName := GetReportPath + GetFileName;
      AssignFile(hFile, strFileName); //Datei zuweisen
      Reset(hFile); //Datei öffnen
      Readln(s); //Zeile lesen
      showmessage(s);
    except
//      on EInOutError do
      raise;
    end;

Wahrscheinlich liegt es daran das ich die Datei nicht geöffnet habe. Nur weiß ich nicht wie ich das mache. Muss aber dazu sagen das die Datei nicht über ein OpenDialog geöffnet wird, sondern ich mir den Dateinamen zusammenbaue, vorher schaue ob diese Datei existiert und wenn sie existiert dann möchte ich diese öffnen. Habe auch schon denn Befehl FileOpen gefunden. Doch dann gibt es noch OpenFile. Welchen Befehl soll man nun nehmen? Irgendwie unterscheiden sich auch die ganzen Befehlen bei den jeweiligen Beispielen der Datei Öffnen Befehle. Jetzt blick ich irgendwie nicht mehr durch ...
{EDIT}
Ich möchte eine Textdatei einlesen. Diese möchte ich zeilenweise auslesen. Jede eingelesene Zeile möchte ich dann auswerten und nach der Auswertung die Werte in einen StringGrid darstellen. Aber erst einmal möchte ich die Datei lesen können.
{/EDIT}

[Daniel B]

Hallo,

Du machst zwar die Datei auf, aber nicht wieder zu.
Das machst Du ja mit:
AssignFile(hFile, strFileName); //Datei zuweisen
Reset(hFile); //Datei öffnen
Ausserdem kannst Du die Datei einlesen und in eine Stringlist laden, so lässt es sich viel besser verarbeiten und die Datei muss nicht ständig offen sein während der ganzen Arbeit!

Grüsse, Daniel

[Touchdown]

Nimm eine TStringlist und fülle diese per loadfromfile.

[Catbytes]

Hi,

ein Formular und ein Button wird benötigt:

Code:

function GetSlash(Dir: string): string;
begin
  if Copy(Dir, Length(Dir), 1) <> '\' then
    Dir := Dir + '\';
  Result := Dir;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  OldFileMode: Byte;
  strFileName: string;
  hFile: TextFile;
  hFile_str: string;
  GetReportPath: string;
  GetFileName: string;
begin
  OldFileMode := FileMode;
  FileMode := fmOpenRead;
  strFileName := GetSlash(GetReportPath) + GetFileName;
  try
    AssignFile(hFile, strFileName);
    Reset(hFile);
    while not EOF(hFile) do
    begin
      ReadLn(hFile, hFile_str);
      if AnsiUpperCase(hFile_str) = 'EIN TOKEN' then
      begin
        // Hier geschieht was mit dem Token...
      end;
    end;
    CloseFile(hFile);
  except
    raise;
  end;
  FileMode := OldFileMode;
end;

Alternativ, wie schon von den Vorrednern erwähnt, kann man das ganze noch in eine TStringList speichern. Gerade bei Parsern muß so nicht jedesmal die Textdatei geöffnet werden...