|
|
|
|
|
|
|
 |
 |
 |
Artykuły |
 |
|
Rekordy
22:14:03 29.05.2005
@Gujet
Witam,
Dzisiaj będzie o rekordach. Co to takiego jest rekord? Rekord, to coś w rodzaju paczki, która przechowuje jakieś zmienne. Na przykład rekord o nazwie Pamelka, przechowujący jej ... powiedzmy wymiary:)
Najpierw trzeba wyklepać coś takiego:
type
TRekord = record
Imie:String[10];
Nazwisko:String[10];
Wymiar_1:Byte;
Wymiar_2:Byte;
Wymiar_3:Byte;
End;
Dobra, teraz żeby wypełnić pola rekordu musisz napisać cośtakiego:
Var
Pam:TRecord;
Begin
Pam.Imie:=’Pamelka’;
Pam.Nazwisko:=’Kowalska:)’;
Pam.Wymiar_1:=120;
Pam.Wymiar_2:=120;
Pam.Wymiar_3:=10; // hehe...
End;
Jak widzisz, jest to bajecznie proste. W rekordzie można umieścić dowolną ilość zmiennych. Normalnie (z chłopskiego punktu widzenia:)) rekord powinien zajmować tyle ile zmienne, które przechowuje. Tak jednak nie jest:( Wielkość rekordu zaokrąglana jest dodatkowo jeszcze do ośmiu bajtów. Żeby zlikwidować, to zaokrąglanie należy rekord spakować:
type
TRekord = packed rekord
Imie:String[10];
Nazwisko:String[10];
Wymiar_1:Byte;
Wymiar_2:Byte;
Wymiar_3:Byte;
End;
Jeśli rekord zawiera dużo zmiennych, to możliwe jest ułatwienie sobie uzupełniania ich wartości. Służy do tego instrukcja wiążąca with:
With Pam do
Begin
Imie:=’Pamelka’;
Nazwisko:=’Kowalska’;
...
End;
Prawda, że to łatwe?
Możliwe jest wykorzystanie tablic oraz rekordów razem:
Type
TOsoba=packed record
Imie:String[10];
Nazwisko:String[20];
End;
Var
Dane_Osobowe : array[0..1] of TOsoba;
Begin
Dane_Osobowe[0].Imie:=’Jonek’;
Dane_Osobowe[0].Nazwisko:=’Zapomniołem’;
Dane_Osobowe[1].Imie:=’Pietrek’;
Dane_Osobowe[1].Nazwisko:=’Anonimowy’;
End;
W takich przypadkach jest również możliwe wykorzystanie instrukcji with, ale już chyba nie muszę tłumaczyć, jak to zrobić:) Podpowiem tylko :
With Dane_Osobowe[0] do ...
To tyle.
Gujet (gujet@o2.pl)
Komentarzy: 0 | Głosuj (1,
2,
3,
4,
5,
6) | Ocena: 3.2 | Czytane: 1568 |  |
|
Komentarze |
|
|
Musisz się zalogować aby mieć możliwość komentowania
| |
|
|
|
| Copyright © p-zone.pl |
|
