Fórum Como saber a versão de um arquivo? #202858

type
  TVersions = (
    verEquals,                  // versões iguais
    verFirstGreater,            // a primeira é maior
    verSecondGreater,           // a segunda é maior
    verUnknown                  // desconhecido
  );

function CompareV(S1, S2: String): TVersions;
var
  X, Y: Integer;

  function GetDotToken(var S: String): Integer;
  var
    I: Integer;
  begin
    Result := 0;
    I := 1;
    repeat
      if S[I] = ´.´ then Break;
      Result := Result * 10 + Ord(S[I]) - Ord(´0´);
      Inc(I);
    until I > Length(S);
    Delete(S, 1, I);
  end;

begin
  Result := verUnknown;
  while (S1 <> ´´) and (S2 <> ´´) do
  begin
    X := GetDotToken(S1);
    Y := GetDotToken(S2);
    if X < Y then
      Result := verSecondGreater
    else if X > Y then
      Result := verFirstGreater;
    if X <> Y then Exit;
  end;
  if (S1 = ´´) and (S2 = ´´) then
    Result := verEquals;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  B: TVersions;
begin
  B := CompareV(Edit1.Text, Edit2.Text);
  CheckBox1.Checked := B in [verFirstGreater, verEquals];
  CheckBox2.Checked := B in [verSecondGreater, verEquals];
end;