Programowanie Wizualno-Obiektowe  
Zajęcia z Delphi: 4 

 

1

Programowanie Wizualno-Obiektowe 
(studia zaoczne - inżynieria komputerowa) 
Zajęcia z Delphi 4, program 2 
 
Temat:  

Zapisywanie rekordów do plików, wstęp do prostych baz danych. 

 
Zadanie:  

Program powinien pozwalać na tworzenie 30 elementowej tablicy rekordów 
zawierającej informacje o osobach (imię i wiek), a następnie powinien 
umożliwiać zapisywanie tablicy do pliku i odczytywanie tej tablicy z pliku.

   

 

 

 

 

 

 

 

 

 

1.  
Otwieramy nowa aplikację File>NewApplication 
2.  
Zapisujemy projekt przy pomocy File>Save All w katalogu gdzie będzie kompilowany nasz 
projekt 
3.  
Dodajemy odpowiednie komponenty w kolejności 

•  Menu główne TMainMenu (paleta Standard) 

•  Komponent zawierający tabelę z wartościami w rekordach TValueListEditor (paleta 

Additional) 

•  Przycisk do dodawania danych TButton (paleta Standard) 
•  Etykiety opisujące TLabel (paleta Standard) 

•  Komponent wybierający plik do odczytu tabeli rekordów TOpenDialog (paleta 

Dialogs) 

•  Komponent wybierający plik do zapisu tabeli rekordów TSaveDialog (paleta Dialogs) 
 

 
 
 

Programowanie Wizualno-Obiektowe  
Zajęcia z Delphi: 4 

 

2

4.  
Należy zaprojektować menu główne (kliknięcie na komponent TMainMenu) tak aby miało 
następujące funkcje (skróty klawiszowe należy dodać do każdego elementu menu zmieniając 
jego własność ShortCut>Skrót ): 
 
- Plik 
 

- Odczytaj z Pliku (skrót Ctrl+L) 

 

- Zapisz do Pliku (skrót Ctrl+S) 

- Koniec

 

5.  
Użytkownik programu ma wpisywać dane n osób do tablicy rekordów. Jeden element tablicy 
to rekord zawierający dane jednej osoby,  jej imię i wiek. W tym celu definiujemy dwa typy, 
jeden rekordowy dotyczący osoby, zaś drugi tablicowy zawierający dane n osób: 
 

type osoba=record 

      imie:string[10]; 

      wiek:integer; 

        end; 

 

type osoby=record 

            a:array [1..n] of osoba; 

          end; 

 

type plikSpis=file of osoby; 

 

 

Ilość osób n jest zadeklarowana jako stała. Dodatkowo należy określić ilość/długość 
wszystkich zmiennych występujących w rekordach. Jest to potrzebne przy zdefiniowaniu 
nowego typu będącego typem plikowym, który opisuje pliki w których zapisuje się rekordy 
(pliki rekordowe). Jak widać z powyższego zadania w takim pliku można też zapisywać 
zagnieżdżone rekordy. Definicja jest następująca: 

 

type plik=file of typ_zapisywanego_rekordu; 

6.  
Następnie definiujemy zmienne wykorzystywane w programie. W zmiennej 

spis

 

przechowujemy tablicę rekordów n osób. Zmienna 

licznik

 mówi ile osób zostało wpisanych 

do tablicy. Natomiast 

plik

 jest zmienną wykorzystywaną do zapisu/odczytu utworzonego 

rekordu.

 

 

  spis:osoby; 

  plik:plikSpis; 

  licznik:integer; 

7. 
Zainicjalizować komponent 

ValueListEditor 

ustawiając jego właściwość  TitleCaptions 

(obiekt TStrings) w Object Inspector, aby widoczne były dwa opisane pola ‘imię’ i ‘wiek’. 
8.  
Obsługując metodę 

OnCreate

 formularza należy wyzerować licznik wpisanych osób.  

Następnie obsługujemy przycisk dotyczący dodawania nowych elementów do spisu osób. 
Należy uwzględnić w nim zarówno dodawanie osób, jak i zabezpieczyć się przed 
wpisywaniem większej ilości osób niż  n. Przycisk ten dodatkowo wypisuje dane osoby w 
tabeli 

ValueListEditor 

wykorzystujące metodę 

ValueListEditor.InsertRow(zmienna1,zmienna2,true).

 

procedure TForm1.Button1Click(Sender: TObject); 

var os:osoba; 

Programowanie Wizualno-Obiektowe  
Zajęcia z Delphi: 4 

 

3

begin 

os.imie:=Form1.Edit1.Text; 

os.wiek:=StrToInt(Form1.Edit2.Text); 

licznik:=licznik+1; 

if licznik<=length(spis.a) then 

begin 

  spis.a[licznik].imie:=os.imie; 

  spis.a[licznik].wiek:=os.wiek; 

  Form1.ValueListEditor1.InsertRow(os.imie,IntToStr(os.wiek),true); 

end 

else 

ShowMessage('nie moze juz dodac wiecej osob do bazy'); 

end; 

9.  
Napisać procedurę obsługującą zapis danych do pliku, wywoływaną po naciśnięciu na opcję 
‘Zapis do pliku’ w głównym menu. Wykorzystać komponent SaveDialog. 

 

 

procedure TForm1.zapiszdopliku1Click(Sender: TObject); 

var nazwa:string;i:integer;os:osoba; 

begin 

 

if Form1.SaveDialog1.Execute then nazwa:=Form1.SaveDialog1.FileName; 

AssignFile(plik,nazwa); 

Rewrite(plik); 

Write(plik,spis); 

CloseFile(plik); 

 

end; 

10.  
Napisać procedurę obsługującą odczyt danych z pliku, wywoływaną po naciśnięciu na opcję 
‘Odczyt z pliku’ w głównym menu. Dane należy zapisać do zmiennej spis, kasując dane z 
tabeli i wpisując tam nowe dane odczytane z pliku. Do wykasowania danych z tabeli należy 
wykorzystać metodę 

ValueListEditor.Strings.Clear; 

 

procedure TForm1.odczytajzpliku1Click(Sender: TObject); 

var nazwa:string;i:integer;os:osoba; 

begin 

 

if Form1.OpenDialog1.Execute then nazwa:=Form1.OpenDialog1.FileName; 

AssignFile(plik,nazwa); 

Reset(plik); 

Read(plik,spis); 

CloseFile(plik); 

 

Form1.ValueListEditor1.Strings.Clear; 

 

for i:=1 to il_osob do 

begin 

  os.imie:=spis.a[i].imie; 

  os.wiek:=spis.a[i].wiek; 

  Form1.ValueListEditor1.InsertRow(os.imie,IntToStr(os.wiek),true); 

end; 

 

licznik:=il_osob; 

 

end;