Języki programowania
Laboratorium 10  Pliki 1
1. Zapis i odczyt zmiennej
W deklaracji klasy TForm1 stwórz zmienną liczba1
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
int liczba1;
};
//---------------------------------------------------------------------------
Umieść na formatce następujące komponenty. Nadaj etykiety przyciskom.
W zdarzeniu przycisku Zapisz wstaw następujący kod:
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
liczba1=Edit1->Text.ToIntDef(0);
TFileStream *Plik=new TFileStream("test.dat",fmCreate);
Plik->Write(&liczba1,sizeof(int));
Plik->Free();
}
//---------------------------------------------------------------------------
W zdarzeniu przycisku Wczytaj wstaw następujący kod:
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
liczba1=0;
TFileStream *Plik=new TFileStream("test.dat",fmOpenRead);
Plik->Read(&liczba1,sizeof(int));
Plik->Free();
Label1->Caption=liczba1;
}
//---------------------------------------------------------------------------
Sprawdz
działanie aplikacji pamiętając aby w polu Edit wpisać liczbę
©Daniel Król  PWSZ Tarnów
Języki programowania
Laboratorium 10  Pliki 2
2. Zapis i odczyt ró\
nych zmiennych
W deklaracji klasy TForm1 stwórz zmienną liczba2
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
int liczba1;
float liczba2;
};
//---------------------------------------------------------------------------
Dodaj do formatki kolejne komponenty
W zdarzeniu przycisku Zapisz wstaw następujący kod:
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
liczba1=Edit1->Text.ToIntDef(0);
liczba2=Edit2->Text.ToDouble();
TFileStream *Plik=new TFileStream("test.dat",fmCreate);
Plik->Write(&liczba1,sizeof(int));
Plik->Write(&liczba2,sizeof(float));
Plik->Free();
}
//---------------------------------------------------------------------------
W zdarzeniu przycisku Wczytaj wstaw następujący kod:
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
liczba1=0;
liczba2=0;
TFileStream *Plik=new TFileStream("test.dat",fmOpenRead);
Plik->Read(&liczba1,sizeof(int));
Plik->Read(&liczba2,sizeof(float));
Plik->Free();
Label1->Caption=liczba1;
Label2->Caption=liczba2;
}
//---------------------------------------------------------------------------
Sprawdz
działanie aplikacji pamiętając aby w polach Edit wpisać liczby.
©Daniel Król  PWSZ Tarnów
Języki programowania
Laboratorium 10  Pliki 3
3. Okno dialogowe
Z zakładki Dialogs pobierz komponenty OpenDialog i SaveDialog
Zaznacz komponent OpenDialog1 a następnie w Object Inspector ustaw domyślne
rozszerzenie (DefaultExt) na np. dat
Operacje powtórz dla komponentu SaveDialog1.
W Object Inspector ustaw właściwość Filter
Operacje powtórz dla komponentu SaveDialog1.
©Daniel Król  PWSZ Tarnów
Języki programowania
Laboratorium 10  Pliki 4
W zdarzeniu przycisku Zapisz wstaw następujący kod:
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
liczba1=Edit1->Text.ToIntDef(0);
liczba2=Edit2->Text.ToDouble();
if(SaveDialog1->Execute())
{
TFileStream *Plik=NULL;
try
{
Plik=new TFileStream(SaveDialog1->FileName,fmCreate);
Plik->Write(&liczba1,sizeof(int));
Plik->Write(&liczba2,sizeof(float));
}
catch(...)
{
MessageBox(0,"Nie mozna zapisac pliku","Blad",0);
}
if(Plik)
Plik->Free();
}
}
//---------------------------------------------------------------------------
W zdarzeniu przycisku Wczytaj wstaw następujący kod:
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
liczba1=0;
liczba2=0;
if(OpenDialog1->Execute())
{
TFileStream *Plik=NULL;
try
{
Plik=new TFileStream(OpenDialog1->FileName,fmOpenRead);
Plik->Read(&liczba1,sizeof(int));
Plik->Read(&liczba2,sizeof(float));
}
catch(...)
{
MessageBox(0,"Nie mozna wczytac pliku","Blad",0);
}
if(Plik)
Plik->Free();
}
Label1->Caption=liczba1;
Label2->Caption=liczba2;
}
//---------------------------------------------------------------------------
Sprawdz
działanie aplikacji.
©Daniel Król  PWSZ Tarnów
Języki programowania
Laboratorium 10  Pliki 5
4. Zadania
a) Napisz program zapisujÄ…cy i odczytujÄ…cy z dysku 50-cio elementowÄ… tablicÄ™ typu int.
b) Napisz program który zapisze na dysku poło\
enie oraz rozmiar formatki w czasie jego
zamykania, oraz wczytujÄ…cy te dane przy uruchomieniu. U\
yj zmiennych
pomocniczych typu int.
c) Napisz program otwierający Open pliki .TXT i wyświetlający ich zawartość w
komponencie RichEdit. Program powinien mieć mo\
liwość edycji zawartości pliku i
zapisu ich pod tÄ… samÄ… nazwÄ… Save oraz pod nazwÄ… dowolnÄ… Save As&
©Daniel Król  PWSZ Tarnów