СОХРАНЕНИЕ В 23 ФАЙЛА ПОДРЯД!!!!

[_FL@ER_]

Я пишу все тот же електронный журнал групы. Я создаю 23 файла (оддельно для каждого студента) и мне необходим алгоритм записи со стрингрида в нужный файл. В стринг грид можно вводить только оценки или посещаемость. Я все это пробую делать через динамический масив(каждого студента сначала в масив потом файл, и таким же образом чтение), но что то не выходит. Помогите пожалуйста =((

[_FL@ER_]

И еще необходимо привязывать оценку или "н" к дате, и студенту!!!

[_FL@ER_]

Обьясните почему может возникать ошибка чтения из файлов:
procedure TForm1.Save1Click(Sender: TObject);
var i, j, x, l:integer;
begin
for i:= 1 to 23 do
begin
assignfile(f,'save\'+inttostr(i)+'. txt');
rewrite(f);
for x:=0 to length(num)-1 do
begin
writeln(f,num[x].name);
writeln(f,num[x].mark);
writeln(f,num[x].date);
writeln(f,num[x].sub);
end;
closefile(f);
end;
end;


procedure TForm1.Show1Click(Sender: TObject);
var i, j, x, l:integer;
begin
for i:= 1 to 23 do
begin
assignfile(f,'save\'+inttostr(i)+'. txt');
while not eof(f) do
begin
setlength(num,length(num)+1);
readln(f,num[x].name);
readln(f,num[x].mark);
readln(f,num[x].date);
readln(f,num[x].sub);
inc(x);
end;
end;
Файловая переменная описана в глобальном варе.

Вот в красной строке оно не может найти файлы по заданому пути. Подскажите в чем может быть причина

[Jeni]

Сообщение от _FL@ER_

Вот в красной строке оно не может найти файлы по заданому пути. Подскажите в чем может быть причина

После внутреннего цикла не вызывается процедура closefile(f), т.е. файл не закрыт и идет попытка опять его открыть (при i=2)

[zetrix]

Я все это пробую делать через динамический масив(каждого студента сначала в масив потом файл, и таким же образом чтение), но что то не выходит. Помогите пожалуйста =((

Я конечно понимаю ваше разочарование, но как мы узнаем в чём там ошибка? Если не сложно, выложите исходники - разберёмся.

[mutabor]

Так должно работать

procedure TForm1.Show1Click(Sender: TObject);
var i, j, x, l:integer;
begin
x:=0; //иначе в ней может быть что угодно
for i:= 1 to 23 do
begin
assignfile(f,'save\'+inttostr(i)+'. txt'); //тут все верно
Reset(f);
while not eof(f) do
begin
setlength(num,length(num)+1);
readln(f,num[x].name);
readln(f,num[x].mark);
readln(f,num[x].date);
readln(f,num[x].sub);
inc(x);
end;
Closefile(f);
end;

[mutabor]

А вообще я сейчас подумал, может и так не работать, так как неясна задача. Сколько строк в файле, четыре? Зачем тогда Eof , если тебе известно сколько их? Да и переменная X возможно лишняя, можно i-1 обойтись.
И вообще тут одного типизированного файла за глаза хватит.