Создание массива из N таблиц.

← →
quark (2002-05-17 18:56) [0]

Люди надо создать массива из N таблиц
и в каждой их ячейе сохранить не только текст но и еще невидимую пользователю в обычном виде строку. Как например в Exele вставляються формулы.

← →
igor_2k © (2002-05-17 20:59) [1]

var
a[n]: array of TStringGrid;
n,i,j: integer;
begin
a[1].cells[i,j]:="что угодно";
дальше думаю догадаешься

← →
KilkennyCat © (2002-05-18 03:36) [2]

а вдруг не догадается?

Type Tvisiblenotvisible = record
visible : TStringGrid;
notvisible : TStringGrid;
end;

var
vnv : array[n] of Tvisiblenotvisible;

a[1].cells[i,j]:=vnv[1].visible.cells[i,j];
а в vnv[1].notvisible.cells[i,j] - та самая "формула в екселе"

надо использовать свойство Objects ячеек (как в TStringList),
вторая таблица ни к чему

Создание массива из N таблиц. Найти похожие ветки