Delphi визуалды программалау ортасы

2. Компоненттердің оқиғалары мен қасиеттерін төменде берілген бағдарламаға сәйкес өңдеп, жұмыс мақсатына сәйкес әрекеттерді атқарыңыз.

unit RewAp_;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

f: TextFile; // файл

i: integer;

begin

if not OpenDialog1.Execute

exit;

fName := OpenDialog1.FileName;

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; // файл

i: integer;

begin

fName := Edit1.Text;

Append(f); // жазба қосу үшін ашу

// файлға жазу

for i:=0 to Memo1.Lines.Count do // жолдар нөлден бастап //нөмірленеді

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

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

MessageDlg('Жазбалар файлға қосылды ',mtInformation,[mbOk],0);

end;

№25. Файлдан оқу

1. Жаңа жоба ашып, Пішінге 49-суретте бейнеленген компоненттерді орнатыңыз.

2. Төменде келтірілген бағдарламаны пайдаланып, сол компоненттердің оқиғалары мен қасиеттерін өңдеп, жұмыс мақсатына жеткізетін әрекеттерді орындаңыз.

// мәтіндік файлды редакциялау-қарап шығу

unit rd1_;

{$R *.dfm}

// Ашу батырмасын шерту

procedure TForm1.Button1Click(Sender: TObject);

var

f: TextFile; // файл

buf: String[80]; // жолды оқуға арналған буфер

begin

if not OpenDialog1.Execute

exit;

fName := OpenDialog1.FileName;

Form1.Caption := fName;

AssignFile(f, fName);

try

Reset(f); // оқу үшін ашу

on EInOutError do

begin

ShowMessage('файлға қатынас жасауда қате кетті '+ fName);

end;

// файлдан оқу

begin

Memo1.Lines.Add(buf); // жолды Memo1 өрісіне қосу

end;

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

procedure TForm1.FormCreate(Sender: TObject);

begin // сүзгіні анықтау

OpenDialog1.Filter := 'Мәтін|*.txt';

end;

end.

1. Жаңа жоба ашып, Пішінге 51-суретте көрсетілгендей компонент-терді орналастырыңыз.