delphi 比较版本号


本文整理自网络,侵删。

 感谢竹子写的比较版本号的方法。
比较版本号
function TFServerMain.CompareVersion(const FileVersion1, FileVersion2: String): Integer;
var
Items1: TStrings;
Items2: TStrings;
i: Integer;
e1: Integer;
e2: Integer;
begin
Result := 0;
Items1 := TStringList.Create;
Items2 := TStringList.Create; 
try
Items1.Delimiter := '.';
Items1.DelimitedText := FileVersion1; 
Items2.Delimiter := '.'; 
Items2.DelimitedText := FileVersion2; 
if Items1.Count <> Items2.Count then 
raise Exception.Create('Uncomparable versions: number of dots differ!'); 
Result := 0; 
for i := 0 to Items1.Count - 1 do 
begin 
e1 := StrToIntDef(Items1[i], -1); 
e2 := StrToIntDef(Items2[i], -1); 
if e1 > e2 then Result := 1 
else 
if e1 < e2 then Result := -1; 
if Result <> 0 then Exit; 
end; 
finally 
Items1.Free; 
Items2.Free; 
end; 
end;

相关阅读 >>

Delphi 使控件支持鼠标滚轴消息

Delphi如何把一个文本列表添加到tlistbox并避免重复项

Delphi hbp-1100u 欧姆龙血压计的usb调用方法

Delphi 从 twebbrowser中获得当前输入处的链接

Delphi区分汉字和字母的函数

Delphi 获取鼠标当前位置的相对坐标

Delphi 如何遍历整个硬盘的各个目录,就像windows的查找功能那样

Delphi 字符串与二进制数之间的互相转换

Delphi 校验手机号及身份证号

Delphi tadodataset 中文使用说明

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...