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