paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-27 07:40:05 +01:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: added CompareStringListItemsUTF8LowerCase

Browse Source 
git-svn-id: trunk@40006 -
This commit is contained in:
mattias 2013-01-28 15:14:33 +00:00
parent bf5b2dd230
commit dfd531ee95
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazutils/lazutf8classes.pas
View File

@ -29,6 +29,8 @@ type
procedure LoadStringsFromFileUTF8(List: TStrings; const FileName: string); procedure LoadStringsFromFileUTF8(List: TStrings; const FileName: string);
procedure SaveStringsToFileUTF8(List: TStrings; const FileName: string); procedure SaveStringsToFileUTF8(List: TStrings; const FileName: string);
function CompareStringListItemsUTF8LowerCase(List: TStringList; Index1, Index2: Integer): Integer;
implementation implementation
procedure LoadStringsFromFileUTF8(List: TStrings; const FileName: string); procedure LoadStringsFromFileUTF8(List: TStrings; const FileName: string);
@ -67,6 +69,12 @@ begin
end; end;
end; end;
function CompareStringListItemsUTF8LowerCase(List: TStringList; Index1,
Index2: Integer): Integer;
begin
Result:=CompareStr(UTF8LowerCase(List[Index1]),UTF8LowerCase(List[Index2]));
end;
constructor TFileStreamUTF8.Create(const AFileName: utf8string; Mode: Word); constructor TFileStreamUTF8.Create(const AFileName: utf8string; Mode: Word);
var var
lHandle: THandle; lHandle: THandle;