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;