[Pascalzim/Pzim] Como verificar a existência de um ficheiro?

[Alberto Rosa]

Boa noite camaradas, gostaria de saber como verifico a existência de um arquivo no compilador Pzim v6.0.3b4 ([LINL REMOVIDO]).
Utilizo o comando Rewrite(Ficheiro); mas como deve saber ele cria/recria o arquivo, perdendo assim todos os dados nele contido. Existe alguma condição para contornar este problema?

[Simon Viegas]

Olá.

 

[...] como verifico a existência de um arquivo no compilador Pzim v6.0.3b4 [...]

 

Como você já deve saber, o PZim é apenas uma IDE/Compilador que utiliza uma linguagem, no caso Pascal.

 

Vamos lá. Imagino pelo menos duas possibilidades para verificar se o arquivo já está criado:

1. utilizando o FileExists();
2. utilizando o IOResult; (tenta abrir o arquivo, se o IOResult retornar um valor diferente de 0, deu rúim!)

Obs. 1: Creio que o FileExists() não funciona no Pascal Zim (a ferramenta tem algumas limitações), mas de qualquer forma vale a pesquisada;

Obs. 2: Cada código retornado pelo IOResult significa alguma coisa. Na intermet deve ter uma tabela... para o seu programa em si, basta saber se foi 0 ou não.

 

No aguardo.

[Alberto Rosa]

Program PascalZIM ;var arq: text ;Begin  assign(arq, 'c:\dados.txt' );  reset(arq);  if (ioresult = 0) then     writeln( 'O arquivo existe' )  else     writeln( 'O arquivo nao existe' );close(arq);End.

Thanks