本文整理自网络,侵删。
感谢竹子写的比较版本号的方法。
比较版本号
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中调用api函数exitwindowsex可以实现系统的关机,注销,和重启
更多相关阅读请进入《Delphi》频道 >>