Size: a a a
ДT
for j := 0 to 3 do
OldVersion[j] := StrToInt(ExtractWord(j + 1, Old, ['.']));
for j := 0 to 3 do
NewVersion[j] := StrToInt(ExtractWord(j + 1, New, ['.']));АВ
N
N
MО
АВ
AS
AS
N
N
AS
N
function TFormMain.CheckVersion(Old, New: string): boolean;
var
OldVersion: array [0..3] of integer;
NewVersion: array [0..3] of integer;
begin
OldVersion[0] := StrToInt(ExtractWord(1, Old, ['.']));
OldVersion[1] := StrToInt(ExtractWord(2, Old, ['.']));
OldVersion[2] := StrToInt(ExtractWord(3, Old, ['.']));
OldVersion[3] := StrToInt(ExtractWord(4, Old, ['.']));
NewVersion[0] := StrToInt(ExtractWord(1, New, ['.']));
NewVersion[1] := StrToInt(ExtractWord(2, New, ['.']));
NewVersion[2] := StrToInt(ExtractWord(3, New, ['.']));
NewVersion[3] := StrToInt(ExtractWord(4, New, ['.']));
Далее ГУГЛ мне дает не очень изящные решения, на мой взгляд. Мб есть уже проверенное в бою решение?AS
N
N
AS
N
AS
ДT
N