StringList.Sorted is reset and then we have exception

[Alexey-T]

I pass Sorted stringlist. then you do:

procedure TEmmet.AddHTMLTagListForValidation(const AList: TStringList);
begin
  if not Assigned(AList) or (AList.Count = 0) then Exit;

  // Ignore and exit if list is already populated
  if Assigned(FHTMLTagList) then Exit;

  // Create a sorted list of added tags
  FHTMLTagList := TStringList.Create;
  FHTMLTagList.Assign(AList);
  FHTMLTagList.CaseSensitive := False;
  FHTMLTagList.Sort;

  if not FHTMLTagList.Sorted then //Alex added
    raise exception.create('dd'); //raised!!   
end;

Sorted is reset, then Find method gives the exception. FPC 3.2.3.

[Alexey-T]

How FPC implements Sorted: it calls SortStyle:= sslAuto. then:

procedure TStringList.SetSortStyle(AValue: TStringsSortStyle);
begin
  if FSortStyle=AValue then Exit;
  if (AValue=sslAuto) then
    Sort;
  FSortStyle:=AValue;
end;

[Alexey-T]

Fix is: change FHTMLTagList.Sort; to FHTMLTagList.Sorted := True;