// oto kod źródłowy, próbowałem już zmieniać typy danych i w ogóle, ale nic nie działa
BD : Tinifile;
s : Tstrings;
tab:Array[1..10] of record
imie,nazwisko,miejsce_ur,miejsce,stanowisko,ulica,kodpocz,miejscowosc:string;
dzien,miesiac,rok,wzrost,waga,ile:Longint;
end;
(...)
procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
if not fileexists(ExtractFilePath(Application.ExeName) + 'BD.ini') then begin
messagebox(0,'Nie ma pliku z danymi!!!','Bład!!!',MB_OK);
Halt(1);end;
BD := TINIFile.Create(ExtractFilePath(Application.ExeName) + 'BD.ini');
s:=Tstringlist.Create;
BD.ReadSections(s);
for i:=0 to s.Count do
begin
tab[i].imie:=(bd.ReadString(s[i],'Imie','?'));
tab[i].Nazwisko:=(bd.ReadString(s[i],'Nazwisko','?'));
tab[i].dzien:=(bd.ReadInteger(s[i],'dzien',0));
tab[i].Miejsce_ur:=(bd.ReadString(s[i],'Miejsce_ur','?'));
tab[i].wzrost:=(bd.ReadInteger(s[i],'wzrost',0));
tab[i].waga:=(bd.ReadInteger(s[i],'waga',0));
tab[i].ile:=(bd.ReadInteger(s[i],'ile',0));
tab[i].stanowisko:=(bd.ReadString(s[i],'stanowisko','?'));
tab[i].miesiac:=(bd.ReadInteger(s[i],'miesiac',0));
tab[i].rok:=(bd.ReadInteger(s[i],'rok',0));
tab[i].Kodpocz:=(bd.ReadString(s[i],'kodpocz','?'));
tab[i].miejscowosc:=(bd.ReadString(s[i],'miejscowosc','?'));
tab[i].Miejsce:=(bd.ReadString(s[i],'Miejsce','?'));
end;
uzupelnij;
end;
```
```