TreeView & WebBrowse, Делаем оболочку под лабы

[orkus]

Здравствуйте ))

Вот задали сделать оболочку под не большой набор лекций (по степенно будут добавляться изменяться) по этому будут храниться в html + к ним нужно сохранять путь к дополнительным файлам и еще не много инфы.

Вот взял за основу из книжки Флинова!


Но не могу до думать как схоронить : (

type
PnodeOptions=^nodeOptions;
nodeoptions=record
name :string[255];
surname:string[255];
addreess:string[255];
email:string[255];
end;

procedure TForm1.Button1Click(Sender: TObject);
var
nodename:string;
nodedata:PnodeOptions;
newnode:TTreeNode;
begin
if not inputquery('Новый элемент', 'Введите имя нового элемента', nodename ) then exit;

newnode:=treeView.Items.AddChild(treeView.Selected, nodename);

 //инцилацизация начальной структуры

 nodedata:=new(PnodeOptions);
 nodedata.name:='';
 nodedata.surname:='';
 nodedata.addreess:='';
 nodedata.email:='';



 newnode.Data:=nodeData;


end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if treeView.Selected=nil then exit;


pnodeoptions(  treeView.Selected.Data).name:=edit1.Text;
pnodeoptions(  treeView.Selected.Data).surname:=edit2.Text;
pnodeoptions(  treeView.Selected.Data).addreess:=edit3.Text;
pnodeoptions(  treeView.Selected.Data).email:=edit4.Text;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if treeView.Selected=nil then exit;
 treeView.Selected.Delete;
end;

Побывал пере меные пере делывал но что то с List:TList; я не разобрался (

Type
  PnodeOptions=^nodeOptions;
  NodeOptions=record
   way:string; //<--
   typeK:integer;  
 end;

var
  List:TList;

Const
  ListFileName = 'ListFile.dat';
  
procedure TForm1.ButtonSaveClick(Sender: TObject);
Var
  I,L:Integer;
  Stream:TFileStream;
  Node:PnodeOptions;
begin
  Stream:=TFileStream.Create(ListFileName,fmCreate);
  Try
    For I:=0 To List.Count-1 Do 
{так как List.Count-1  толи не создан  толи\и не заполнен  }
    Begin
      Node:=PnodeOptions(List.Items[I]);
      L:=Length(Node.Way);
      Stream.Write(L,SizeOf(L));
      Stream.Write(PChar(Node.Way)^,L);
      Stream.Write(Node.TypeK,SizeOf(Node.TypeK));
    End;
  Finally
    Stream.Free;
  End;
end;

procedure TForm1.ButtonLoadClick(Sender: TObject);
Var
  I,L:Integer;
  Stream:TFileStream;
  Node:PnodeOptions;
begin
  Stream:=TFileStream.Create(ListFileName,fmOpenRead);
  Try
    While Stream.Position<>Stream.Size Do
    Begin
      New(Node);
      Stream.Read(L,SizeOf(L));
      SetLength(Node.Way,L);
      Stream.Read(Pointer(Node.Way)^,L);
      Stream.Read(Node.TypeK,SizeOf(Node.TypeK));
      List.Add(Node);
    End;
  Finally
    Stream.Free;
  End;
end;

Читал
http://www.programmersforum.ru/showthread.php?t=51041
http://www.programmersforum.ru/showthread.php?t=39076
http://www.programmersforum.ru/showthread.php?t=51541

[XPAiN]

Дерево попробуй создать вот так:

procedure TForm1.CreateTree;
var i, j: integer;
  Node, Node1: TTreeNode;
begin

 
  TreeView1.Items.BeginUpdate;
  TreeView1.Items.Clear;

  
  for i := 1 to 5 do
  begin
 
    node := TreeView1.Items.Add(nil,inttostr(i));

    for j := 1 to 6 do
    begin

      node1 := TreeView1.Items.AddChild(node, inttostr(j));

    end;

  end;

  TreeView1.Items.EndUpdate;
  TreeView1.Select(TreeView1.TopItem);


end;

где inttostr(i) и inttostr(j) текст ветвей. Надеюсь разберешься

[orkus]

Это понятно как эту структуру сохранить в файл? + у каждой ветки должны быть 2 стоки где будет храниться путь до странички и еще 1 путь

Вот 2 вопрос меня волнует

[XPAiN]

чтобы это сделать с помощью обычного текстового в файла нужно изощряться сильно. Может база данных подойдет вместо файла?

[Alter]

Храните в XML, раньше уже выкладывал на форуме код хранения(загрузки) данных узлов, с сохранением древовидной структуры. Поищите.