[aavov]

Код:

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.

Админ: Пользуемся тегами для оформлении кода!

[poli-smen]

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

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.

Зачем закрывать через "CloseFile(doc1)" если переменная doc1 нигде не открывалась?
Зачем вообще здесь переменная "doc1:TextFile" если она нигде не используется (не считая непонятной попытки её закрыть)?
Зачем здесь "with Table do" если внутри всё равно используется напрямую "StringGrid1"?
Если Button1Click это обработчик щелчка кнопки почему у него в параметрах "Table:TStringGrid" вместо "Sender: TObject"?

UPD
Ещё не освобождается объект "List" - будут утечки памяти.