Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

код не создает более `273 files in win2000 


Dmitriy(new)   (2001-12-13 19:37) [0]

код не создает более `273 files in win2000

procedure TForm1.Button1Click(Sender: TObject);
var SearchRec:Tsearchrec; f:file; b:array[0..16383]of byte; S,shortname,FileName:string; I,ExtNum,size :integer;
begin
// Create the Archive directory (if its not there)
FileName:="RAMIZ.RCV"; GlobalStop:=False;
{$i-}// chdir (".."); createdir ("R"); chdir (".."); {$i+}
// read the file
For I:=1 To 50000 Do Begin
If GlobalStop Then Break;
Label1.Caption:=inttostr(i); Application.ProcessMessages;
assignfile (f,FileName); reset (f,1); blockread (f,b,16384,size); closefile (f); //erase (f);
ExtNum:=1000; ShortName:="..\r\RAMIZ";
repeat
inc (ExtNum); S:= shortname+inttostr (ExtNum)+".RCV";
until findfirst (S,$3f,SearchRec)<>0;
assignfile (f,S);
rewrite (f,1);
blockwrite (f,b,size);
closefile (f);
end;
end;



Dmitriy(new)   (2001-12-13 20:23) [1]

и что не кто не можем понять



Dmitriy(new)   (2001-12-13 20:40) [2]

HELP !!!!



Макс Черных   (2001-12-13 22:47) [3]

1. чудесатый код какой-то.
2. Что сразу в глаза бросается:

repeat
inc (ExtNum); S:= shortname+inttostr (ExtNum)+".RCV";
until findfirst (S,$3f,SearchRec)<>0; //<<<<-----
assignfile (f,S);

Каждому вызову findfirst должен соответствовать вызов FindClose,
а иначе можно очень быстро систему без ресурсов оставить.
См. help раздел: "FindFirst function"





Ю.Ю.   (2001-12-14 06:52) [4]

Зачем 50000 раз считывать один и тот-же файл "RAMIZ.RCV"?
Зачем искать файл, если вызвыается Rewrite ?
Rewrite creates a new external file with the name assigned to F.
If an external file with the same name already exists, it is deleted and a new empty file is created in its place.



Dmitriy(new)   (2001-12-16 09:38) [5]

> Макс Черных ©

спасибо

я думал что в Win 2000 глючит код
assignfile (f,FileName); reset (f,1); blockread (f,b,16384,size); closefile (f);

> Ю.Ю.

пример тестовый




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.024 c
6-22284           Delirium              2001-10-08 16:29  2002.01.08  
Как послать сообщение сразу на все IP-адреса


14-22402          Darker                2001-11-08 12:26  2002.01.08  
Ищу человека с ником


6-22267           wHammer               2001-09-28 15:00  2002.01.08  
Было-бы очень удобно...


1-22088           Mikhalyov Dmitry      2001-12-19 14:58  2002.01.08  
вызов события из программы


14-22400          Ежик                  2001-11-11 17:10  2002.01.08  
И чего такие все вялые?