Mehrere Dateien mit OpenDialog öffnen und in Listview eintra

[Steve]

Zitat von mlspider:

OK, habe jetzt einfach mal den Code übernommen.

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
  I: integer;
  F: TextFile;
  FirstLine: string;
begin
 OpenDialog2.Options := [ofAllowMultiSelect, ofFileMustExist];
  if OpenDialog2.Execute then
    with OpenDialog2.Files do
      for I := 0 to Count - 1 do
      begin
        AssignFile(F, Strings[I]); // << i-te Datei wird geöffnet

        Reset(F);
        Readln(F, FirstLine); // << erste Zeile der i-ten Datei wird eingelesen
        Memo1.Lines.Append(FirstLine); // << erste Zeile der i-ten Datei wird an Memo.Lines angehängt
        CloseFile(F); // << i-te Datei wird geschlossen
      end;
end;

Das Problem ist nur, das ich jeweils den gesamten Pfad Dateiname im Memo brauche. Also nicht den Inhalt der Datei.

Warum liest Du aus der Datei, wenn Du nur den Dateinamen, aber nicht den Inhalt willst?
Siehe Kommentare im Source


Gruß
Stephan