listbox und tstring

[shmia]

Hier nochmals zum Kopieren.
Ich habe auch gleich deine mangelhafte Exception-Behandlung entfernt.

Delphi-Quellcode:

function DownLoadInternetFile(const Source, Dest : String): Boolean;
begin
   Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0
end;

procedure TForm1.Button3Click(Sender: TObject); 
var 
 Datei,Ziel:string; 
 dw: string; 
begin 
 if ListBox1.ItemIndex > -1 then 
 begin
   dw := ListBox1.Items[ListBox1.ItemIndex]
    
   Label1.Caption := 'Download gestartet'; 
   Label1.Refresh;
   Datei := 'http://redeyes.re.ohost.de/dowloads/'+'dw'+'.zip'; 
   Ziel := 'C:\'+'dw'+'.zip'; 
   if DownLoadInternetFile(Datei, Ziel) then
     Label1.Caption := 'Download ('+dw+') beendet'
   else
     Label1.Caption := 'Download ('+dw+') fehlerhaft';
  end;
end; 
end.

@DeddyH: das geht schief, da zwar die Zeiger zugewiesen werden,
aber die zusammengesetzten Strings nicht dauerhaft sind

[DeddyH]

Stimmt, ich hatte nur die letzten Postings angeschaut.

[ptown67]

Super es geht. :thumb:

Dankeschön an alle nochmal... :-D :-D :-D