R. A. Yusupov C++ Builderda masalalar va topshiriqlar samarqand 2018 yil

do

n = FileRead(f,p,1);

while((n!=0)&&(*p==' '));

while((n!=0)&&(*p!=' '))

{

if(*p=='\r')

{

n = FileRead(f,p,1); // '\n' ni o’qish

break;

}

len++;

p++;

n = FileRead(f, p, 1);

}

*p = '\0';

if (len !=0)

st->printf("%s", buf);

return len;

}

Oddiy ma’lumotlar bazasi

Xarajatlar dasturi, o’zida matnli faylni tasvirlaydigan ma’lumotlar bazasi bilan ishlashni ta’minlaydi. Ma’lumotlarni ko’rish va taxrirlash uchun StringGrid komponentasidan foydaniladi (1.21-rasm). Ishning boshlanishida ma’lumotlar fayldan StringGrid komponentasiga avtomatik yuklanadi, oxirida esa – faylga yoziladi.



1.21-rasm. Matnli faylda joylashgan ma’lumotlarni ko’rish va taxrirlash uchun StringGrid komponentasidan foydalanish

// forma konstruktori

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

// *** jadvalni sozlash ***

StringGrid1->Options

<< goEditing // taxrirlashni ruxsat berish

<< goTabs; // - keyingi jadvalga o’tish

// ustunlar sarlavhasi

StringGrid1->Cells[0][0] = "Sana";

StringGrid1->Cells[1][0] = "Summa";

StringGrid1->Cells[2][0] = "Izoh";

// ustunlar kengligi

StringGrid1->ColWidths[0] = 70;

StringGrid1->ColWidths[1] = 70;

StringGrid1->ColWidths[2] = 200;

}

// jadval yacheykasida tugmani bosish

void __fastcall TForm1::StringGrid1KeyPress(TObject *Sender, System::WideChar &Key)
{