Mirsaid Aripov, Nurillo Otaxanov

9.7-listing. Fayldagi ma`lumotlarni o`qish

procedure TForm1.Button1Click(Sender: TObject);

var f : file of integer ; x , a, b : integer ; s :string;

begin

assignfile(f, 'c:\tub.son');

reset(f) ;

S :='1 dan 1000 gacha bo`lgan egizak tub sonlar'+#13;

read(f, a) ;



8.8-rasm. Fayldan olingan egizak tub sonlar jadvali

while not ( eof(f) ) do begin

read (f, b);

if b - a=2 then s := s+inttostr(a) +' '+inttostr(b)+#13;;

a := b ;

end ;

Label1.caption := s;

end;

Bu dastur natijasi 8.8-rasmda tasvirlangan.

10-BOB. YANGI TIPLAR BILAN ISHLASH

Biz xozirgacha faqat standart, ya`ni integer, real, char, string va boolean tipdagi ma`lumotlar bilan ishladik. Delphi tili dasturchilarga nostandart tiplarni aniqlash, e`lon qilish va foydalanishga imkon yaratadi.

Dasturchi aniqlaydigan yangi tiplar standart tiplar yoki dasturchi oldinroq aniqlagan tiplar ustiga quriladi. Quyidagi yangi tiplarni e`lon qilish va foydalanishl imkoniyatlari mavjud:

• 
  Elementlari sanaladigan tiplar;
  
• 
  Elementlari chegaralangan tiplar;
  
• 
  Aralash tipli ma`lumotlar (yozuvlar).