Cita:
Empezado por rgstuamigo
Asi:
Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var v1,v2:Integer;
begin
v1:=StrToInt(StringReplace(Edit1.Text,'.','',[rfReplaceAll]));
v2:=StrToInt(StringReplace(Edit2.Text,'.','',[rfReplaceAll])); if (v1 > v2) then
ShowMessage(Edit1.Text)
else if (v1 < v2) then
ShowMessage(Edit2.Text)
else ShowMessage('Son Iguales');
end;
Saludos...
|
Mmmmm.. si compraras las versiones "1.1.0.10" contra "10.0.0.0" te dirá que la primera es mayor.
Si ya tienes armado el string, simplemente tienes que descomponerlo en números separándolo por los puntos y comparar parte a parte, mientras sean iguales de izquierda a derecha, en cuanto un valor es superior al otro, ya tienes identificado cual es la versión mayor.
Pero pregunto... este valor lo estas obteniendo con la winapi GetFileVersionInfo?... porque de ser así puedes comparar directamente los resultados de la misma.
Saludos!