In ListBox mehrere Dateienamen eintragen

Leuchtturm · Verfasst: So 22.10.06 16:26

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:

_________________
Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.

Regan · Verfasst: So 22.10.06 16:41

vielleicht so:

markieren

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 · Beiträge: 2195 XP D3Prof, D6Pers.

Oder So.
Bei OpenDialog im OB bei Options ofAllowMultiSelect auf True setzen.

markieren

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

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

Ehemaliges Mitglied Erhaltene Danke: 1

Oder noch einfacher, wenn du die Dateien in der LIstbox jedesmal komplett neu schreiben möchtest.

markieren

Delphi-Quelltext

1:
2:

if opendialog1.Execute then
  listbox1.Items:=opendialog1.Files;

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

markieren

Delphi-Quelltext

1:
2:

if opendialog1.Execute then
  listbox1.Items.AddStrings(opendialog1.Files);

Gruß Frank

Leuchtturm · Verfasst: Mo 23.10.06 09:31

Danke @ all

_________________
Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme