Щозирда инсоният фаолиятининг барча жабщаларига шахсий электрон щисоблаш машиналари (шэщм) шахдам =адамлар билан кириб бормо=д

7.6-rasm.

4.5-listing.

unit rd_;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm1 = class(TForm)

Button2: TButton;

Edit1: TEdit;

Memo1: TMemo;

Button1: TButton;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

f: TextFile; // fayl

fName: String[80]; // fayl nomi

buf: String[80]; // fayldan o‘qish uchun bufer

begin

fName := Edit1.Text;

AssignFile(f, fName);

{$I-}

Reset(f); // o‘qish uchun ochish

{$I+}

if IOResult <> 0 then

begin

MessageDlg(‘Faylga murojaatda xatolik ‘ + fName, mtError,[mbOk],0);

exit;

end;

Memo1.clear;

// fayldan o‘qish

while not EOF(f) do

begin

readln(f, buf); // satrlarni fayldan oq’ish

Memo1.Lines.Add(buf); // Memo1 maydoniga satrlarni qo‘shish

end;

CloseFile(f); // faylni yopish

end;

// faylga yozish

procedure TForm1.Button2Click(Sender: TObject);

var

f: TextFile; // fayl

fName: String[80]; // fayl nomi

i: integer;

begin

fName := Edit1.Text;

AssignFile(f, fName);

Rewrite(f); // qayta yozish uchun ochish

// faylga yozish

for i:=0 to Memo1.Lines.Count do // satrlar noldan raqamlanadi

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

CloseFile(f); // faylni yopish

MessageDlg(‘Ma’lumotlarni faylga yozish ‘,mtInformation,[mbOk],0);

end;

end.

Faylni qayta ishlashni tashkil qilish uchun While takrorlash buyrug‘idan foydalanilgan. Bunda EOF funksiyasining qiymati har bir o‘qishdan oldin tekshiriladi.

Saqlash tugmasi Memo maydonidagi ma’lumotlarni faylga saqlash imkonini beradi. Navbatdagi satrni Memo maydoniga qo‘shish Lines xususiyatining Add uslubi yordamida amalga oshiriladi.