If anweisung in Update geht nicht

[shmia]

Zitat von 4typen:

.. vlt kannste mir das mal pls verbessern

Ausnahmsweise:

Delphi-Quellcode:

if StrToInt(Label2.caption) > StrToInt(Label1.caption) then 
begin 
  if MessageDlg('Es ist ein Update vorhanden, wollen sie dieses herunterladen?', mtConfirmation, [mbyes, mbno], 0) = mrYes then 
  begin    // <=== HIER
    Datei := 'http://4typen.4t.funpic.de/update/Generator_neu.exe'; 
    Ziel := 'Generator_neu.exe'; 
    UrlDownloadToFile(nil, Datei, Ziel, 0, nil); 
    MessageDlg('Das Update wurde heruntergeladen!', mtInformation, [mbOK], 0); 
  end;    // <=== und HIER
end

Hier noch was zum Lesen: http://www.delphi-treff.de/delphi-styleguide/