![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Всем привет!
Как сохранить данные из n Stringgrid'ов(размер n*m) в один файл? Я делаю что-то типа (в данном примере 3 стринггрида): Код:
var table:array [1..3] of Tstringgrid; begin for i:=1 to CompinentCount-1 do if form1.Components[i] is TStringGrid then begin table[j]:=components[i] as TStringGrid; Немогу никак доделать.Помогите. Последний раз редактировалось Yurk@@@, 13.10.2010 в 11:53. |
#2
|
||||
|
||||
![]() нетепизированный файл, и по блокам. Тема о нетепизированных чутка ниже
|
#3
|
|||
|
|||
![]() Вопрос решён
Код:
procedure TForm1.FormCreate(Sender: TObject); var e,i,j,u,x,y:integer; t:textfile; StringGrid:array[1..3] of TStringGrid; begin AssignFile(t,'C:\test.txt'); Rewrite(t); j:=1; e:=0; for i:=0 to form1.ComponentCount-1 do if form1.Components[i] is TStringGrid then begin StringGrid[j]:=components[i] as TStringGrid; j:=j+1; end; for u:=1 to 3 do begin e:=e+1; for x:=0 to stringgrid[u].RowCount-1 do for y:=0 to stringgrid[u].ColCount-1 do begin StringGrid[u].Cells[x,y]:=inttostr(e); writeln(t,stringgrid[u].Cells[x,y]); end; end; closefile(t); end; end. |