hallo
hab ein dummes problem
ich hab ein script gefunden das eine http txt datei in ein memo lädt, das möchte ich dazu nutzen die aktuellste programm version anzuzeigen, nur ich möchte die version in einem label und nicht in einem memo feld anzeigen lassen!
hier das script:
Delphi-Quellcode:
function download(
url, pfad:
string): Boolean;
begin
Result := UrlDownloadToFile(
nil, PChar(
url), PChar(pfad), 0,
nil) = 0;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
label4.Caption := memo1.lines;
if download('
http://www.server.net/version.txt',ExtractFilePath(Paramstr(0)) + '
datei.txt')
then begin
memo1.lines.loadfromfile(ExtractFilePath(Paramstr(0)) + '
datei.txt');
end
else ShowMessage('
Fehler beim Download!');
end;
wenn ich "label4.Caption := memo1.lines;" in FormCreate mache, sagt er immer:
[Error] Incompatible types: 'String' and 'TStrings'
Wie mache ich das jetzt ?
[edit=sakura]Delphi-Tags eingefügt. Mfg, sakura[/edit]