Mirsaid Aripov, Nurillo Otaxanov

10.2-listing. Fayldan yozuvlarni o`qish

procedure TForm1.Button1Click(Sender: TObject);

type TUrin  (Birinchi, Ikkinchi, Uchinchi);

 yozuv

TMedal  record

Fan : string[20]; Vuz:string[20];

Fam_ism : string[30]; urin:TUrin; end;

9.4-rasm. Fayldan yozuvlarni o`qish dasturining dialog oynasi

var

f: file of TMedal;  yozuvlar fayli

rec: TMedal;  fayldan o`qilgan yozuv

n: integer;  so`ralgan yozuvlar soni

st: string[80];

begin

AssignFile(f,'C:| Urinlar.db');

{$I-}

Reset (f);  faylni o`qish uchun ochish

{$I-}

if IOResult <> 0 then begin

ShowMessage('MB faylini ochishdagi xatolik.');

Exit;

end;

 MB ni qayta ishlash

if RadioButton2.Checked then

Memo1.Lines.Add('*** '  ComboBox1.Text  ' ***'); n : 0;

Memo1.Clear;  Memo maydonini tozalash

while not EOF(f) do begin

read(f, rec);  yozuvni fayldan o`qilmoqda

if RadioButton1.Checked or

(rec.Vuz  ComboBox1.Text) then begin

n : n  1;

st : rec.fam_ism  ', '  rec.fan;

if RadioButton1.Checked then

st : st  ', '  rec.Vuz;

case rec.Urin of

Birinchi : st : st ', Oltin';

Ikkinchi : st : st ', Kumush';

Uchinchi : st : st ', Bronza';

end;

Memo1.Lines.Add(st); end;

end;

CloseFile(f);

if n  0 then

ShowMessage('Mb da so`ralgan ma`lumot topilmadi.');

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

Label1.Enabled : False;

ComboBox1.Enabled : False;  endi Vuz maydoni yopildi

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

Label1.Enabled : True;

ComboBox1.Enabled : True;  Vuz maydoni ochildi

ComboBox1.SetFocus;  kursor Vuz maydoniga o`tdi

end;

end.

TForm1.Button1Click protsedurasi ko`rsatilgan faylni ochib, yozuv-larni ketma-ket o`qiydi va ularni Memo1 maydoniga qo`shilib boradi.