Mehrere Dateien mit OpenDialog öffnen und in Listview eintra

[mlspider]

Und nun schließt sich mein nächstes Problem an. Man kann mit OpenDialog nach und nach Titel in einer ListView Kompo übergeben. Wie kann man das bei MultiSelect (OpenDialog) auf einem Schlag übernehmen?

Danke

[alcaeus]

Sieh dir mal TOpenDialog.Files an.

Greetz
alcaeus

[mlspider]

Mach ich

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

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

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

[alcaeus]

Zitat von mlspider:

Das Problem ist nur, das ich jeweils den gesamten Pfad Dateiname im Memo brauche.

Hast du dir schon mal ueberlegt, etwas in der Hilfe zu suchen ohne dass man dir den Suchbegriff sagt?
In OpenDialog1.Files[i] steht der komplette Dateiname inkl. Pfad

Greetz
alcaeus

Nur gut dass elektronische Referenzen keinen hohen Heizwert haben.......

[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

[mlspider]

Ich steige heute einfach nicht hinter.

[Steve]

Hi,

leider kann ich keine Gedanken lesen Was verstehst Du denn nicht? Warum nicht der Dateiname im Memo erscheint? Warum der Inhalt der Datei angezeigt wird? Warum Bush Präsident ist?

Gruß
Stephan

[mlspider]

Hi Steve,

Recht hast Du!!! Warum der Dateiname samt Pfad nicht erscheint.

[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