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 // <>, nicht <
begin
showmessage('Neues Update verfügbar!'+#13#10+'Um es herunterzuladen, klicken Sie auf Update!');
end;
end;
end;
end;
siehe qt
€dit: ICH SCHWÖRE roter kasten hat net gefunzt ^^
ach sooo du willst wissen obs kleiner ist:
if StrToInt(label3.caption) < StrToInt(label4.caption)