casa
Top.Mail.Ru Yandeks.Metrika
Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

giù

il codice non crea più `file 273 in win2000 Trova rami simili


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

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

procedura TForm1.Button1Click (Sender: TObject);
var SearchRec:Tsearchrec; f:file; b:array[0..16383]of byte; S,shortname,FileName:string; I,ExtNum,size :integer;
iniziare
// 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";
ripetere
inc (ExtNum); S:= shortname+inttostr (ExtNum)+".RCV";
until findfirst (S,$3f,SearchRec)<>0;
assignfile (f,S);
rewrite (f,1);
blockwrite (f,b,size);
file di chiusura (f);
fine;
fine;



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

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



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

AIUTO !!!!



Макс Черных   (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.
È stato creato al suo posto.



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

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

grazie

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

> Ю.Ю.

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



Pagine: 1 tutto il ramo

Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

al piano di sopra















Memoria: 0.83 MB
Ora: 0.051 c
7-22443
Masik
2001-09-27 13:02
2002.01.08
Menu a comparsa Y2k


1-22050
russo
2001-12-18 17:03
2002.01.08
UNA DOMANDA MOLTO INTERESSANTE :))))


1-22176
Serg5
2001-12-20 14:57
2002.01.08
Di nuovo, il problema con il testo: visualizzo Image1.Canvas.TextOut, ma sotto il testo stesso è un corridore bianco. È possibile se non si rimuove (basta mettere le lettere), quindi almeno rendere il corridore nero.


1-22181
Cibo
2001-12-21 11:12
2002.01.08
Come proibire il movimento della forma del mouse?


3-21968
Olban
2001-12-05 11:20
2002.01.08
QuantumGrid





afrikaans albanese Arabic armeno Azero basco bielorusso Bulgarian catalano Cinese (semplificato) Cinese (tradizionale) croato Ceco danese Dutch Inglese estone filippina Finnish Francese
galiziano georgiano Tedesco greco Creolo haitiano ebraico hindi ungherese islandese Indonesian irlandese Italiano Giapponese Korean lettone lituano macedone Malay maltese Norwegian
persiano polacco Portoghese rumeno Russian serbo Slovak sloveno Spagnolo swahili Swedish Thai turco ucraino Urdu vietnamita gallese yiddish bengalese bosniaco
Cebuano esperanto Gujarati Hausa Hmong Igbo giavanese kannada khmer lao latino maori marathi mongolo nepali punjabi somalo tamil telugu Yoruba
zulù
Английский Francese tedesco italiano portoghese russo spagnolo