TreeView:einträge selbst speichern

[mimi]

Hallo,
ich möchte gerne einträge ohne die funktion SaveToFile speichern denn ich muss die einträge in ein eigens format speicher das so aussieht:

Delphi-Quellcode:

test1\0\1\2
3
test444\test5

das einlesen funktioniert schon auch das löschen nur beim speichern komme ich nicht weiter .
das einlesen funktioniert so:

Delphi-Quellcode:

procedure TForm5.FillTreeView(Datei:TFileName;TreeView:TTreeView);
var
  i,t:Integer;
  daten:TStringList;
  str:String;
  temp:TTreeNode;
begin
  daten:=TStringList.Create;
  daten.LoadFromFile(Datei);

  for i:=0 to Daten.Count-1 do begin
    str:=Daten.Strings[i];
    temp:=nil;
    for t:=1 to NumToken(str,'\') do begin
      temp:=TreeView.Items.AddChild(temp,Gettoken(str,'\',t))
    end;
  end;
end;
//das löschen so:
  if MessageDlg('Wirklich löschen ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    TreeView1.Selected.Delete;

und beim speichenen müste er das genau in diesen format speichern:

Delphi-Quellcode:

test1\0\1\2
3
test444\test5

ich habe die Forensuche benutzt und habe leider nichts gefunden was mir weiter geholfen hätte

[etom291272]

ich würde prinzipiell beim speichern einer treeview nicht über text sondern über eine datenbank gehen
kuckst du Hier

[mimi]

danke für deine antwort doch leider habe ich keine DB unterstüzung.
und ich glaube das würde sich in meinen fall auch garnicht lohnen.

das Thema habe ich auch schon gefunden und auch das mit der TreeViewToIni funktion.
Beider hilft mir nicht wirklich weiter.

[Khabarakh]

Zitat von mimi:

das einlesen funktioniert schon auch das löschen nur beim speichern komme ich nicht weiter .

Und wie weit bist du schon gekommen?
Erstelle eine StringList und füge für jeden Hauptknoten eine Zeile ein. Solange TTreeNode.Count nicht null ist, hängst du an die Zeile '\' + Item[0] des aktuellen Knotens an und machst diesen zum aktuellen.

[tigerman33]

Irre ich mich, oder gehen dabei alle Knoten, die sozusagen "Zweitgeborene" sind über den Jordan?

Test1\1\x
Test1\2\c <-- der hier stirbt doch, oder?

[Khabarakh]

Ich bin davon ausgegangen, dass es keine "Zweitgeborenen" gibt. Denn miris Code zum Laden würde dann für jeden Unterknoten den gesamten Zweig noch einmal erstellen.

[marabu]

Hallo Michael.

Code:

test1\0\1\2
3
test444\test5

Steht das Format wirklich fest? Ist es kontextfrei? Oder was ist die Bedeutung der 3 in der zweiten Zeile? Wie soll mit Namensgleichheiten umgegangen werden?

Grüße vom marabu

[mimi]

das Format steht eigentlich schon fest und ich würde es nur ungern umändern
die drei in der zweiten zeile soll ein einfacher menupunkt werden also kein untermenu....
und das klappt ja auch schon wunderbar *G*

@tigerman33
was meinst du damit ?
also in meinen tests hat es funktioniert !

[tigerman33]

Zitat von mimi:

@tigerman33
was meinst du damit ?
also in meinen tests hat es funktioniert !

Solange jeder Knoten nur maximal einen Unterknoten hat, funktioniert das auch. Wenn das bei dir auf jeden Fall zutrifft, hat sich mein Einwand erledigt.

[marabu]

Hallo Michael,

zum Speichern kannst du folgende Funktionen verwenden. Ich bevorzuge das zweite Format.

Delphi-Quellcode:

// Format: knoten\unterknoten
function TreeNodePath(node: TTreeNode; delimiter: char): string;
begin
  if Assigned(node) then
  begin
    Result := TreeNodePath(node.Parent, delimiter);
    if Result <> '' then
      Result := Result + delimiter;
    Result := Result + node.Text;
  end
  else Result := '';
end;

// Format: \knoten\unterknoten
function TreeNodePath(node: TTreeNode; delimiter: char): string;
begin
  if Assigned(node)
    then Result := TreeNodePath(node.Parent, delimiter) + delimiter + node.Text
    else Result := '';
end;

marabu