[Resolvido] Problemas com o salvamento de um arquivo txt

[Fér@ 0]

Estou tendo um problema com um programa q eu fiz em delphi

eu criei um editor de texto , pois a hora q eu executo ele funciona normal , mas o meu problema esta na hora de salvar

Porque ele abre a janela de salvar mais a hora q eu vou procurar o arquivo a onde eu salvei ele foi salvo sem estençao

 

aqui esta o codigo do botao de salvar;

procedure TForm1.Salvar1Click(Sender: TObject);
begin
	if (SaveDialog1.Execute) then begin
		NomeArquivo := SaveDialog1.FileName;
		RichEdit1.Lines.SaveToFile(NomeArquivo);
		Form1.Caption := 'Arquivo Salvo - ' + ExtractFileName(NomeArquivo);
	end;
end;

Será q alguem pode me ajudar a resolver isso

eu precisaria Urgente

Porque é trabalho de escola e nao consigo fazer isso

 

Muito obrigado a todos q puderem me ajudar

[Raficcha 1]

No TOpenDialog tem uma propriedade que é "DefaultExt", por padrão esta em branco. Coloque "txt" (sem aspas) nela.

 

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[Fér@ 0]

esse é o código certo

o codigo anterior estava errado

esse aqui é o certo;

 

procedure TForm1.Salvar1Click(Sender: TObject);

begin

nomearquivo:=savedialog1.filename;

if (savedialog1.execute) then

salvarcomo1click(sender)

else

RichEdit1.Lines.SaveToFile(NomeArquivo);

form1.Caption := 'Arquivo Salvo - ' + ExtractFileName(NomeArquivo);

Richedit1.modified:=false;

end;

 

mesmo colocando isso q você me falou

ele grava sem extençao

 

Meu professo me disse q ela nao coloca o nome da extensao escolhida na opcao filter

[Raficcha 1]

Sempre que eu uilitizei esta opção, o programa colocou uma extensão no arquivo.

 

Mas tente fazer assim então:

 

procedure TForm1.Salvar1Click(Sender: TObject);
begin
 	if (SaveDialog1.Execute) then begin
 	NomeArquivo := SaveDialog1.FileName;
				if (Copy(NomeArquivo, Length(NomeArquivo)-4, 4) <> '.txt') then	
					NomeArquivo := NomeArquivo+ '.txt';
					
 	RichEdit1.Lines.SaveToFile(NomeArquivo);
 	Form1.Caption := 'Arquivo Salvo - ' + ExtractFileName(NomeArquivo);
 	end;
end;

[Fér@ 0]

Funcionou o programa vlw!!!!!!

Mais agora ele so abre no editor q eu fiz

pq se eu abrir no bloco de notas ele aparece o texto q eu escrevi no arquivo no meio de um monte de codigo

 

Se v6 soberem alguma coisa de mysql entra nesse link

http://forum.imasters.com.br/index.php?/topic/392692-duvidas-sobre-o-mysql/

 

e me ajuda a fazer um trabalho

[Raficcha 1]

Aonde esta a sua dúvida?

 

E o problema com o TXT, foi resolvido?

[Fér@ 0]

o txt foi

mais ele naum da pra abrir o aquivo q eu faço no meu editor no bloco de nota

quando ele abre o texto fica no meio de um monte de codigo

 

o txt foi

mais ele naum da pra abrir o aquivo q eu faço no meu editor no bloco de nota

quando ele abre o texto fica no meio de um monte de codigo

[Raficcha 1]

O Bloco de notas so abre arquivos de texto puro. Agora que percebi. A extensão para arquivos desse tipo é RTF e não TXT.

[Fér@ 0]

a ta

meu professor disse q ele fica aparecendo isso por causa do RichEdit

e q naum tem como passar disso q ta o programa

[Raficcha 1]

Não entendi muito bem. Mas envez de utilizar a extensão TXT, utilize RTF. Depois abra o arquivo com o Wordpad, Word, BrOffice Writer, etc.

[Fér@ 0]

Vou fazer o teste depois eu falo

 

Funcionou Vlw cara

[Raficcha 1]

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif:clap:http://forum.imasters.com.br/public/style_emoticons/default/clap.gif:clap:http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

Qualquer coisa a mais, só postar ai.

 

:D

[Fér@ 0]

beleza

pode deixar

 

Raficcha

você sabe q linha de codigo eu uso pra fazer com q o programa verifique se tem impressora instalada

e se naum tiver pra ele naum abrir aquela tela de imprimir do windows??