Não grava arquivo .TXT

07/11/2005

1

Olá pessoal tudo bem com vcs?
Estou com um pequeno probleminha que não está gravando arquivo .TXT, abaixo segue a procedure

if SaveDialog.Execute then
begin
if FileExists(SaveDialog.FileName) then
if MessageDlg(´Arquivo já existe. Deseja sobrescrever?´,
mtConfirmation, [mbYes, mbNo], 0) = mrNo then
begin
showmessage(´Operação Cancelada´);
exit;
end;
try
edit1.Text:= ChangeFileExt(SaveDialog.FileName, ´.TXT´);
//
AssignFile(tArqMag,SaveDialog.FileName);
Rewrite(tArqMag);
//
except
showmessage(´ERRO ARQUIVO NÃO PODE SER ABERTO´);
exit;
end;
end
else
begin
ShowMessage(´Erro : Arquivo não existe´);
exit;
end;

Ele está gerando de boa o arquivo... mas não com a extensão .TXT
O que estou fazendo de errado?

Agradeço antecipadamente

[]´s


Responder

Posts

07/11/2005

Massuda

O nome do arquivo com extensão .TXT está ficando no Edit1, mas você está usando o nome original (selecionado no SaveDialog) na hora de criar o arquivo.
... [color=blue:c68a943eae]edit1.Text:= ChangeFileExt(SaveDialog.FileName, ´.TXT´)[/color:c68a943eae]; // AssignFile(tArqMag,[color=red:c68a943eae]SaveDialog.FileName[/color:c68a943eae]); ...



Responder

07/11/2005

Edibertoalves

Entendi Massuda... tanto é que corrigi e deu certo

edit1.Text:= (ChangeFileExt(SaveDialog.FileName, ´.TXT´));
AssignFile(tArqMag, Edit1.Text);

Obrigado


Responder