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

Added relative/absolute path functions to vfs.pas

Browse Source 
Implemented stringContains in strings.pas

git-svn-id: https://spexeah.com:8443/svn/Asuro@1432 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
kieron
2020-07-20 22:34:28 +00:00
parent 2b73fa4f44
commit d642eafe24
2 changed files with 357 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
src/include/strings.pas
View File

@ -138,8 +138,37 @@ begin
end;
function stringContains(str : pchar; sub : pchar) : boolean;
var
strEnd, subEnd, i, j, count : uint32;
begin
stringContains:= false;
stringContains:= false;
if stringEquals(str,sub) then begin
stringContains:= true;
exit;
end;
strEnd:= stringSize(str)-1;
subEnd:= stringSize(sub)-1;
if strEnd < subEnd then exit;
for i:=0 to strEnd do begin
if str[i] = sub[0] then begin
count:= 0;
for j:=0 to subEnd do begin
if (i+j) > strEnd then
exit;
if str[i+j] = sub[j] then begin
inc(count)
end else begin
count:= 0;
break;
end;
end;
if count > 0 then begin
stringContains:= true;
exit;
end;
end;
end;
end;
function stringToInt(str : pchar) : uint32;