listbox und tstring

[ptown67]

wie kann ich einen einzelnen tstring einer listbox als variable einstzen?

[DeddyH]

Es gibt keinen TString, nur String bzw. TStrings. Was möchtest Du genau machen?

[ptown67]

Hallo Danke erstmal für deine schnelle Antwort....


Ich möchte eine Variable "dw" einsetzen und möchte dass die Variable so heißt wie die Zeile die ich in der ListBox selectiert habe. Die Variable setze ich dann als Namen von der Zip-Datei die dann gedownloadet werden sollte ein. Also wenn ich in der Listbox einen Nahmen wähle soll der anstatt der Variable "dw" stehen damit mann verschiedene downloads machen kann...

[DeddyH]

Ich denke, Du meinst eine einfache Zuweisung. Das sollte so gehen:

Delphi-Quellcode:

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

[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,Ziel:PChar;
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...

[DeddyH]

Lass mal die Hochkommata um 'dw' weg.

[ptown67]

ich hab`s jetzt versucht aber egal wie ich den satz zum downloaden umbaue lädt er immer wieder nur eine dw.zip, die sich au8ch nicht entpacken lässt (2kb). Bei einer Variante hat er eine +dw+.zip am Ziel plaziert. Fällt dir vieleicht noch etwas ein was falsch sein könnte????

Oder wie ich dass anderst lösen könnte, dass immer das ***.zip archiv mit dem nahmen den ich in der Listbox ausgewählt habe geladen wird???

[jfheins]

Wenn du

Delphi-Quellcode:

Datei := 'http://redeyes.re.ohost.de/dowloads/'+'dw'+'.zip'; 
Ziel := 'C:\'+'dw'+'.zip';

schreibst, dann interpretiert er dw natürlich als zwei Buchstaben, die du gerne als Dateinamen hättest.

Probiers mal so:

Delphi-Quellcode:

Datei := 'http://redeyes.re.ohost.de/dowloads/' + dw + '.zip'; 
Ziel := 'C:\' + dw + '.zip';

Und lies dir mal ein Einsteigertutorial durch ;)

[ptown67]

Wenn du mir einen Link von einen Einsteiger TUT in dem das Erklärt wird postest dann les ich mir dass gerne durch. :wink:

Zu deiner Lösung:

Wenn ich es so schreibe dann kommt folgende Fehlermeldung:

[Pascal Fehler] Unit1.pas(69): E2010 Inkompatible Typen: 'string' und 'PAnsiChar'
[Pascal Fehler] Unit1.pas(70): E2010 Inkompatible Typen: 'string' und 'PAnsiChar'
[Pascal Fataler Fehler] Project1.dpr(5): F2063 Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

und wenn ich "dw" als PChar neu deklarier dann kommt eine Fehlermeldung bei der Zeile

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

Trotzdem Danke für deine Antwort...

Weiß jemand was ich vllt noch probieren könnte???

[DeddyH]

Delphi-Quellcode:

Datei := PChar('http://redeyes.re.ohost.de/dowloads/'+dw+'.zip');
Ziel := PChar('C:\'+dw+'.zip');