mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 09:56:12 +02:00
* Sort IDS
This commit is contained in:
parent
6630dad84d
commit
2d01d6356a
@ -223,12 +223,13 @@ end;
|
|||||||
function TIDEHTMLTools.GetTagIDs(const aFileName: string; aOptions : TExtractOptions = []): TStringArray;
|
function TIDEHTMLTools.GetTagIDs(const aFileName: string; aOptions : TExtractOptions = []): TStringArray;
|
||||||
|
|
||||||
Var
|
Var
|
||||||
aList : TStrings;
|
aList : TStringList;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
aList:=TStringList.Create;
|
aList:=TStringList.Create;
|
||||||
try
|
try
|
||||||
GetTagIDS(aFileName,aList,aOptions);
|
GetTagIDS(aFileName,aList,aOptions);
|
||||||
|
aList.Sort;
|
||||||
Result:=aList.ToStringArray;
|
Result:=aList.ToStringArray;
|
||||||
finally
|
finally
|
||||||
aList.Free;
|
aList.Free;
|
||||||
|
Loading…
Reference in New Issue
Block a user