Update Abfrage...

[SirThornberry]

welche werte haben label3.caption und label4.caption

40 ist zum Beispiel kleiner als 5 wenn man strings vergleicht. Hast du das bedacht?

für den Rest der Welt das ganze nochmal eingerückt:

Delphi-Quellcode:

procedure Tform1.UpdateProg; 
begin 
  begin 
    if (Label4.Caption = Label3.Caption) then 
    begin     //auf Gleichheit prüfen 
      showmessage('Gleiche Version, kein neues Update verfügbar!'); 
      SpeedButton1.Enabled:=False; 
      Application.Terminate; 
    end 
    else 
    begin 
      if Label4.Caption < Label3.Caption then 
      begin 
        showmessage('Neues Update verfügbar!'+#13#10+'Um es herunterzuladen, klicken Sie auf Update!'); 
      end; 
    end; 
  end; 
end;

und nochmal kurz gefasst:

Delphi-Quellcode:

procedure Tform1.UpdateProg; 
begin 
  if (Label4.Caption = Label3.Caption) then 
  begin     //auf Gleichheit prüfen 
    showmessage('Gleiche Version, kein neues Update verfügbar!'); 
    SpeedButton1.Enabled:=False; 
    Application.Terminate; 
  end 
  else if Label4.Caption < Label3.Caption then 
      showmessage('Neues Update verfügbar!'+#13#10+'Um es herunterzuladen, klicken Sie auf Update!'); 
end;