String('8.0.0').toInteger

[amigage]

Okay, habe mir dann doch die Routine geschrieben:

Delphi-Quellcode:

function MyStrToInt(StrVar: String): Integer;
var
  strArray: TArray<string>;
  i: Integer;
  strI : String;
begin
  try
    Result := strVar.ToInteger;
  except
    strI := '';
    strArray:=TArray<string>.Create('1','2','3','4','5','6','7','8','9','0');
    for i := Low(StrVar) to High(StrVar) do
    begin
      if MatchStr(strVar[i], strArray) then
         strI := strI + strVar[i]
      else
        break;
    end;
    if strI = '' then strI := '0';
    Result := strI.ToInteger;
  end;
end;

Meine Frage: wäre hier etwas zu verbessern/optimieren?