Entwickler-Ecke

Dateizugriff - mehrere Dateien über multiselect öffnen


infomio - Mo 07.04.03 16:07
Titel: mehrere Dateien über multiselect öffnen
Hallo ihr,

ich glaub ich stell mich mal wieder an...

Also. OpenDialog, Multiselect = True.

Jetzt will ich einen Datei nach der anderen abarbeiten, die der user ausgewählt hat. über OpenDialog.Files.Count krieg ich die richtige Anzahl raus. Aber über LoadFromFile(OpenDialog.Filename) öffnet der mir nur die letzte Datei!!! ????

Weiß des jemand??? :shock:


teebee - Mo 07.04.03 16:21

Du musst Dich mit einer Schleife durch die Eigenschaft 'Files' arbeiten:


Quelltext
1:
2:
3:
4:
5:
6:
7:
With OpenDialog Do 
  For i := 0 to Files.Count-1 Do Begin
    // erst einen Container erzeugen
    MyFile[i] := TStringList.Create; 
    // dann File laden
    MyFile[i].LoadFromFile(Files[i]);
  End;


(Ohne Fehlerbehandlung)

Ungetestet, sollte zumindest ein Ansatz sein...

mfg, teebee