SaveDialog

[Gabriel10101]

Estou criando um botão para salvar tudo que está dentro de um memo no formato .txt,mas quando clico no botão não acontece nada.

procedure TForm1.btnsalvarClick(Sender: TObject);
begin
SaveDialog1.Execute;
  if SaveDialog1.FileName <> ''  then
     Memo2.Lines.SaveToFile(SaveDialog1.FileName +'.txt');
end;

[Jhonas]

forma correta de uo

procedure TForm1.btnsalvarClick(Sender: TObject);
begin
if SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

abraço

[Gabriel10101]

Tentei e não deu certo,quando aperto o botão salvar não acontece nada :/

[Jhonas]

quando voce clica no botão, aparece uma janela para voce salvar o conteudo do memo e tambem escolher o local onde deseja salvar

o código funciona perfeitamente

veja se o seu código esta parecido com esse

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
Memo1: TMemo;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

end.

OBS: voce tem que colocar o componente SaveDialog1 no seu Form

abraço