Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by UnixX,
27. Jul 2003
Ich meinte
var
I: integer;
begin
if opendialog1.Execute then
for i:=0 to opendialog1.Files.Count -1 do
begin
listbox1.AddItem(Extractfilename(opendialog1.Files.Strings ),nil );
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by UnixX,
26. Jul 2003
if OpenDialog1.Execute then
begin
for i := 0 to OpenDialog1.Files.Count-1 do
ListBox1.Additem(extractfilename(OpenDialog1.Files),nil);
end;
:D
Delphi-Tags eingefügt. Mfg, Daniel B
BB-Codes und SMileys eingeschaltet. Mfg, Daniel B