Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

el código no crea más archivos `273 en win2000 Encontrar ramas similares


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

el código no crea más archivos `273 en win2000

procedimiento TForm1.Button1Click (Sender: TObject);
var SearchRec: Tsearchrec; f: archivo; b: matriz [0..16383] de byte; S, nombre corto, Nombre de archivo: cadena; I, ExtNum, tamaño: entero;
comenzar
// Crear el directorio de archivo (si no existe)
Nombre de archivo: = "RAMIZ.RCV"; GlobalStop: = Falso;
{$ i -} // chdir (".."); createdir ("R"); chdir (".."); {$ i +}
// leer el archivo
Para I: = 1 a 50000 Do Begin
Si GlobalStop entonces rompe;
Label1.Caption: = inttostr (i); Aplicación.Procesos de proceso;
assignfile (f, FileName); restablecer (f, 1); bloque de lectura (f, b, xnumx, tamaño); archivo de cierre (f); // borrar (f);
ExtNum: = 1000; ShortName: = ".. \ r \ RAMIZ";
repetir
inc (ExtNum); S: = nombre corto + inttostr (ExtNum) + ". RCV";
hasta encontrar primero (S, $ 3f, SearchRec) <> 0;
archivo de asignación (f, s);
reescribir (f, 1);
blockwrite (f, b, tamaño);
archivo de cierre (f);
fin;
fin;



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

y que nadie pueda entender



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

AYUDA !!!!



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

1. Código maravilloso de algún tipo.
2. Lo que inmediatamente llama la atención:
repetir inc (ExtNum); S: = nombre corto + inttostr (ExtNum) + ". RCV"; hasta encontrar primero (S, $ 3f, SearchRec) <> 0; // <<<< ----- archivo de asignación (f, s);
Cada llamada findfirst debe tener una llamada FindClose,
De lo contrario, puede dejar el sistema muy rápidamente sin recursos.
Consulte la sección de ayuda: "Función FindFirst"






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

¿Por qué 50000 lee el mismo archivo "RAMIZ.RCV" una vez?
¿Por qué buscar un archivo si se llama Reescribir?
La reescritura se asigna a F.
Se ha creado en su lugar.



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

> Max Black ©

gracias

Pensé que en Win 2000 el código está defectuoso.
assignfile (f, FileName); restablecer (f, 1); bloque de lectura (f, b, xnumx, tamaño); archivo de cierre (f);

> Yu.Yu.

prueba de ejemplo



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba









Memoria: 0.57 MB
Tiempo: 0.022 c
1-22084
Mikhalyov Dmitry
2001-12-19 14:53
2002.01.08
Evento de bloqueo


14-22367
Nido
2001-11-08 14:56
2002.01.08
¿Dónde ir a estudiar?


1-22117
Tulnyk
2001-12-19 18:59
2002.01.08
¿Cómo interrumpir el lanzamiento del ejecutable?


6-22299
leviatán
2001-10-11 21:58
2002.01.08
Manejo de errores TClientSocket


3-21946
conjunto
2001-12-05 00:08
2002.01.08
Una vez más trabajar con bases.





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiana Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español