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]

il codice non crea più `file 273 in win2000

procedura TForm1.Button1Click (Sender: TObject);
var SearchRec: Tsearchrec; f: file; b: array [0..16383] di byte; S, shortname, FileName: string; I, ExtNum, dimensione: intero;
iniziare
// Crea la directory Archive (se non ci sono)
FileName: = "RAMIZ.RCV"; GlobalStop: = False;
{$ i -} // chdir (".."); createdir ("R"); chdir (".."); {$ i +}
// legge il file
Per I: = 1 To 50000 iniziare
Se GlobalStop Then Break;
Label1.Caption: = inttostr (i); Application.ProcessMessages;
assignfile (f, FileName); reset (f, 1); blockread (f, b, xnumx, dimensione); file di chiusura (f); // cancella (f);
ExtNum: = 1000; ShortName: = ".. \ r \ RAMIZ";
ripetere
inc (ExtNum); S: = shortname + inttostr (ExtNum) + ". RCV";
fino a findfirst (S, $ 3f, SearchRec) <> 0;
assignfile (f, s);
riscrittura (f, 1);
blockwrite (f, b, size);
file di chiusura (f);
fine;
fine;



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

e che nessuno può capire



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

AIUTO !!!!



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

1. Codice meraviglioso di qualche tipo
2. Cosa cattura immediatamente l'occhio:
ripetizione inc (ExtNum); S: = shortname + inttostr (ExtNum) + ". RCV"; fino a findfirst (S, $ 3f, SearchRec) <> 0; // <<<< ----- assignfile (f, s);
Ogni chiamata findfirst deve avere una chiamata FindClose,
in caso contrario è possibile abbandonare molto rapidamente il sistema senza risorse.
Vedi la sezione di aiuto: "Funzione FindFirst"






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

Perché 50000 legge lo stesso file "RAMIZ.RCV" una volta?
Perché cercare un file se si chiama Rewrite?
La riscrittura è assegnata a F.
È stato creato al suo posto.



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

> Massimo nero ©

grazie

Ho pensato che in Win 2000 il codice sia bacato
assignfile (f, FileName); reset (f, 1); blockread (f, b, xnumx, dimensione); file di chiusura (f);

> Yu.Yu.

esempio di test



Pagine: 1 tutto il ramo

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

al piano di sopra









Memoria: 0.57 MB
Ora: 0.03 c
14-22411
MadBurro
2001-11-12 20:52
2002.01.08
Chiave cd WinXP


1-22087
Serg5
2001-12-19 15:14
2002.01.08
La gente, una domanda abbastanza facile! Collegamento alla procedura in una parola.


7-22427
KLM
2001-09-20 06:34
2002.01.08
Protezione dalla copia


3-21906
Yuri Zhukov
2001-11-21 09:40
2002.01.08
Oracle ADO vs DOA - fido7.ru.delphi.db


4-22500
YUS
2001-11-06 20:32
2002.01.08
Coordinate delle icone del desktop





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 Lezioni 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