Agenda em pascal

[Elias_REC]

(27-01-2011 23:32)iceball Escreveu:  Não eu nao estou a conseguir acabar a parte dos files preciso de ajuda..alguem que perceba de files me pode ajudar pff

Obrigado na mesma mas n e isso e mesmo dificuldade minha em files,..

Código:

{$I-}
Reset(telefone);
{$I+}
if IOResult <>0 then { Se IOResult for diferente de Zero, ocorreu um erro: }
begin     { Aqui tens que saber qual foi o erro e informar o utilizador. Provavelmente terminar a aplicacao, pedir outro nome de ficheiro, etc. }
  rewrite(telefone); { Se fazes novamente um rewrite, precisas de saber se ocorreu algum erro ou nao, tal como fizeste com o Reset.
end ;
{ Nenhum erro }

IOResult - Erro
2 - 'File not found';
3 - 'Path not found';
4 - 'Too many open files';
5 - 'File access denied';

Tens que procurar pelos outros; Se fores ao manual do Pascal, muito provavelmente encontras essa informacao.

Fiquem Bem!