сохранить текстовый файл, который загружен в мемо поле (загрузка файла- есть код) Делфи 7

[программирование]

добрый вечер, уважаемые программисты. помогите, пожалуйста, дописать программу на языке Делфи 7.

вот задание, которое уже сделано:
загрузить текстовый файл (блокнот) в мемо поле.

вот код программы:

PHP код:

unit Unit45;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Data.DB,
  Bde.DBTables, Vcl.Grids, Vcl.DBGrids;
type
  TForm45 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    TabSheet3: TTabSheet;
    Button1: TButton;
    DBGrid1: TDBGrid;
    Memo2: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form45: TForm45;
   f:textfile; s:string; i:integer;
implementation
{$R *.dfm}
procedure TForm45.Button1Click(Sender: TObject);
begin
opendialog1.Filter:='Textovie faili| *.txt|';
   if opendialog1.Execute and fileExists (opendialog1.FileName) then
     begin
     assignfile(f,opendialog1.FileName);
     reset(f);
     memo1.Lines.Clear;
     while not eof(f) do
          begin
       readln(f,s);
       memo1.Lines.Add(s);
     end;
     closefile(f);
   end;
end;
procedure TForm45.Button2Click(Sender: TObject);
begin
 opendialog1.Filter:='Textovie faili| *.txt|';
   if opendialog1.Execute and fileExists (opendialog1.FileName) then
     begin
     assignfile(f,opendialog1.FileName);
     reset(f);
     memo2.Lines.Clear;
     while not eof(f) do
          begin
       readln(f,s);
       memo2.Lines.Add(s);
     end;
     closefile(f);
   end;
end;
end. 


задание, которое нужно сделать:
сохранить текстовый файл,который загружен в мемо поле.
(вроде нужно делать с помощью SaveDialog)


заранее огромное спасибо всем за помощь.

[Serge_Bliznykov]

Вы совершенно зря используете старинные методы чтения файлов..
рекомендую заменить вот этот код:

if opendialog1.Execute and fileExists (opendialog1.FileName) then
     begin
     assignfile(f,opendialog1.FileName);
     reset(f);
     memo1.Lines.Clear;
     while not eof(f) do
          begin
       readln(f,s);
       memo1.Lines.Add(s);
     end;
     closefile(f);
   end;

на код:

if opendialog1.Execute and fileExists (opendialog1.FileName) then
   Memo1.Lines.LoadFromFile(opendialog1.FileName)

ну и со второй кнопкой поступить так же.


а сохранение написать очень просто. на форму кидаем TSaveDialog
и пишем что-то вроде:

rocedure TForm45.ButtonSave1Click(Sender: TObject);
begin
   SaveDialog1.Filter:='Textovie faili| *.txt|';
   if SaveDialog1.Execute and  then
     memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

и ВСЁ!

[программирование]

Serge_Bliznykov, а для того,чтобы написать эту процедуру нужно кликнуть на SaveDialog, а затем в коде писать код?

но когда я дважды нажимаю на SaveDialog, то у меня открывается все мои файлы.

[Serge_Bliznykov]

Сообщение от программирование

Serge_Bliznykov, а для того,чтобы написать эту процедуру нужно кликнуть на SaveDialog, а затем в коде писать код?

нет.
вам нужно кинуть на форму кнопку ( в моём примере я назвал эту кнопку ButtonSave1, но Вы можете ей дать любое удобное для вас имя), потом двойной щелчок по этой кнопке, откроется обработчик события onClick для данной кнопки. вот туда и надо вставить указанный мною выше код.

[программирование]

я скопировала процедуру, но у меня подчеркивает ошибку.
вот код:

PHP код:

unit Unit45;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Data.DB,
  Bde.DBTables, Vcl.Grids, Vcl.DBGrids;
type
  TForm45 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    TabSheet3: TTabSheet;
    Button1: TButton;
    DBGrid1: TDBGrid;
    Memo2: TMemo;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form45: TForm45;
   f:textfile; s:string; i:integer;
implementation
{$R *.dfm}
procedure TForm45.Button1Click(Sender: TObject);
begin
opendialog1.Filter:='Textovie faili| *.txt|';
   if opendialog1.Execute and fileExists (opendialog1.FileName) then
     begin
     assignfile(f,opendialog1.FileName);
     reset(f);
     memo1.Lines.Clear;
     while not eof(f) do
          begin
       readln(f,s);
       memo1.Lines.Add(s);
     end;
     closefile(f);
   end;
end;
procedure TForm45.Button2Click(Sender: TObject);
begin
 opendialog1.Filter:='Textovie faili| *.txt|';
   if opendialog1.Execute and fileExists (opendialog1.FileName) then
     begin
     assignfile(f,opendialog1.FileName);
     reset(f);
     memo2.Lines.Clear;
     while not eof(f) do
          begin
       readln(f,s);
       memo2.Lines.Add(s);
     end;
     closefile(f);
   end;
end;
 procedure TForm45.Button3Click(Sender: TObject);
begin
 SaveDialog1.Filter:='Textovie faili| *.txt|';
   if SaveDialog1.Execute and  then
     memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
end. 


ошибка в строчке:

PHP код:

 if SaveDialog1.Execute and  then 


выдает такую ошибку:

if SaveDialog1.Execute and then

заранее огромное спасибо всем за помощь.

[Mad_Cat]

and

удалите