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