|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
StringList-где ошибки? спасибо
Код:
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. Последний раз редактировалось Admin, 16.11.2013 в 12:09. |
#2
|
||||
|
||||
Цитата:
Зачем вообще здесь переменная "doc1:TextFile" если она нигде не используется (не считая непонятной попытки её закрыть)? Зачем здесь "with Table do" если внутри всё равно используется напрямую "StringGrid1"? Если Button1Click это обработчик щелчка кнопки почему у него в параметрах "Table:TStringGrid" вместо "Sender: TObject"? UPD Ещё не освобождается объект "List" - будут утечки памяти. Последний раз редактировалось poli-smen, 16.11.2013 в 11:38. |