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.82 MB
Ora: 0.04 c
6-22300
evgen_2001
2001-10-04 12:25
2002.01.08
Pubblicazione di messaggi


1-22194
Arte
2001-12-15 09:28
2002.01.08
Domanda Millet!


3-21900
vano
2001-12-07 11:13
2002.01.08
TString e String


1-22159
Phisio
2001-12-19 22:56
2002.01.08
Come creare una nuova struttura


1-22021
Socol
2001-12-18 08:54
2002.01.08
Scarica il file!





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