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

* winapi: added missing CharLowerBuff implementation

Browse Source 
git-svn-id: trunk@23479 -
This commit is contained in:
marc 2010-01-17 18:44:13 +00:00
parent b6e66de015
commit e621d5cbfb
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/include/winapi.inc
View File

@ -1000,12 +1000,15 @@ end;
Returns:
------------------------------------------------------------------------------}
function CharLowerBuff(pStr : PChar; Len : Integer): Integer;
function CharLowerBuff(pStr: PChar; Len: Integer): Integer;
begin
// your code here
//TODO:WINAPI call CHARLOWERBUFF
DebugLn('TODO: WINAPI call CHARLOWERBUFF');
Result := -1;
Result := len;
while len > 0 do
begin
pStr^ := LowerCaseChars[pStr^];
inc(pStr);
dec(len);
end;
end;
{------------------------------------------------------------------------------