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;