Como Usar Um Erro!

[*_Felipe_*]

quero saber como eu utilizo um erro

por exemplo

fname:= InputBox(fname,'Caminho do arquivo:','c:\gerar brd\');

AssignFile(Input,fname);

nesse caso ele pede o caminho do arquivo..

e depois abre, mas se o arquivo n existir da erro

quero fazer que em vez de dar um erro de Delphi

eu diga qual foi o erro e encerre o programa.

alguma coisa assim

if erro='file not found' then

begin

close;

end

else

...........

end;

[Churc]

Opa

try

AssignFile(Input,fname);

except

ShowMessage('deu erro');

end;

mas se voce rodar o programa dentro da IDE do Delphi, mesmo com o try ele sempre

mostrará o erro então pra testar rode fora...

abraço