Код:
procedure TForm1.Button1Click(Table:TStringGrid);
var
List:TStringList;
i,j,rw,cl:integer;
doc1:TextFile;
begin
List:=TStringList.Create;
rw:=StringGrid1.RowCount;
cl:=StringGrid1.ColCount;
with Table do
for i:=0 to rw-1 do
for j:=0 to cl-1 do
List.Add(StringGrid1.Cells[j,i]);
List.SaveToFile('doc1.txt');
CloseFile(doc1);
end;
end.
Админ: Пользуемся тегами для оформлении кода!