mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-07 12:16:20 +02:00
lazutils: added CompareStringListItemsUTF8LowerCase
git-svn-id: trunk@40006 -
This commit is contained in:
parent
bf5b2dd230
commit
dfd531ee95
@ -29,6 +29,8 @@ type
|
||||
procedure LoadStringsFromFileUTF8(List: TStrings; const FileName: string);
|
||||
procedure SaveStringsToFileUTF8(List: TStrings; const FileName: string);
|
||||
|
||||
function CompareStringListItemsUTF8LowerCase(List: TStringList; Index1, Index2: Integer): Integer;
|
||||
|
||||
implementation
|
||||
|
||||
procedure LoadStringsFromFileUTF8(List: TStrings; const FileName: string);
|
||||
@ -67,6 +69,12 @@ begin
|
||||
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);
|
||||
var
|
||||
lHandle: THandle;
|
||||
|
Loading…
Reference in New Issue
Block a user