Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
abobre Aprendiz

Registrado: Segunda-Feira, 28 de Novembro de 2005 Mensagens: 114
|
Enviada: Qua Jan 03, 2007 2:00 pm Assunto: Como usar o componente SaveDialog |
|
|
Boa tarde a todos !
Estou com uma duvida bem simples a qual não estou conseguindo resolver.
É o seguinte, estou precisando usar o componente SaveDialog para salvar um texto que está no memo, porem pesquisei aqui no fórum sobre esse componente mas nenhuma dica postada aqui deu certo comigo.
A função q inclui o texto no memo é a seguinte:
Código: |
procedure TForm1.BtnImgClick(Sender: TObject);
begin
memo1.text := IDHTTP.Get(EdtUrl.Text);
end;
|
Agora preciso saber qual é o code que posso colocar para salvar esse texto !
Desde já agradeço ! |
|
Voltar ao Topo |
|
 |
leuzyn Aprendiz

Registrado: Sábado, 15 de Julho de 2006 Mensagens: 134
|
Enviada: Qua Jan 03, 2007 2:14 pm Assunto: |
|
|
Depende do que você quer fazer.
Bom, vou dar uma dica que sempre uso quando quero salvar algo escrito no TMemo.
Código: |
if SaveDialog1.Execute then //Se a caixa de dialogo abrir faça
begin //começa
Memo1.Lines.SaveToFile(SaveDialog1.FileName); {atribui todo conteúdo do TMemo para o local onde você irá salvar}
end; //fim |
Tranquilo, se precisar, pode postar |
|
Voltar ao Topo |
|
 |
abobre Aprendiz

Registrado: Segunda-Feira, 28 de Novembro de 2005 Mensagens: 114
|
Enviada: Qua Jan 03, 2007 9:32 pm Assunto: |
|
|
leuzyn
Obrigado por estar me ajudando !
Eu copie o codigo que você sugeriu porem ele compilo certinho e gero o executavel, porem na hora de salvar o texto ele me da o seguinte erro:
Já não sei o que mais fazer pra conseguir essa função !
Você ou outro membro sabe me informar o pq q esta dando esse erro ?
Obrigado |
|
Voltar ao Topo |
|
 |
gustavocco Administrador

Registrado: Sexta-Feira, 6 de Fevereiro de 2004 Mensagens: 4253 Localização: Chapecó - SC
|
Enviada: Qui Jan 04, 2007 10:15 am Assunto: |
|
|
O erro ocorre na hora de salvar?? q codigo vc utilizou??? vc está passando o nome de um arquivo corretamente para salvar??
posta mais detalhes ai...
Flw. |
|
Voltar ao Topo |
|
 |
rodrigocosta Novato

Registrado: Segunda-Feira, 11 de Dezembro de 2006 Mensagens: 54
|
Enviada: Qui Jan 04, 2007 10:32 am Assunto: |
|
|
Código: | procedure TForm1.btnsalvarClick(Sender: TObject);
begin
SaveDialog1.Execute;
if SaveDialog1.FileName <> '' then
begin
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
end;
end. |
no componente TSaveDialog na propriedade Filter vc coloca o seguinte
filter name= Arquivo texto *.txt e filter *.txt
observe esta linha
if SaveDialog1.FileName <> '' then
ele tem que ser <> de ''
o que eu posso te falar eh somente isto |
|
Voltar ao Topo |
|
 |
abobre Aprendiz

Registrado: Segunda-Feira, 28 de Novembro de 2005 Mensagens: 114
|
Enviada: Qui Jan 04, 2007 11:52 am Assunto: |
|
|
gustavocco
O erro ocorre na hora de salvar o arquivo e o codigo que estou usando é o que esta sendo postado aqui no tópico.
rodrigocosta
Infelizmente está dando o mesmo erro na hora de salvar o arquivo, já não sei o que pode ser, mas mesmo assim agradeço a sua ajuda em me auxiliar...
Esse e o codigo inteiro do aplicativo.
Código: |
unit principal;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, OleCtrls, SHDocVw, WinSkinData, jpeg,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
Buttons, Menus, ComCtrls;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
EdtUrl: TEdit;
BtnImg: TImage;
SkinData1: TSkinData;
Memo1: TMemo;
IDHTTP: TIdHTTP;
BtnSalvar: TButton;
BtnLimpar: TButton;
MainMenu1: TMainMenu;
Sobre1: TMenuItem;
SaveDialog1: TSaveDialog;
procedure BtnImgClick(Sender: TObject);
procedure Sobre1Click(Sender: TObject);
procedure BtnLimparClick(Sender: TObject);
procedure BtnSalvarClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Modificado: Boolean;
Caminho: String;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.BtnImgClick(Sender: TObject);
begin
memo1.text := IDHTTP.Get(EdtUrl.Text);
end;
procedure TForm1.Sobre1Click(Sender: TObject);
begin
Form2.Showmodal;
end;
procedure TForm1.BtnLimparClick(Sender: TObject);
begin
memo1.Clear;
end;
procedure TForm1.BtnSalvarClick(Sender: TObject);
begin
SaveDialog1.Execute;
if SaveDialog1.FileName <> '' then
begin
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
end;
end. |
Desde já agradeço ! |
|
Voltar ao Topo |
|
 |
|