TreeView - Archiv erstellen

[IceTube]

Hallo,

falls ich dich richtig verstanden habe müsste es so gehen:

Delphi-Quellcode:

//Hauptpunkt erstellen 
procedure TForm1.NeuerNode1Click(Sender: TObject); 
begin 
TreeView1.Items.Add(NIL,('Neuer Hauptpunkt')); //Das "T" vergessen ;)

//Ordner erstellen 
MkDir(ExtractFilePath(ParamStr(0))+'name'); 
end;


// So wird der Ordner erstellt!

//Procedur vom Treeview --> NodeEdited
var S:Text
Node : TTreeNode;
begin
//Erstelle Ordner
try
if DirectoryExists(S) = false then MkDir(ExtractFilePath(ParamStr(0))+'\'+S);
except
Node.Delete;
exit;
end;
end;

//Unterpunkt erstellen 
procedure TForm1.Unterpunkt1Click(Sender: TObject); 
begin 
TreeView1.Items.AddChild(TreeView1.Selected,('Neuer Unterpunkt')); 
end;


//Willst du die Memo mit einem Button speichern....
procedure Button1.onClick....(etc..)
begin
//Irgend ein Name vom Memo1 tXt
try Memo1.Lines.SaveToFile(ExtractFilePath(ParamStr(0)) +'\'+ TreeView1.Seleted.Tex +'\'+'Memo1.TxT');
except
//Existiert nicht
exit;

//Vom Unterpunkt - ich glaub das heißt TreeView.Selected.Item[0]....vielleicht aber auch
//...Selected.Value[0]....musst probieren....
try Memo1.Lines.SaveToFile(ExtractFilePath(ParamStr(0)) +'\'+ TreeView1.Seleted.Text +'\'+TreeView1.Selected.Item[0].Text);
except
//Existiert nicht
exit;

end;
end;

//laden wenn man auf eine Node klickt
procedure TreeView.onClick //etc
begin
try Memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + TreeView1.Seleted.Text+'Memo1.TxT');
except
//Nicht gefunden
exit;
end;
end;

So...ich hoffe ich hab dir geholfen!

lg