Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi String('8.0.0').toInteger (https://www.delphipraxis.net/209833-string-8-0-0-tointeger.html)

jziersch 29. Jan 2022 08:04

AW: String('8.0.0').toInteger
 
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;


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:44 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz