Array vs. TTreeView

evt sådan :

type

  PMyRec = ^TMyRec;

  TMyRec = Record
    Text : String;
    Subs : array of PMyRec;
  end;

var
  MyArr : array of TMyRec;

Gider du at lave et eksempel, hvis hiearki se således ud...

A┐
│
├B─┐
│  ├B1
│  ├B2
│  └B3
└C─┐
    ├C1
    ├C2┐
    │  └D
    └C3

Tak... :-P

ZeroHero

Hvad.... det ser jo helt mærkligt ud...

A
.
.B...B1
.  .B2
.
.C...C1
    .C2
    .C3

Du skal vel gøre noget i denne stil :

SetLength(MyArr,10);
SetLength(MyArr[0].Subs,10);
MyArr[0].Text := \'A\';
MyArr[0].Subs^[0].Text := \'A1\';

Jeg har ikke lige tid til at forsøge

ok... jeg prøver - tak :-P

Delphi brokker sig og skriver følgende:

[Error] Unit1.pas(38): Pointer type required

ZeroHero

Hmm, skal det være et array du skal bruge, hvad med en StringList istedet for, så kan du lægge en sub StringList i Objects, det funker fint, det har jeg tit lavet

ok... jeg prøver

Hvordan?

VAR
  MyList : TStringList;
  Cnt : Integer;
begin
  MyList := TStringList.Create;
  MyList.AddObject(\'A\',TStringList.Create);
  Cnt := MyList.AddObject(\'B\',TStringList.Create);
  TStringList(MyList.Objects[Cnt]).AddObject(\'B1\',TStringList.Create);
  TStringList(MyList.Objects[Cnt]).AddObject(\'B2\',TStringList.Create);
....
....
  MyList.AddObject(\'C\',TStringList.Create);
 
end;

Også vidre, det er ret enkelt.

/MArtin