блин у меня мозги уже плавлятсо от кодинга))
подскажыте почему не работает :
procedure read_(k:string);
var res:resource;
g:string;
i:integer;
begin
res:=openresource(k);
if (resourceAvailable(res)) then
begin
g:=readline(res);
repeat
if (g='1') or (g='2') or (g='3') or (g='4') then
begin
i:=stringtointeger(g);
end
else
begin
para[i].nazva:=g;
para[i].prepod:=readline(res);
para[i].aud:=readline(res);
end;
g:=readline(res);
until g='#';
end;
CloseResource(res);
end;
Пример содержымого файла :
1
Лек. Об’єктивно–орієнтовне програмування
Лісовець
Аудиторія:1-0413
2
Лек. Релігієзнавство
Множинська Р.В.
Аудиторія:4-0505
#
|
проблема 1оо% не в имени файла а в считывании с файла...