本文整理自网络,侵删。
感谢竹子写的比较版本号的方法。
比较版本号
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如何把一个文本列表添加到tlistbox并避免重复项
Delphi hbp-1100u 欧姆龙血压计的usb调用方法
Delphi 从 twebbrowser中获得当前输入处的链接
Delphi 如何遍历整个硬盘的各个目录,就像windows的查找功能那样
更多相关阅读请进入《Delphi》频道 >>