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;