Список табличных данных

[Anfall]

Доброго времени суток.

Мне нужно в программе хранить что-то типа табличных данных (строковых). данных очень много.

Идея пришла такая.

//item
type Tdataitem = class
   a,b,c:string;
end;

//items
type Tdataitems = class(TList)
  procedure add(s:string);
  procedure Tdataitems.additem(path:string);
  destructor Destroy; override;
end;

destructor Tdataitems.Destroy;
var i : integer;
tmpItem : Tdataitem;
begin
  for i := 0 to Count-1 do
  begin
    tmpItem := Tdataitem(items[i]);
    freeandnil(tmpitem);
  end;      
  inherited;
end;

procedure Tdataitems.additem(path:string);
var
  tmpItem : Tdataitem ;
begin
    tmpItem := Tdataitem.Create;
    tmpitem.a:='some1';
    tmpitem.b:='some2';
    tmpitem.c:='some3';
    Add(tmpItem);
end;

И вот в Tdataitems храним каждый item. Насколько корректно такое хранение данных? Почему без inherited идет утечка?

И как реализовать правильнее все это? Везде, где искал очень мало инфы по этому поводу. Думаю что надо наверно список структур.

Заранее благодарен кто чем поможет.

[Пепел Феникса]

потому что inherited это вызов унаследованого деструктора.

[Anfall]

Сообщение от Пепел Феникса

потому что inherited это вызов унаследованого деструктора.

Так, уже яснее. А вообще в принципе, такой код, как у меня допустим? Я правильно делаю? Утечек нет, проверял. Но все равно, толком только начал понимать как работает Tlist.

[phomm]

А не логичнее написать нечто вроде Tlist в котором каждый Item суть Tstrings ?

Ttable = class(tlist)
protected
  function Get(Index: Integer): tstrings;
  procedure Put(Index: Integer; Item: tstrings);
public
function add (item : tstrings): integer;
property items [index:integer]: TStrings read get write Put;
end;

{ Ttable }
function Ttable.add(item: tstrings): integer;
begin
Result := inherited add(item);
end;
function Ttable.Get(Index: Integer): tstrings;
begin
Result := TStrings(inherited Get(index)) ;
end;
procedure Ttable.Put(Index: Integer; Item: tstrings);
begin
inherited put(Index,item);
end;

{testing}
procedure TForm_Main.Button1Click(Sender: TObject);
var tbl : Ttable;
i : Byte;
begin
tbl := Ttable.Create;
for i := 0 to 2 do begin
  tbl.add(stringgrid_In.Cols[i]);
  StringGrid_Out.Rows[i] := tbl[i]; //переворачиваем табличку из грида на 90 градусов
  end;
tbl.free;
end;

Ещё в объявление добавить прочие нужные функции из Tlist'a, а в реализации обернуть pointer'ы в Tsrtings. Ну и предусмотреть освобождение Item'ов если Ваш Ttable будет единственным их владельцем.

[Пепел Феникса]

А не логичнее написать нечто вроде Tlist в котором каждый Item суть Tstrings ?

ну тогда уж TObjectList

[mss]

данных очень много

Возможно разумней было бы отказаться от огорода с самописными классами в пользу готовых наследников TDataSet - TClientDataSet или TADODataSet

[Anfall]

Спасибо всем за ответы.