#include <stdio.h>
// Глобальне оголошення файлової змінної і визначення імені файла
FILE *f;
char s[]="proba.txt";
void __fastcall TForm1::FormCreate(TObject *Sender)
{ // Перевіряється наявність файла на диску: якщо файл є,
// то він відкривається для зчитування і записування, а якщо немає –
// то створюється для зчитування і записування.
if(FileExists(s)) f = fopen(s,"rt+");
else f = fopen(s,"wt+");
fclose(f);
}
//---------------------------------------------------------------------------

// Кнопка “Дописати до файла”
void __fastcall TForm1::Button1Click(TObject *Sender)
{ if((f=fopen(s,"at"))==NULL)
{ ShowMessage("Файл не вдається відкрити"); return; }
char nazva[15];
strcpy(nazva, Edit1->Text.c_str());
float price = StrToFloat(Edit2->Text);
int kol = StrToInt(Edit3->Text);
// Дописування даних здійснюється в кінець файла
fprintf(f, "%s %6.2f %i\n", nazva, price, kol);
fclose(f);
Edit1->Clear(); Edit2->Clear(); Edit3->Clear();
Edit1->SetFocus();
}        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
// Кнопка “Переглянути файл”
void __fastcall TForm1::Button2Click(TObject *Sender)
{ float price; int kol; char nazva[15];
if((f=fopen(s,"rt+"))==NULL)
{ ShowMessage("Файл не вдається відкрити");
return;
}
Memo1->Clear();
// Контроль досягання кінця файла здійснюється функцією feof(f)
while (!feof(f))
{ // Порядко ве зчитування з файла
fscanf(f,"%s %f %i\n",&nazva,&price,&kol);
AnsiString str=nazva;
for(int i=str.Length();i<=15; i++)str+=" ";
// Виведення даних здійснюється за форматом
Memo1->Lines->Add(str+" "+FloatToStrF(price,ffFixed,6,2)+
" "+IntToStr(kol));
}
fclose(f);
}
}
//---------------------------------------------------------------------------

// Кнопка “Квартири, площа яких є менше за 30”
void __fastcall TForm1::Button3Click(TObject *Sender)
{ if((f=fopen(s,"rt"))==NULL)
{ ShowMessage("Файл не вдається відкрити "); return; }
Memo2->Clear();
char nazva[15];
float price; int kol;
while(!feof(f))
{ fscanf(f,"%s %f %i\n",&nazva,&price,&kol);
if (kol<30)Memo2->Lines->Add(AnsiString(nazva)+" "
+FloatToStrF(price,ffFixed,6,2)+" "+IntToStr(kol));
}
fclose(f);
}

}
//---------------------------------------------------------------------------
// Кнопка “Визначити вулицю та розмір квартири”
void __fastcall TForm1::Button4Click(TObject *Sender)
{ long length;
if((f=fopen(s,"rt"))==NULL)
{ ShowMessage("Файл не вдається відкрити"); return; }
fseek(f, 0, SEEK_END);
length = ftell(f);
fclose(f);
Edit4->Text=s;
Edit5->Text=IntToStr(length);
}
//---------------------------------------------------------------------------