(Resolvido) Salvar Memo em txt

[JGS]

Ola, Boa noite a todos, estou com dificuldaes em fianalizar o meu procedimento em relaçao a salvar o texto do memo em arquivo txt esta em retornando um erro ...Minhas linhas de comando são essas e me retorna o seguinte erro

'I/O error 102' gostaria que alguém me desse uma luz...

procedure TfrmMain.btnGeraLogClick(Sender: TObject);

var

Path: String;

NomeArquivo: String;

Arquivo : TextFile;

begin

NomeArquivo := FormatDateTime('ddmmyy', Date) + '.txt';

Path := ExtractFilePath(Application.ExeName);

if FileExists(NomeArquivo) then

Append(Arquivo); { se existir, apenas adiciona linhas }

else

ReWrite(Arquivo); { cria um novo se não existir }

try

Write(Arquivo, Memo1.Lines.text);

finally

CloseFile(Arquivo);

end;

//Memo1.Lines.SaveToFile(Path + NomeArquivo);

end;

[Micheus]

me retorna o seguinte erro

'I/O error 102'

JGS, no help (F1), em I/O Erros, consta: 102 File not assigned

Este erro diz respeito ao fato de você estar tentando gravar no arquivo sem ter primeiramente associado "a variável ao arquivo em disco" - faltou o AssignFile.

Veja este bom artigo para mais detalhes: Manipulando arquivos textos

Abraços

[JGS]

Era isso mesmo Micheus, eu havia esquecido dessa linha de comando, por isso retornava aquele erro.

eu baixei a tabela de erros I/O do Delphi.

Valeu pela dica.