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.56 MB
Hora: 0.024 c
14-22357
Viktor Scherbakov
2001-11-01 12:40
2002.01.08
Recuperação de fotos


1-22070
agarrar
2001-12-18 21:53
2002.01.08
gerenciamento de fontes com o menu POPUP


3-21901
vencedor
2001-12-06 09:46
2002.01.08
problema com a exclusão de registros


1-22243
Gumbert-gumbert
2001-12-16 22:22
2002.01.08
Como tirar a raiz do enésimo grau em Delphi?


14-22401
wHammer
2001-11-09 12:56
2002.01.08
Isso foi interessante?





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