[SOLVED] Sorted Tstringlist not accepted some strings

[jimbill]

Hello Everyone,

I cant speak very well english 

Lazarus is very good tool.
Congratulations to the developers. And so forth

I would like to announce a strange behaviour of Tstringlist with thousands of lines.

If I would like to insert 10000 strings to a sorted TStringlist (length for each one maximum : 80 or other values) it's accepted only about 9900 strings. Why this is happening? (fpc library implementation has the issue or  I do something bad?)

I'am attaching the source code.


windows 7/32 bit  i386-win32-win32/win64

Any help welcome .

Thanks

[taazz]

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   random_strings,tempwrong:Tstringlist;
4.   i,j,wrong_counter,save:integer;
5.   generated_text:string;
6. begin
7.   random_strings:=TStringList.Create;
8.   random_strings.Sorted:=true;
9.   random_strings.Duplicates := dupAccept;
10. .....
11.  

[jimbill]

Yes it was the problem 

Thanks for the solution.