listbox und tstring

[ptown67]

Ich denke so in etwa müsste dass sein. Ich kann das programm ausführen und benutzen aber er speichert immer nur eine dw.zip in das angegebene archiv. Hier mal mein Code


[/quote] procedure TForm1.Button3Click(Sender: TObject);
var
Datei,ZielChar;
dw: string;
begin

if ListBox1.ItemIndex > -1 then
dw := ListBox1.Items[ListBox1.ItemIndex];

Label1.Caption := 'Download gestartet';
try
Datei := 'http://redeyes.re.ohost.de/dowloads/'+'dw'+'.zip';
Ziel := 'C:\'+'dw'+'.zip';
UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
Label1.Caption := 'Download beendet';
except
showmessage('Download abgebrochen');
end;
end;
end.[quote]


Ich hoffe du kannst mein Fehler eventuell sehen....

Danke jetzt schon...