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:

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:

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

[mimi]

@tigerman33
nein es können/sollen auch mehre unterpunkte erzeugt werden als nur einen....
werde ich gleich mal testen !

@marabu
besten dank werde ich sorfort testen :-D

[mimi]

@tigerman33
du hattes recht, im menue wird es richtig angezeigt in der Treeview leider nicht

@@marabu
kann ich leider noch nicht beurteieln, weil ich leider nicht weißt wie ich ihn aufrufen soll ich habe probiert:

Delphi-Quellcode:

  TreeNodePath(TreeView1.Items.GetFirstNode,'\');

aber anscheiend tut er so garnichts....

so bis später(eine woche :( muss leider wieder nach Hause)

[marabu]

Hallo Michael,

der Aufruf ist schon nicht schlecht. Irgendwann musst du dann auch mal das Funktionsergebnis anschauen:

Delphi-Quellcode:

var
  s: string;
begin
  s := TreeNodePath(TreeView1.Items.GetFirstNode,'\');
  // ...
end;

Freundliche Grüße vom marabu

[mimi]

Delphi-Quellcode:

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

und wie kann ich es ändern seit tagen versuche ich das Problem zu lösen bis jetzt leider ohne sichtbaren erfolg :( :( :(

[mimi]

@marabu
besten dank hat funktioniert:

Delphi-Quellcode:

procedure TForm5.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   s:=TreeView1.GetNodeAt(x,y);
   TreeView1.Selected:=s;
   if s <> nil then
     Label2.Caption:=TreeNodePath(s,'\')
   else
     label2.Caption:='';
end;

Zum speichern und laden nutze ich einfach diese funktionen:

Delphi-Quellcode:

procedure LoadTreeFromFile(TreeView:TTReeView;FileName:TFileName);
var
  F: TFileStream;
begin
  F := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    F.ReadComponent(TreeView);
  finally
    F.Free;
  end;
end;

procedure SaveTreeToFile(TreeView:TTReeView;FileName:TFileName);
var
  F: TFileStream;
begin
  F := TFileStream.Create(FileName, fmCreate or fmShareCompat);
  try
    F.WriteComponent(TreeView);
  finally
    F.Free;
  end;
end;

von: http://www.swissdelphicenter.ch/

edit: ich glaube ich habe jetzt ein anders problem: und zwar beim meinem TMenuitem ! :oops:

[F.W.]

Probier mal folgenden Code, den ich gerade geschrieben habe, da ich mich auch wieder damit auseinandersetzen musste :D

Der Code ist für Text-Dateien in der Form

Code:

C:\WINDOWS\system
C:\WINDOWS\system32
D:\Eigene Dateien\...
D:\Eigene Dateien\...\Eigene Bilder\...

...

Delphi-Quellcode:

//Zum Kopieren von einer Position bis zu einer anderen Position
function CopyFT(Eingabe: String; Von, Zu: Integer): String;
begin
 Result := Copy(Eingabe, Von, Zu-(Von-1) );
end;

//Um ein Glied eines Pfades zu bekommen
function GetPart(S: String; const Index: Integer): String;
var
 Len, P, C: Integer;
begin
 S := IncludeTrailingBackslash(S);
 Len := Length(S);

 P := 0;
 C := 0;

 repeat
   if C = Index then begin
      Result := CopyFT(S, P+1, PosEx('\', S, P+1)-1);
      Break;
   end;

   P := PosEx('\', S, P+1);
   Inc(C);
 until P = Len;
end;

//Um zu bestimmen wieviele Glieder ein Pfad besitzt
function PartsCount(S: String): Integer;
var
 Len, P: Integer;
begin
 S := IncludeTrailingBackslash(S);
 Len := Length(S);

 P := 0;
 Result := 0;

 repeat
   P := PosEx('\', S, P+1);
   Inc(Result);
 until P = Len;
end;

//Zum Laden einer Stringlist in ein TTreeView
procedure StringListToTree(var L: TStrings; var Tree: TTreeView);
var
 S, Part: String;
 X, N, I: Integer;
// X .. Zeile
// I .. Parts
// N .. Nodesuche
 Node: TTreeNode;
 Found: Boolean;
begin
 Tree.Items.Clear;
 Tree.Items.Add(NIL, 'START');

 for X := 0 to L.Count-1 do begin
     Node := Tree.Items[0];
     S := L[X];

     for I := 0 to PartsCount(S)-1 do begin
         Part := GetPart(S, I);
         Found := False;

         for N := 0 to Node.Count-1 do begin
             if Node[N].Text = Part then begin
                Node := Node[N];
                Found := True;
                Break;
             end;
         end;

         if not Found then begin
            Node := Tree.Items.AddChild(Node, Part);
         end;
     end;
 end;
end;

[mimi]

Besten dank, werde ich bei einer gelentheit mal ausprobieren *G*