Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - In ListBox mehrere Dateienamen eintragen


Leuchtturm - So 22.10.06 16:26
Titel: In ListBox mehrere Dateienamen eintragen
Hi,
ich versuche in eine Listbox mehrere Dateinamen aus dem OpenDialog zuschrieben:

Delphi-Quelltext 
1:
2:
3:
4:
 
  if Opendialog1.Execute then
  begin
    ListBox1.Items.Add(OpenDialog1.Filename);
  end;

Ich weiß auch das es nicht funktionieren da ich ja bloß die ein ausgewählter Dateiname reinschreiben lasse.
Wie könnte ich jetzt alle ausgewählten dateienamen in die Listbox reinschreiben??
Leuchtturm

Mein Dank ist euch Gewiss :mrgreen:


Regan - So 22.10.06 16:41
vielleicht so:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
 
procedure TForm1.Button2Click(Sender: TObject);
var i:Integer;
begin
if Open1.Execute then
RichEdit1.Lines.AddStrings(Open1.Files);
For i:=0 to RichEdit1.Lines.Count-1 do
begin
Liste1.AddItem(RichEdit1.Lines.Strings[i],self);
end;
RichEdit1.Clear;
end;


Blackheart666 - So 22.10.06 17:12
Oder So.
Bei OpenDialog im OB bei Options ofAllowMultiSelect auf True setzen.

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
 
procedure TForm1.Button1Click(Sender: TObject);
var
 i:Integer;
begin
 if Opendialog1.Execute then
 begin
  for i:=0 to OpenDialog1.Files.Count-1 do
  Listbox1.Items.Add(OpenDialog1.Files.Strings[i]);
 end;
end;

Blackheart666


Delete - So 22.10.06 17:22
Oder noch einfacher, wenn du die Dateien in der LIstbox jedesmal komplett neu schreiben möchtest.

Delphi-Quelltext 
1:
2:
 
if opendialog1.Execute then
  listbox1.Items:=opendialog1.Files;


So kannst du Dateien anfügen. Erspart dir die Schleife.

Delphi-Quelltext 
1:
2:
 
if opendialog1.Execute then
  listbox1.Items.AddStrings(opendialog1.Files);


Gruß Frank


Leuchtturm - Mo 23.10.06 09:31
Danke @ all


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!