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

[Hacker19_90]

интересно, как тогда по вашему такой массив называется???
Код:

mass: array of integer;

Ну хотя бы массив неопределённой длины!!!

[vityanya]

именно из массива...
вот по этой процедуре:

procedure Tform1.save;
var cp:file of tcomp;
begin
if savedialog1.Execute then begin
assignfile(cp, savedialog1.filename);
rewrite(cp);
for i:=1 to n do
write(cp,Comp1[i]);
closefile(cp);
end;
end;

не сохраняет вообще его... то есть я к примеру указал тип файла *.тхт он пуст...

[Sanprof]

пройдите пошагово, возможно у вас Comp1[i] пустой или n = 1

[Stilet]

for i:=1 to n do

А n чему равно? если работешь с динмассивами то привыкни к такому:

 for i:=low(comp1) to high(comp1)...

Пусть сам вычисляет размер массива.

[GunSmoker]

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

если работешь с динмассивами то привыкни к такому

Только для динамических массивов low всегда равно 0.

[Stilet]

GunSmoker

Верно, но все-тки я считаю это хорошим стилем.

[vityanya]

Вот пример сохранения программы знакомого:

procedure Tform2.saveclient;
var cl:file of tclient;
begin
if form3.savedialog1.Execute then begin
assignfile(cl,form3.SaveDialog1.filename);
rewrite(cl);
for i:=1 to count do
write(cl,cln[i-1]);
closefile(cl);
end;
end;

у меня практически тоже самое... ед. отличие у него count у меня n

а кого можно будет вечером в аське подоставать с вопросами???)))

[Hacker19_90]

А ты ошибку то понял?

procedure TForm1.Add2;
begin
n:=0;{постоянно пишете в одно и тоже место}
setlength(comp1,n+1);
Comp1[n].user:=Form2.Edit1.Text;
Comp1[n].seans:=Form2.Edit2.Text;
try
Comp1[n].vr:=StrtoFloat(Form2.Edit3.Text);
except
ShowMessage('Введите число');
end;
try
Comp1[n].tar:=StrtoFloat(Form2.Edit4.Text);
except
showMessage('Введите число');
end;
try
Comp1[n].stkons:=StrtoFloat(Form2.Edit5.Text);
except
showMessage('Введите число');
end;
try
Comp1[n].skid:=StrtoFloat(Form2.Edit6.Text);
except
showMessage('Введите число');
end;
end;

И при этом n не увеличиваете! Поэтому и получаете последний элемент он же первый!

[vityanya]

то есть надо прописать n:=n+1; ???

[Hacker19_90]

Да! Или просто пишите Inc(n);
При этом в функции добавления n постоянно обнуляется! Сделайте это допустим в FormCreate(); А из функции уберите!