Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://spexeah.com:8443/svn/Asuro@667 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
kieron
2018-05-05 23:39:12 +00:00
parent bccc36132e
commit fee4e4d759
75 changed files with 112 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
src/include/strings.pas
View File

@ -24,6 +24,7 @@ function stringSize(str : pchar) : uint32;
function stringConcat(str1, str2 : pchar) : pchar;
function stringContains(str : pchar; sub : pchar) : boolean;
function stringToInt(str : pchar) : uint32;
function hexStringToInt(str : pchar) : uint32;
function intToString(i : uint32) : pchar;
function boolToString(b : boolean; ext : boolean) : pchar;
@ -32,6 +33,22 @@ implementation
uses
console;
function hexStringToInt(str : pchar) : uint32;
var
result : uint32;
i : uint32;
Shift : uint32;
begin
result:= 0;
Shift:= (stringSize(str)-1) * 4;
for i:=0 to stringSize(str)-1 do begin
result:= result OR (HexCharToDecimal(str[i]) SHL Shift);
Shift:= Shift - 4;
end;
hexStringToInt:= result;
end;
function stringToUpper(str : pchar) : pchar;
var
result : pchar;