String('8.0.0').toInteger

[Delphi.Narium]

Zitat von amigage:

In meinem Fall kann Major auch zweistellig sein, oder später auch dreistellig. Zudem sollte die Funktion flexibel sein. Also aus einem String, die ersten Integerwerte lesen.

Hat also vermutlich nicht direkt was mit den Werten aus TOSVersion zu tun?

In meinem ollen Delphi 7 (oder auch TurboPascal aus den Anfängen ) ginge das z. B. so:

Delphi-Quellcode:

function GetFirstInteger(s : String) : Integer;
var
  i    : Integer;
  Code : Integer;
begin
  Val(s, i, Code);
  if Code <> 0 then
  begin
    s := Copy(s,1,Code - 1);
    Val(s,i,Code);
  end;
  Result := i;
end;

...

begin
  if GetFirstInteger('8.1.1') < 9 then
  begin
    ShowMessage('Kleiner');
  end else
    ShowMessage('GrößerGleich');
end;