|
Hvala,ali i ja sam to isto uradio.Mislio sam da postoji nesto drugo.Da li je ovo dobro:
var
i:integer;
begin
i:=0;
Nit:=MyTread.Create(true);
AssignFile(F,dgOpen.FileName);
Reset(F);
while not Eof(f) do begin
Readln(F,sLine);
Inc(i);
end;
------------------------------------
while not Eof(F) do begin
Nit.FreeOnTerminate:=true;
ReadLn(F,sLine);
Nit.Resume;
end;
Podrazumeva se da sam napravio i drugi unit sa Synchronize metodom threda,ali se u prvoj formi(koja je povezana u uses sekciji) ne osvezava status bar koji broji redove.
|
