Нужна помощь по сохранению в файл и открытие его...

[Sanprof]

Сообщение от vityanya

вот мой массив заполняется:

procedure TForm1.Add2;
begin
setlength(comp1,n+1);
Comp1[n-1].user:=Form2.Edit1.Text;
Comp1[n-1].seans:=Form2.Edit2.Text;
try
Comp1[n-1].vr:=StrtoFloat(Form2.Edit3.Text);
except
ShowMessage('Ââåäèòå ÷èñëî');
end;
try
Comp1[n-1].tar:=StrtoFloat(Form2.Edit4.Text);
except
showMessage('Ââåäèòå ÷èñëî');
end;
try
Comp1[n-1].stkons:=StrtoFloat(Form2.Edit5.Text);
except
showMessage('Ââåäèòå ÷èñëî');
end;
try
Comp1[n-1].skid:=StrtoFloat(Form2.Edit6.Text);
except
showMessage('Ââåäèòå ÷èñëî');
end;
end;

procedure TForm1.Add2;
begin
inc(n);
setlength(comp1,n);
Comp1[n-1].user:=Form2.Edit1.Text;
Comp1[n-1].seans:=Form2.Edit2.Text;
try
Comp1[n-1].vr:=StrtoFloat(Form2.Edit3.Text);
except
ShowMessage('Ââåäèòå ÷èñëî');
end;
try
Comp1[n-1].tar:=StrtoFloat(Form2.Edit4.Text);
except
showMessage('Ââåäèòå ÷èñëî');
end;
try
Comp1[n-1].stkons:=StrtoFloat(Form2.Edit5.Text);
except
showMessage('Ââåäèòå ÷èñëî');
end;
try
Comp1[n-1].skid:=StrtoFloat(Form2.Edit6.Text);
except
showMessage('Ââåäèòå ÷èñëî');
end;
end;

разницу выдно посравнению с тем как вы писали

n := n +1;
setlength(comp1,n+1);

[Sanprof]

если надо вот примерцик по вашему случаю
Save_Load.rar

[vityanya]

Sanprof

Благодарен, попробую че нить с этим) спасибо.

[vityanya]

Sanprof

странно по вашему способу у меня открывает две заполненные строчки, только 8 и 9 строку вместо 2 и 5 даже вместо любой другой... я заполнил две строки, сохранил, он мне 8 и 9 при открытии...