opendialog, allowmultiselect, filename

[dde]

hey guys,

wie schaff ichs mit opendialog, die ausgewählten DATEIEN in eine Liste zu integrieren. Mir reicht nur der Code um die ausgewählten Dateien irgendwie anzusprechen. Opendialog1.Filename liefert nur das letzte ausgewählte. ich will aber alle ausgewählten...

thx i a

[Ratte]

HI,

die Lösung lautet: Opendialog1.files Darin sind alle Dateien enthalten (TStrings).

Ratte

[toms]

Hi,

So:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: Word;
begin
 if OpenDialog1.Execute then
 begin
   for i := 0 to OpenDialog1.Files.Count -1 do
    ListBox1.Items.Add(OpenDialog1.Files[i])
   end;
end;

oder so (verstreamte Version):

Delphi-Quellcode:

var
 s: TStream;
begin
 if OpenDialog1.Execute then
 begin
   s := TMemoryStream.Create;
   try
     OpenDialog1.Files.SaveToStream(s);
     s.Position := 0;
     ListBox1.Items.LoadFromStream(s);
   finally
     s.Free;
   end;
 end;

[Chris1986]

Hi,
geht nicht auch

Listbox1.Items := Opendialog1.files ?

MfG
Christian

EDIT:\\ Ja, geht

[toms]

@Chris1986: Klar, geht auch!

[Robert_G]

TOpenDialog.Files ist doch TStrings ,oder?
Irgendwie gefällt mir diese Zuweisung einer Instanz an eine andere nicht.
Es sollte zwar funktionieren, aber auf die Art sieht es irgendwie "hübscher" aus.

Delphi-Quellcode:

with OpenDialog do
begin
  if Execute then
    ListBox.Items.Assign(Files);
end;