Mit OpenDialog mehrere Dateien gleichzeitig hinzufügen

[danku]

und wie funktioniert das bei einer stringgrid (nur 1column) wenn man mehrere dateien über einen topendialog1 in die cells "klickt" ?
wäre eine tstringlist besser?


Prinzip/Aufbau:

tmemo -> Pfad/Ordner der Datei
tbutton: öffnet opendialog1 (ofmultiselect TRUE)
tstringgrid: zeigt ergebnis von opendialog1 an

Delphi-Quellcode:

procedure Tfmformat.bopenClick(Sender: TObject);
var pfad:string;
i,s: byte;

{ OPENDIALOG1 Options:
 - ofNoDerencesLinks - Path ausstellen
 - ofNoLongName      - .. // nur in Verbindung mit ofOldStyleDialog
 - ofNoReadOnlyReturn   Zeigt eine Fehlermeldung an, wenn schreibgeschützte Datei }

begin


//****************STRINGGRID********************
       if OpenDialog1.Execute then
            begin
       //   pfad:= OpenDialog1.FileName;
       //   AddFiles(sl, OpenDialog1.FileName);

//Füllen aus TOpendialog1
 for i := 0 to  OpenDialog1.Files.Count - 1 do           
 sgfiles.cells[0,1+i]:= OpenDialog1.Filename;             

//Sobald 2xDateien gewählt werden, wird nur 1 aber 2x in die TStringgrid geschrieben



 {//repeat
 while
 sgfiles.cells[0,i+1]=opendialog1.Files.strings[i] do
 inc(i);
 //Neue Zeile einfügen
 sgfiles.RowCount:=sgfiles.RowCount+1;}


 end;
 end;