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.024 c
3-21927
Aleks_Vl
2001-12-04 09:47
2002.01.08
DTS + Delphi


3-21969
Kozhanov
2001-11-30 18:31
2002.01.08
Parâmetros dos drivers OBDC


3-21982
Dush
2001-12-06 12:37
2002.01.08
Conectando um cliente ao banco de dados


3-21953
Varik
2001-12-05 15:14
2002.01.08
Registros Pro


7-22453
Juri
2001-09-21 18:26
2002.01.08
RS485





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