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

[Stilet]

vityanya

Сделай так как сказал я, и забудь про образмеривание массивов в циклах вручную.

[vityanya]

ммм.... вот ща нашел его заполнение массива...

procedure TForm2.Addclient;
begin
count:=count+1;
setlength(cln,count+1);
cln[count-1].sur:=form3.edit1.text;
cln[count-1].n:=form3.edit5.text;
cln[count-1].otch:=form3.edit6.text;
cln[count-1].kol:=strtoint(form3.edit7.text);
cln[count-1].ph:=strtoint(form3.edit11.text);
if form3.RadioButton1.Checked=true then
cln[count-1].sex:='ì';
if form3.RadioButton2.Checked=true then
cln[count-1].sex:='æ';
if cln[count-1].kol>50 then
cln[count-1].skid:=40
else
cln[count-1].skid:=0;
clearlist;
end;

зачем прописывается count-1 ? и в чем разница между моим заполнением?

procedure TForm1.Add2;
begin
n:=n+1;
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;

[Stilet]

зачем прописывается count-1 ?

Потому что динмассив начинается не с единице как в Паскале а с нуля как в Си
Поэтому от кол-ва элементов отнимается 1

[Hacker19_90]

Потому что индексы начинаются с 0! A первое выполнение count:=count+1; даёт 1!!

[vityanya]

и в чем разница между моим заполнением?

непонятно(((

[Stilet]

count:=count+1;
setlength(cln,count+1);

Мне тоже не понятно... Зачем эту глупость писать, в массиве получается один элемент лишний.

[vityanya]

Stilet

я без этого написал, все работает, добавляет звапись в стринггрид... но вот сохраняет чушь какую то:

9
9 "@ "@ "@ "@

вот так отображюатся в текстовике введенные мною шесть 9-ток

[vityanya]

я вроде понял... у меня первые два эдлемента строковые в массиве, он их отображает 9-тками... а остальное в том числе 7-ой элемент- это сумма... он отображает в виде "@

[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.print;
begin
stringgrid1.ColCount:=8;
stringgrid1.cells[1,p]:=Comp1[n-1].user;
stringgrid1.cells[2,p]:=Comp1[n-1].seans;
stringgrid1.cells[3,p]:=floattostr(Comp1[n-1].vr);
stringgrid1.cells[4,p]:=floattostr(Comp1[n-1].tar);
stringgrid1.cells[5,p]:=floattostr(Comp1[n-1].stkons);
stringgrid1.cells[6,p]:=floattostr(Comp1[n-1].skid);
stringgrid1.cells[7,p]:=floattostr(Comp1[n-1].tar*Comp1[n-1].vr+Comp1[n-1].stkons-(Comp1[n-1].tar*Comp1[n-1].vr)*(Comp1[n-1].skid/100));
end;

Вот процедура сохранения в файл:

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

во процедура открытия:

procedure TForm1.load;
 var cp:file of tcomp;
 begin
 if OpenDialog1.Execute then begin
 assignfile (cp,OpenDialog1.filename);
 reset(cp);
 i:=0;
 while not(eof(cp)) do begin
 i:=i+1;
 setlength(Comp1, i);
 read(cp,Comp1[i-1]);
 end;
 closefile(cp);
 end;
 print;
end;

что где не так???(((

[psycho-coder]

Вот тут как то писал сохранение и загрузку из стринг грида
Нужно чуть изменить
http://programmersforum.ru/showthread.php?t=56987#8