String('8.0.0').toInteger

[amigage]

Zitat von BerndS:

Ich hätte das eher mit CharInSet oder mit StrVar.Splitt(['.']) gelöst und am Ende dann StrtoInDef verwendet.

CharInSet wäre eine Alternative. Split() ist nicht flexibel genug, da ich ja genau den Separator kennen müsste..

Zitat von KodeZwerg:

wenn nur major interessant ist, warum nicht nur auf string array erstes feld prüfen?

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.

Zitat von Union:

Warum nicht den vorgesehenen Weg gehen:

Delphi-Quellcode:

uses
  System.Sysutils;
TOSVersion.Check(8);

Normalerweise ja, aber in meinem Fall möchte ich nicht wissen, ob es genau diese Version des System ist, sondern ob es kleiner 9 ist.

[Uwe Raabe]

Zitat von amigage:

Normalerweise ja, aber in meinem Fall möchte ich nicht wissen, ob es genau diese Version des System ist, sondern ob es kleiner 9 ist.

Dann wäre if not TOSVersion.Check(9) then hier besser geeignet.

https://docwiki.embarcadero.com/Libr...SVersion.Check

Zitat:

Returns whether the version of the current operating system is above or equal to a specific value.

Use Check to determine whether the version of the current operating system is above or equal to a specific required version.

Es gibt da auch overloads für zwei oder drei Parameter.

[amigage]

Zitat von Uwe Raabe:

Dann wäre if not TOSVersion.Check(9) then hier besser geeignet.

Stimmt, das hilft in meinem Fall. Irgendwie dachte ich nur, ich könnte testen, ob es genau diese Version ist. Habe nicht verstanden, dass man es als "ist die Version mindestens VALUE" interpretieren muss

[wasbo]

Zitat von amigage:

Zitat von Uwe Raabe:

Dann wäre if not TOSVersion.Check(9) then hier besser geeignet.

Stimmt, das hilft in meinem Fall. Irgendwie dachte ich nur, ich könnte testen, ob es genau diese Version ist. Habe nicht verstanden, dass man es als "ist die Version mindestens VALUE" interpretieren muss

Kannst Du doch, schau dir TOSVersion mal an, das ist ein Record mit detaillierten Infos. Besser geht's kaum. "Check" ist doch nur eine Funktion.

[jziersch]

Ich verwende für fehlertolerante String to Integer so eine Funktion

Code:

function QDStrToInt(const str : String) : Integer;
var i : Integer;
begin
   Result := 0;
   for i := 1 to Length(str) do
   if (str[i]>='0') and (str[i]<='9') then
        Result := Result * 10 + Integer(str[i]) - Integer('0')
   else break;
end;

[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;