|
|
Регистрация | << Правила форума >> | 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. |