Witam, mam problem, ponieważ pisałem program na podstawie innego, wszystko działa dobrze oprócz zapisywania do bazy danych (w oryginale też jest ten problem). Po właczeniu można sobie coś dopisać i potem wybrać odnośnik z menu i wszystko jest jak nalezy,a le gdy wyłącze program i włacze na nowo, program nie czyta nic(bo nic nie zapisał). Oto fragment kodu:
type
Gra=record
Tytul:string[30];
Platforma:string[15];
Gatunek:string[10];
end;
var
wbazie:array[0..gry-1] of Gra;
liczbagier:integer;
implementation
const baza='gry.dat';
procedure zapiszgry;
var
plik: file of gra;
i:integer;
begin
assign(plik,baza);
rewrite(plik);
for i:=0 to liczbagier-1 do
write(plik, wbazie[i]);
close(plik);
end;
procedure pokazgry;
var
plik:file of gra;
i:integer;
begin
{$i-}
assign(plik,baza);
reset(plik);
i:=0;
if ioresult=0 then
begin
while not eof(plik) do
begin
read(plik, wbazie[i]);
inc(i);
end;
close(plik);
end;
{$i+}
liczbagier:=i
end;
Z góry dziekuje za pomoc. Pozdrawiam :)