Из StringGrid В txt

[Roger_07]

Помогите пожалуйста! Мне надо перенести переменные по столбцам Из StringGrid В txt! Напишите прогрммный код! Заранее благодарен

[mihali4]

Содержимое каждой ячейки обозначается так:
StringGrid1.Cells[номер столбца, номер строки]
Строки и столбцы нумеруются с 0.
Количество столбцов - StringGrid1.ColCount-1
Количество строк - StringGrid1.RowCount-1
-1 как раз для учета столбца (строки) с нулевым индексом.
Следовательно, для первой строки будет:

mytext:='';
for i:=0 to StringGrid1.ColCount-1 do
mytext:=mytext+StringGrid1.Cells[i,0];

Аналогично для первого столбца, только тогда

mytext:='';
for i:=0 to StringGrid1.RowCount-1 do
mytext:=mytext+StringGrid1.Cells[0,i];

[Roger_07]

AssignFile(f,'C:\v.txt');
rewrite(f);
writeln(f,'Табличная функция');

For i:=0 to StringGrid1.RowCount-1 do begin
writeln(f,'x='+stringgrid1.cells[0,i]+' y='+stringgrid1.cells[1,i]);
end;
closefile(f);
Мне это надо было,уже в книге нашел!
Но спс все равно за отклик!