TreeView - Archiv erstellen

[atgis]

Hi,

Ja Danke! Hat schon geholfen...Ich habs allerdings etwas anders gemacht.

Das Hauptpunkt (und automatisch Ordner im Stamm) erstellen, hab ich mit einer neuen Form und einen Edit-Feld gelöst. Da gibt man dann einfach den Ordnernamen ein:

Delphi-Quellcode:

//Hauptpunkt erstellen
procedure TForm1.NeuerNode1Click(Sender: TObject);
begin
 //Maske für Ordnernamen
 Form3.showmodal;

 //Hauptpunkt erstellen
 TreeView1.Items.Add(NIL,Form3.edOrdnername.text);

 //Ordner erstellen
 MkDir(ExtractFilePath(ParamStr(0))+Form3.edOrdnername.text);
end;

Unterpunkte machen funktioniert auch so. Allerdings sollen hier keine Ordner, sondern eine TXT-Datei mit den Unterordnernamen erstellt werden...Das funktioniert noch nicht...

Delphi-Quellcode:

//Unterpunkt erstellen
procedure TForm1.Unterpunkt1Click(Sender: TObject);
begin
 //Maske für Unterpunktnamen
 Form3.ShowModal;

 //Unterpunkt erstellen
 TreeView1.Items.AddChild(TreeView1.Selected,Form3.edOrdnername.text);

 //--->HIER *Form3.edOrdnername.text*+'.txt' im Hauptordner erstellen  :stupid: 
end;

Bsp:
Vergaser (Hauptpunkt und gleichzeitig Ordner)
Einstellungen1 (soll automatisch als Einstellungen1.TXT im Ordner Vergaser angelegt werden)
Einstellungen2 ( - || - )
Einstellungen3 ( - || - )
Zylinder
Kolben
...

Wenn ich jetzt auf Vergaser Klick soll sich am besten im Memo-Feld nichts tun. Erst wenn ich auf einen Sub-Node klicke soll sich das Memo-Feld mit ../Stamm/Vergaser/Einstellung1.txt u.s.w füllen.
Bei Klick auf Kolben soll sich ../Stamm/Zylinder/Kolben.txt öffnen...

Delphi-Quellcode:

//Inhalt von TXT's in Memo Laden
procedure TForm1.TreeView1Click(Sender: TObject);
begin
 Memo.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + TreeView1.Selected.Text+'\'+TreeView1.Selected.Text+'.txt');
end;

So öffnet sich aber immer logischerweise ../Stamm/Vergaser/Vergaser.txt oder ../Stamm/Einstellungen1/Einstellungen1.txt oder ../Stamm/Zylinder/Zylinder.txt

Speichern des z.b. frisch bearbeiteten Memo-Feldes:

Delphi-Quellcode:

//Neuen Inhalt Speichern
procedure TForm1.Speichern1Click(Sender: TObject);
begin
   Memo.Lines.SaveToFile(ExtractFilePath(ParamStr(0)) + TreeView1.Selected.Text+'\'+TreeView1.Selected.Text+'.txt');
end;

Funktioniert bei den Hauptpunkten...da der Pfad vorhanden ist ../Stamm/Vergaser/Vergaser.txt
bei den Unterpunkt Einstellungen ->Eception^^<- da es den Pfad ../Stamm/Einstellungen1/Einstellungen1.txt benutzt, der aber nicht vorhanden ist...

Er sollte eben ../Stamm/Vergaser/Einstellungen1.txt heißen...dann würde alles funzen




EDIT: Wie lösche ich ein Einzelnen Node? Ich kann nur mit TreeView.Items.Clear; alle löschen!