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

[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-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;

помогите кто чем может)

[Stilet]

Comp1[i-1]

Что такое Comp1?

[Hacker19_90]

Ну наверно Comp1 - это массив типизированный!
Я вот ток не пойму

я сохраняю данные из двумерного массива

А почему обращаетесь как к одномерному? (Или я чё путаю???)

[Sanprof]

во первых я не увидел где у вас двумерный массив, выжу только одномерный, а по сути запись двумерного массива в файл и чтение его от туда можно сделать по такому алгоритму:

cp: TextFile;
str: String;
mass: array[0..200, 0..100] of real;//к примеру
// тра-ля-ля там окрытие файла, перезапись и тп
.....
   for i := 0 to 199 do
     begin
       for n := 0 to 99 do
         str := str + floattostr(mass[i, n]) + '|'{<-это разделитель};

         writeln(cp, str);
       end;

с чтение из файла я думаю разберетесь

P.S.
код не проверял могут быть ошибки

[Hacker19_90]

cp: TextFile;

vityanya наверно блоками пишет. Так что тут текстовой файл не подойдёт!

[vityanya]

Сори ребят, ошибся... массив сам по се безразмерный... как то так...

вот я добавляю строки:

//Добавление строк в стринггрид
procedure TForm1.Button6Click(Sender: TObject);
begin
n:=StrtoInt(Edit1.Text);
StringGrid1.RowCount:=n+1;
for i:=1 to n do
  begin
  StringGrid1.Cells[0,i]:=InttoStr(i);
  end;
end;

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

//Заполнение массива
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;

тут вроде как я заполняю строку стринггрида(p-это индекс выделенной строки):

//Вывод данных в стринггрид
procedure TForm1.print;
begin
stringgrid1.ColCount:=8;
stringgrid1.cells[1,p]:=Comp1[n].user;
stringgrid1.cells[2,p]:=Comp1[n].seans;
stringgrid1.cells[3,p]:=floattostr(Comp1[n].vr);
stringgrid1.cells[4,p]:=floattostr(Comp1[n].tar);
stringgrid1.cells[5,p]:=floattostr(Comp1[n].stkons);
stringgrid1.cells[6,p]:=floattostr(Comp1[n].skid);
stringgrid1.cells[7,p]:=floattostr(Comp1[n].tar*Comp1[n].vr+Comp1[n].stkons-(Comp1[n].tar*Comp1[n].vr)*(Comp1[n].skid/100));
end;

[Sanprof]

тогда просто напрямую

   for i := 0 to stringgrid1.Cols.count-1 do
     begin
       for n := 0 to stringgrid1.Rows.count-1 do
         str := str + floattostr(stringgrid1.cells[i, n]) + '|'{<-это разделитель};

         writeln(cp, str);
       end;

или вам нужно сохранять именно из массива в файл???

[GunSmoker]

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

безразмерный...

Новые открытия российских студентов!

[Sanprof]

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

Новые открытия российских студентов!

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

mass: array of integer;

а такой???

mass: array[0..9] of integer;

[Пепел Феникса]

GunSmoker, я думаю имелось в виду динамический.