Forum: Programmieren allgemein
by himitsu,
23. Okt 2014
Eine kleine Pfadbehandlung und schon kann man mit einer Funktion beliebig tiefe Pfade im Tree suchen und/oder erstellen.
function TForm1.FindOrCreateItem(ItemParent: TFmxObject; ItemPath: string; InsertDuplicate: Boolean=False): TTreeViewItem;
var
i: Integer;
begin
if ContainsStr(ItemPath, PathDelim) then
ItemParent := FindOrCreateItem(ItemParent, ExtractFileDir(ItemPath), False);
...
Forum: Programmieren allgemein
by himitsu,
23. Okt 2014
Wie, bzw. was hast du gespeichert?
Du meinst doch nicht die Objektreferenz, denn die kann wird natürlich anders sein, wenn man das Ding neu aufbaut, und je nach Komponente kann sich eine Referenz auch ändern, wenn beim Ändern die internen Komponenten neu aufgebaut/verlinkt werden. :stupid:
Forum: Programmieren allgemein
by himitsu,
23. Okt 2014
@Sir: Ich hatte erst übersehn daß LParent mittendrin immer wieder neu gesetzt wird und dachte das steht alles auf der ersten Zuweisung (TreeView1), anstatt auf den jeweiligen Knoten. :oops:
Sieht aber OK aus und der Fehler vom TE ist auch behoben.
z.B. gibt es den selben Tag (gleicher Wert) in unterschieglichen Wochen und Jahren, womit man also nicht nur über den Tag als einzelnes suchen...