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...
Pergunta
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;
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.