TField.Assign (TField) -> Fehler

[Nuclear-Ping]

Hallo, marabu,

vielen Dank für die konstruktiven Hilfestellungen. Mit dem Variant-Array funktioniert das ganz gut:

Delphi-Quellcode:

function TClientListForm.GetFieldValues (ds: TDataSet): TVariantDynArray;
var
  i: integer;
begin
  SetLength (Result, ds.Fields.Count);
  for i := Low (Result) to High (Result) do
    Result[i] := ds.Fields[i].Value;
end;

procedure TClientListForm.AddListNode (Fields: TFields);
var
  a, b: Integer;
  n: PVirtualNode;
  d: PVariantDynArray;
begin
  n := ClientList.AddChild (nil);
  d := ClientList.GetNodeData (n);

  d^ := GetFieldValues (Fields.DataSet);
end;

Auch die Darstellung im VST funktioniert damit:

Delphi-Quellcode:

procedure TClientListForm.ClientListGetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: WideString);
var
  d: PVariantDynArray;
begin
  d := Sender.GetNodeData (Node);
  CellText := String (d^[Column]); // Testweise
end;

Werde da noch bisschen rumbasteln und erweitern. Vielen Dank nochmals!