Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

código não cria mais arquivos 273 no win2000 Encontre agências semelhantes


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

código não cria mais arquivos 273 no win2000

procedimento TForm1.Button1Click (Sender: TObject);
var SearchRec: Tsearchrec; f: arquivo; b: array [0..16383] de byte; S, nome abreviado, nome do arquivo: string; Eu, ExtNum, size: integer;
começar
// Cria o diretório do arquivo (se não estiver lá)
FileName: = "RAMIZ.RCV"; GlobalStop: = falso;
{$ i -} // chdir (".."); criado ("R"); chdir (".."); {$ i +}
// leia o arquivo
Para I: = 1 To 50000 Do Begin
Se GlobalStop Então Break;
Label1.Caption: = inttostr (i); Application.ProcessMessages;
assignfile (f, nome do arquivo); reset (f, 1); blockread (f, b, 16384, tamanho); closefile (f); // apaga (f);
ExtNum: = 1000; Nome curto: = ".. \ r \ RAMIZ";
repetir
inc (ExtNum); S: = nome abreviado + inttostr (ExtNum) + ". RCV";
até encontrar primeiro (S, $ 3f, SearchRec) <> 0;
assignfile (f, S);
reescreva (f, 1);
blockwrite (f, b, tamanho);
closefile (f);
end;
end;



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

e que ninguém pode entender



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

AJUDA !!!!



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

1. algum tipo de código maravilhoso.
2. O que chama imediatamente sua atenção:
repetir inc (ExtNum); S: = nome abreviado + inttostr (ExtNum) + ". RCV"; até encontrar primeiro (S, $ 3f, SearchRec) <> 0; // <<<< ----- assignfile (f, S);
Cada chamada para findfirst deve ter uma chamada para FindClose,
Caso contrário, você pode deixar o sistema sem recursos muito rapidamente.
Veja a seção de ajuda: "Função FindFirst"






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

Por que ler o 50000 vezes o mesmo arquivo "RAMIZ.RCV"?
Por que procurar por um arquivo se Rewrite for chamado?
Reescreva cria um novo arquivo externo com o nome atribuído a F.
Se um arquivo externo com o mesmo nome já existir, ele será excluído e um novo arquivo vazio será criado em seu lugar.



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

> Max Chernykh ©

obrigado

Eu pensei que em Win 2000 o código é buggy
assignfile (f, nome do arquivo); reset (f, 1); blockread (f, b, 16384, tamanho); closefile (f);

> Yu.Yu.

exemplo de teste



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.57 MB
Hora: 0.085 c
6-22300
evgen_2001
2001-10-04 12:25
2002.01.08
Lista de discussão


1-22253
Yakudza
2001-12-17 14:34
2002.01.08
Como calcular fatorial em Pascal?


14-22336
Ivan Shikhalev
2001-11-02 23:31
2002.01.08
Banana Dourada


1-22247
para
2001-12-17 11:29
2002.01.08
Ajuda alguém pode .....


1-22116
Vínculo
2001-12-19 19:08
2002.01.08
Alguém thread tem um procedimento de hash MD5?





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol