Moin,
kennt einer den Lischkeschen VirtualStringTree etwas besser als ich ?
Wo liegt hier der Fehler ?
Delphi-Quellcode:
type PMydata = ^TMyData;
TMyData = Record
st : string;
end;
var
Form1: TForm1;
Data : PMyData;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
var NewNode : PVirtualNode;
begin
with DS do begin
Close;
SelectSQL.Text := 'SELECT * FROM TABLE';
Open;
vst.NodeDataSize := SizeOf (TMyData);
while not Eof do begin
NewNode := vst.AddChild(nil);
Data := vst.GetNodeData(NewNode);
Data^.st := DS.FieldByName...;
Next;
end;
end;
Es sind anscheinend genauso viele Nodes vorhanden, wie Datensätze gefunden werden. Soweit stimmt das. Obwohl, wie kriegt man eigentlich die Anzahl raus ?
Aber die heißen alle "Node". Stattdessen soll ein Feld angezeigt werden (siehe FieldByName).