Que tal, tenta abrir o arquivo se ele não existir então cria.
procedure ArqCria(var F: File; const Cam: String);
begin
AssignFile(F,Cam); // Associa F ao arquivo
{$I-} // Desliga a
diretiva que trata erros I/O
Reset(F,1); // Tenta abrir o arquivo
if (IOResult<>0) then Rewrite(F,1); // Se o arquivo não existir então cria
{$I+} // Liga a diretiva
que trata erros I/O
end;
Mairlo Hideyoshi Guibo Carneiro da Luz escreveu:
> Pessoal,
>
> Estou abrindo um arquivo e gostaria de saber se o mesmo foi aberto
> ou não, já que no finally eu fecho esse arquivo, mas nem sempre esse
> arquivo é aberto, já que pode acontecer um erro antes do arquivo ser
> aberto. Alguém saberia como fazer isso?
>
>
> Obrigado
>
>
> Mairlo
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>
>
> *Yahoo! Grupos, um serviço oferecido por:*
> PUBLICIDADE
> <http://br.rd.yahoo.com/SIG=12a9sgb3d/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1114067576/A=2332652/R=0/id=noscript/SIG=119058f8i/*http://br.download.yahoo.com/messenger/>
>
>
>
>
> ------------------------------------------------------------------------
> *Links do Yahoo! Grupos*
>
> * Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> * Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
> <mailto:[EMAIL PROTECTED]>
>
> * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
> Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>.
>
>
>------------------------------------------------------------------------
>
>No virus found in this incoming message.
>Checked by AVG Anti-Virus.
>Version: 7.0.308 / Virus Database: 266.10.1 - Release Date: 20/4/2005
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
