ERROR_TOO_MANY_SEMAPHORES

[dicas3d]

I need of know the causes of this bug.
The bug is ERROR_TOO_MANY_SEMAPHORES.
Here is the code:

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

1. procedure ler;
2. begin
3. dir := c + '\carros.sgs';
4.   system.Assign(carrosfile,dir);
5.   system.Reset(carrosfile);
6.   system.seek(carrosfile,0);
7.   read(carrosfile,tmpcarros);
8.    for i := 2 to tmpcarros.total do begin
9.   system.seek(carrosfile, i-1);
10.   read(carrosfile, carrosarray[i-1]);
11.   end;
12.   system.Close(carrosfile);
13. end;
14.  

[typo]

It is a Windows message.

[dicas3d]

Yes I know it. But this is a method created by me to don't replicate the code if I understand well what you said.
But did you talk about the how i put the colour with colours. I try it on this link http://www.portugal-a-programar.org/forum/index.php/topic,8185.0.html. If you don't talk Portuguese is a tag CODE(with[ and ])

[typo]

ERROR_TOO_MANY_SEMAPHORES is not a Lazarus message.

[Leledumbo]

How do you get the error message? To the best of my knowledge neither lazarus nor FPC has that message, it's a Windows message indeed.

[JuhaManninen]

You can get that error when using threads and forgetting to define "UseCThreads".
Happens on Linux at least (I haven't run Lazarus on Windows yet).

dicas3d, does the program use threads?

Juha

[dicas3d]

The program don't use threads and now I discover the error. It happens because the read pass the end of file.
This is the correct code:

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

1. procedure ler;
2. begin
3. dir := c + '\carros.sgs';
4.   system.Assign(carrosfile,dir);
5.   system.Reset(carrosfile);
6.   read(carrosfile,tmpcarros);
7.    for i := 2 to tmpcarros.total - 1 do begin
8.   system.seek(carrosfile, i-1);
9.   read(carrosfile, carrosarray[i-1]);
10.   end;
11.   system.Close(carrosfile);
12. end;  
13.  

[dicas3d]

I need to replace the condition of the cycle for another more suitable.
That read all lines of the file without write in the file the number of lines. What structure I need?

[typo]

Code: [Select]

while not Eof(file) do