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.82 MB
Tiempo: 0.239 c
6-22290
Pecado
2001-10-09 17:48
2002.01.08
Pregunta sobre Sockets API


14-22344
anod
2001-11-06 13:15
2002.01.08
Cruces - tic


1-22227
Tosov
2001-12-15 10:43
2002.01.08
Cómo trabajar con TInplaceEdit


1-22256
cuestionario de caminata
2001-12-15 08:50
2002.01.08
Lectura de valores desde archivo ini


4-22473
amamed_3071
2001-11-02 13:46
2002.01.08
Comandos de la impresora Epson





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