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.021 c
1-22134
Rosco
2001-12-15 12:54
2002.01.08
Você já tem isso?


1-22161
Yegor Bulychev
2001-12-19 22:13
2002.01.08
Memorando ajuda!


14-22330
Alexey T.
2001-11-02 13:25
2002.01.08
AJUDE MEU !!!


14-22415
Nariz molhado
2001-11-12 06:42
2002.01.08
Temas para WinXP


14-22386
Denso
2001-11-08 21:13
2002.01.08
É interessante Quanto custa?





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