If anweisung in Update geht nicht

[4typen]

Also ich habe mir mal die Updatefunktion im Forum angeschaut und haben eine Abfrage gemacht wenn ein Update vorhanden ist. Egal ob ich bei dem Dialog 'ja' oder 'Nein' drücke es wird immer beides ausgeführt. Erst zeigt er 'Das Update wurde heruntergeladen' inna Dialogbox an(bei then) und dann löscht er die heruntergeladene Datei(bei else).

Delphi-Quellcode:

procedure TForm1.StatusBar1Click(Sender: TObject);
var List: TStrings;
begin
  try 
    Datei := 'http://4typen.4t.funpic.de/update/update.txt';
    Ziel := 'update.txt';
    UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
    except
    ShowMessage('Ein Fehler ist aufgetreten!'); 
end;
begin 
List := TStringList.Create;
try
    List.LoadFromFile('update.txt'); 
    if List.Count>0 then
    Label2.Caption:=List[0];
finally
  List.Free;
end; 
end;
begin
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
    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
else
MessageDlg('Es ist kein Update nötig, die Software ist auf dem neusten Stand.', mtInformation, [mbOK], 0);
DeleteFile('update.txt');
DeleteFile('Generator_neu.exe');
end;
end;

[shmia]

Du hast Begin und End bei deinem If-Statement vergessen!!
Es hat schon seinen Grund weshalb man Sourcecode sauber einrücken soll.

[4typen]

also ich hab mal mehr code eingefügt vlt kannste mir das mal pls verbessern

[shmia]

Zitat:

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/

[nuclearping]

Zitat:

Zitat von 4typen

also ich hab mal mehr code eingefügt vlt kannste mir das mal pls verbessern

Versuch mal so'n Code wie deiner da oben nach 6 Monaten, wo du nicht mehr drauf geschaut hast, wieder zu verstehen und zu entziffern. Da fällt dir dann meist auch von selbst auf, dass eine klare Einrückung viel Wert ist.