RSS订阅 | 匿名投稿
您的位置:网站首页 > 函数 > 正文

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;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: