Einzelnen Beitrag anzeigen

jziersch

Registriert seit: 9. Okt 2003
Ort: München
240 Beiträge
 
Delphi 10.4 Sydney
 
#11

AW: String('8.0.0').toInteger

  Alt 29. Jan 2022, 08:04
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;
WPCubed GmbH
Komponenten für Delphi:
WPTools, wPDF, WPViewPDF
  Mit Zitat antworten Zitat