[Yurk@@@]

Всем привет!
Как сохранить данные из n Stringgrid'ов(размер n*m) в один файл?
Я делаю что-то типа (в данном примере 3 стринггрида):

Код:

var table:array [1..3] of Tstringgrid;
begin
for i:=1 to CompinentCount-1 do
if form1.Components[i] is TStringGrid then begin
table[j]:=components[i] as TStringGrid;

Немогу никак доделать.Помогите.

[Uniq!]

нетепизированный файл, и по блокам. Тема о нетепизированных чутка ниже

[Yurk@@@]

Вопрос решён

Код:

procedure TForm1.FormCreate(Sender: TObject);
var e,i,j,u,x,y:integer;
              t:textfile;
     StringGrid:array[1..3] of TStringGrid;
begin
  AssignFile(t,'C:\test.txt');
  Rewrite(t);
  j:=1;
  e:=0;
  for i:=0 to form1.ComponentCount-1 do
  if form1.Components[i] is TStringGrid then
    begin
      StringGrid[j]:=components[i] as TStringGrid;
      j:=j+1;
    end;
  for u:=1 to 3 do
    begin
    e:=e+1;
    for x:=0 to stringgrid[u].RowCount-1 do
    for y:=0 to stringgrid[u].ColCount-1 do
      begin

       StringGrid[u].Cells[x,y]:=inttostr(e);
        writeln(t,stringgrid[u].Cells[x,y]);
      end;
    end;
  closefile(t);
end;
end.