paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 12:59:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

TurboPower_IPro: fixed typos related to 'occur' word

Browse Source 
git-svn-id: trunk@65203 -
This commit is contained in:
maxim 2021-06-10 22:15:11 +00:00
parent 163edb07b5
commit 04e48f1044
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/turbopower_ipro/iputils.pas
View File

@ -287,7 +287,7 @@ begin
Result := Copy(Strng, StrStart, StrEnd - StrStart + 1); Result := Copy(Strng, StrStart, StrEnd - StrStart + 1);
end; end;
{ Find leftmost occurence of character C in string S } { Find leftmost occurrence of character C in string S }
{* If C not found returns 0 } {* If C not found returns 0 }
function CharPos(C: AnsiChar; const S : string): Integer; function CharPos(C: AnsiChar; const S : string): Integer;
var var
@ -422,7 +422,7 @@ begin
Result := i; Result := i;
end; end;
{ Find location of first occurence of a substring (SubStr) in a string (S) } { Find location of first occurrence of a substring (SubStr) in a string (S) }
{ past a particular index (Idx) } { past a particular index (Idx) }
{ * Result is relative to the start of the entire original string } { * Result is relative to the start of the entire original string }
{ * Returns 0 if substring not found } { * Returns 0 if substring not found }