频道分类

delphi 比较版本号

作者:admin 来源: 日期:2017/3/6 18:59:05 人气: 标签:

 感谢竹子写的比较版本号的方法。
比较版本号
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;