Mehrere Dateien mit OpenDialog öffnen und in Listview eintra

[alcaeus]

Sieh dir doch mal deinen eigenen Code an:

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]);

        Reset(F);
        Readln(F, FirstLine);
        Memo1.Lines.Append(FirstLine);
        CloseFile(F);
      end;
end;

Du oeffnest alle angegebenen Dateien und schreibst deren erste Zeile ins Memo, und nicht deren Dateinamen. Siehe meinen Kommentar ein paar Beitraege weiter oben: OpenDialog1.Files[i]

Greetz
alcaeus