Программирование в среде Delphi. Часть 3. Файлы. Садовская О.Б. - 5 стр.

                                        5
   Button1: TButton;
   Button2: TButton;
   Button3: TButton;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
   procedure Button3Click(Sender: TObject);
  private
   { Private declarations }
  public
   { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if not opendialog1.execute then exit;
memo1.Lines.LoadFromFile(OpenDialog1.filename)
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if not savedialog1.execute then exit;
memo1.Lines.SaveToFile(savedialog1.filename)
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if not fontdialog1.execute then exit;
memo1.Font:=fontdialog1.font
end;
end.


         3.2 Ф айловые типы и ф айловые переменные
      Object Pascal ра спола га ет сред ст ва м и созд а н ия и об ра б от ки ф а й-
лов ра зличн ых т ипов. Дост у п к ф а йлу осу щест вля ет ся с пом ощью пе-
рем ен н ых ф а йлового типа . В Object Pascal су щест ву ет т ри ф а йловых
т ипа :
      TextFile         – текстовый ф а йл, пред ст а вля ю щий соб ой н а б ор
                           сим вольн ых ст рок перем ен н ой д лин ы;
      File of < т ип > – т ипизирова н н ый ф а йл, пред ст а вля ю щий соб ой
                           н а б ор д а н н ых у ка за н н ого типа ;
      File             – н ет ипизирова н н ый ф а йл, пред ст а вля ю щий соб ой
                           н а б ор н естру кт у рирова н н ых д а н н ых.
      П рим еры описа н ия ф а йловых перем ен н ых: