Witam.
Mam problem z programem, który korzysta z odczytu i zapisu danych do pliku.
Część głównego pliku kontakty.pas:
uses CRT;
type Kontakt=record
imie, nazwisko, telefon, email, grupa:Array[1..100] of String;
end;
var menu:Char;
plik:Text;
osoba:Kontakt;
i,nr_grupy:Byte;
link:String;
procedure OdczytGrup;
begin
i:=0;
While EOF(plik) Do
begin
i:=i+1;
Writeln(plik, osoba.grupa[i]);
end;
end;
procedure DodajGrupe;
begin
Write('Podaj nazwe nowej grupy kontaktow: ');
{Otworzenie pliku grupy.dat i wyliczenie ilosci istniejacych grup}
Assign(plik, './dane/grupy.dat'); //tutaj wyskakuje błąd 105, który mówi, że nie można otworzyć pliku do odczytu
Reset(plik);
FileMode:=0;
nr_grupy:=0;
OdczytGrup;
Close(plik);
{Nadanie numeru dla nowej grupy i stworzenie jej jako oddzielnego pliku tekstowego}
nr_grupy:=i+1;
Readln(osoba.grupa[nr_grupy]);
link:='./dane/' + osoba.grupa[nr_grupy] + '.dat';
Assign(plik, link);
ReWrite(plik);
Close(plik);
{otworzenie jeszcze raz pliku grupy.dat oraz dopisanie do listy nowej grupy}
Assign(plik, './dane/grupy.dat');
Append(plik);
Readln(plik, osoba.grupa[nr_grupy]);
Close(plik);
end;
Katalog dane, w którym znajduje się plik grupy.dat, jest w tym samym katalogu co kontakty.pas.
Pulpit/kontakty/dane/grupy.dat
Pulpit/kontakty/kontakty.pas
Jaka może być przyczyna tego problemu? Czy to ma znaczenie dla kompilatora czy owy plik został stworzony ręcznie czy przez procedurę ReWrite?