CODE FIX
المشكلة هي في stringList.Sort;
لايستطيع تمييز 10 و 1 و100
كود :
// remove duplicate strings from the string list
procedure RemoveDuplicates(const stringList: TStringList);
var
buffer: TStringList;
cnt: Integer;
begin
// stringList.Sort;
buffer := TStringList.Create;
try
buffer.Sorted := True;
buffer.Duplicates := dupIgnore;
buffer.BeginUpdate;
for cnt := 0 to stringList.Count - 1 do
buffer.Add(stringList[cnt]);
buffer.EndUpdate;
stringList.Assign(buffer);
finally
FreeandNil(buffer);
end;
end;المشكلة هي في stringList.Sort;
لايستطيع تمييز 10 و 1 و100