Файлдағы мәліметтерді оқу.

Мақсаты: Файлдардармен және диалогты терезелермен жұмыс дағдыларын қалыптастыру.

unit RewAp_;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Edit1: TEdit;

    Memo1: TMemo;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private                      { Private declarations }

  public                          { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

   f: TextFile;       // файл

   fName: String[80]; //  файл аты

   i: integer;

begin

   fName := Edit1.Text;

   AssignFile(f, fName);

   Rewrite(f);  // файлд мәтініне өзгеріс енгізі үшін ашу

   for i:=0 to Memo1.Lines.Count do

          writeln(f, Memo1.Lines[i]);

   CloseFile(f); //  файл жабу

   MessageDlg('Данные ЗАПИСАНЫ в файл ',mtInformation,[mbOk],0);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

   f: TextFile;       // файл

   fName: String[80]; //  файл аты

   i: integer;

begin

   fName := Edit1.Text;

   AssignFile(f, fName);

   Append(f);  // файлды мәліметпен толтыру үшін ашу

   for i:=0 to Memo1.Lines.Count do

          writeln(f, Memo1.Lines[i]);

   CloseFile(f); //  файлды жабу

   MessageDlg('Данные ДОБАВЛЕНЫ в файл ',mtInformation,[mbOk],0);

end;

end.