Witam , mam do napisania program ktory wczytuje zapisauje dodaje, edytuje i wyswietla dane, mam problem z zapisaniem i wczytaniem, oto co stworzylem:
procedure wczytaj;
begin
assign(plik,'C:\zag.txt');
reset(plik);
while not EOF(plik) do
begin
ile:=0;
inc(ile);
read(plik,_Zaglowki[ile]);
end;
close(plik);
end;
procedure zapisz;
begin
assign(plik,'c:\zag.txt');
rewrite(plik);
for i:=1 to ile do
write(plik,_Zaglowki[ile]);
close(plik);
end;
Niestety nie chce zapisaywac ani wczytywac, co zrobic zeby dzialało, prosze o pomoc:)