Цитата:
|
Сообщение от 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" - будут утечки памяти.