Mit OpenDialog mehrere Dateien gleichzeitig hinzufügen

[cruso]

Hi!

Was ich gerne wissen würde ist, ob es möglich ist mit Hilfe des OpenDialogs mehrere Dateien auf einmal auszuwählen und wenn, wie?
Es soll wenn die Shift-Taste gedrückt wird (oder irgendwie anders) möglich sein mehrere Dateien auf einmal auszuwählen und wenn man dann auf "Öffnen" klick sollen die Pfade dieser Dateien einer ListBox angehängt werden.
Könnt ihr mir vllt helfen?



MfG
Cruso

[SirThornberry]

das geht mit einem OpenDialog. Du musst einfach bei den Optionen das Multiselect auf True setzen und dann kannst du über OpenDialog.Files (ich hoffe ich täusche mich nicht im Namen des Properties) die ausgewählten Dateien abfragen.

[cruso]

Zitat:

Zitat von SirThornberry

das geht mit einem OpenDialog. Du musst einfach bei den Optionen das Multiselect auf True setzen und dann kannst du über OpenDialog.Files (ich hoffe ich täusche mich nicht im Namen des Properties) die ausgewählten Dateien abfragen.

Also es kann sein, dass ich momentan Blind bin aber Multiselect finde ich nirgens.

[Flare]

Es heißt Options/ofAllowMultiSelect


Flare

[leddl]

Du bist zumindest teilweise blind :zwinker:
Die gesuchte Porperty befindet sich unter Options --> ofAllowMultiSelect ;)

//Edit: Holla, das war gerade noch nich da :gruebel:

[cruso]

Um eine Datei hinzuzufügen habe ich das bisher so geregelt:

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
try
  ListBox1.Items.Add(OpenDialog1.FileName);
  ListBox1.Items.SaveToFile(GAD+'Data.txt');
except
  Application.MessageBox('Die Datei konnte nicht geladen werden!','Unzulässige Benutzereingabe',16);
end;
end;

Wie muss ich das nun regeln?

[markusj]

Du findest unter Files eine StringList mit den Dateipfaden ... such dir raus welche du laden willst^^ *g*

mfG

Markus

[turboPASCAL]

Delphi-Quellcode:

procedure TFormX.ButtonClick...
var i: Integer;
begin
  OpenDialog1.Options := [ofReadOnly, ofAllowMultiSelect];

  if OpenDialog1.Execute then
  begin
   memo1.Lines :=  OpenDialog1.Files;

   //oder einzeln auslesen:
   // for i := 0 to  OpenDialog1.Files.Count - 1 do
   //   ... := OpenDialog1.Files[i];

  end;
end;

[cruso]

Danke für eure Hilfe! Es funktioniert.

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