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

LazUtf8: clean up unused var

Browse Source 
git-svn-id: trunk@32869 -
This commit is contained in:
martin 2011-10-13 10:05:58 +00:00
parent 76bb7ad46b
commit 3be1e68746
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/lazutils/lazutf8.pas
View File

@ -1169,7 +1169,7 @@ function UTF8LowerCase2(const AInStr: utf8string; ALocale: utf8string =''): utf8
const const
ResultSizeIncr = 10; ResultSizeIncr = 10;
var var
i, CounterDiff, ExtraResultBytes: PtrInt; CounterDiff, ExtraResultBytes: PtrInt;
InStr, InStrEnd, OutStr: PChar; InStr, InStrEnd, OutStr: PChar;
// Language identification // Language identification
IsTurkish: Boolean; IsTurkish: Boolean;
@ -1551,7 +1551,7 @@ end;
} }
function UTF8LowerCase(const AInStr: utf8string; ALocale: utf8string=''): utf8string; function UTF8LowerCase(const AInStr: utf8string; ALocale: utf8string=''): utf8string;
var var
i, CounterDiff: PtrInt; CounterDiff: PtrInt;
InStr, InStrEnd, OutStr: PChar; InStr, InStrEnd, OutStr: PChar;
// Language identification // Language identification
IsTurkish: Boolean; IsTurkish: Boolean;