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 pchar与string互转

Delphi 禁止改变窗口大小和移动窗口

Delphi 清空文件夹

Delphi 日期时间函数

Delphi 下载者源代码

Delphi控制程序在任务栏显示与隐藏

Delphi ado的事务处理例子

Delphi中内嵌汇编

Delphi中调用api函数exitwindowsex可以实现系统的关机,注销,和重启

Delphi判断某一个点是否在一个区域内

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



打赏

取消

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

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

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

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

评论

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