Forum: Programmieren allgemein
by Zodi,
14. Jun 2020
Dieso ist AddChild nicht schön?
Forum: Programmieren allgemein
by Zodi,
14. Jun 2020
type
PTreeData = ^TTreeData;
TTreeData = record
Column0: String; Column1: String; Column2: String; Column3: String; Column4: String; Column5: String;
end;
// Neuer Wert wird geschrieben fals nicht vorhanden
procedure WriteNode(NeuerWert: String);
var
Forum: Programmieren allgemein
by Zodi,
14. Jun 2020
Hi Delphianer
Gibt es eine Möglichkeit in einer VirtualStringTree zu prüfen ob ein eintrag schon vorhanden ist?
Mit der ListView habe ich das so gelöst.
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Li: TListItem;
begin
Li := Listview1.FindCaption(0,Split(Strings.Strings, '|', 1),False,True,False);