Foros Club Delphi - Ver Mensaje Individual - ¿como hago para comprobar si un nº de versión es mayor o menor?

rgstuamigo · #2 20-01-2010

Asi:

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var v1,v2:Integer;
begin
v1:=StrToInt(StringReplace(Edit1.Text,'.','',[rfReplaceAll]));{reeplazo los puntos(.) por Vacio ('') y 
convierto el string resultante en Integer  } 

v2:=StrToInt(StringReplace(Edit2.Text,'.','',[rfReplaceAll]));// Igual aqui
 if (v1 > v2) then
  ShowMessage('La mayor version es : '+Edit1.Text)
else if (v1 < v2)  then
     ShowMessage('La mayor version es : '+Edit2.Text)
     else ShowMessage('Son Iguales');
end;

Saludos...