.... nochmals VirtualStringTree

[marcus]

Sodala, funktioniert eigentlich schon ganz gut, bis auf das "füllen" der ChildNodes.
Hier mal der Code

Delphi-Quellcode:

type
PVSTData = ^TVSTData;
TVSTData = record
  monat: string;
  projektnr: string;
end;


procedure TFrmMain.InitForm;
var count                : integer;
    strMonths            : string;
    actMonth,actYear,foo : word;
    result               : pmysql_res;
    row                  : pmysql_row;
    rowCount             : my_ulonglong;
    rootNode,childNode   : PVirtualNode;
    rootData,childData   : PVSTData;
begin
  .
  .
  .

  StringTree.BeginUpdate;
  StringTree.NodeDataSize := SizeOf(PVSTData);

  for count := 1 to CMONTHS do
  begin
    rootNode := StringTree.AddChild(nil);
    rootData := StringTree.GetNodeData(rootNode);
    rootData^.monat := CboxMonth.Items.Strings[count - 1];

    Query('SELECT p_nummer FROM projekte WHERE (p_monat = '+inttostr(count)+')');
    result := mysql_store_result(SqlHnd);
    rowCount := mysql_num_rows(result);
    while (rowCount > 0) do
    begin
      row := mysql_fetch_row(result);
      childNode := StringTree.AddChild(rootNode);
      childData := StringTree.GetNodeData(childNode);
  --> childData^.projektnr := row[0];
      //showmessage(row[0]);
      dec(rowCount);
    end;
    mysql_free_result(result);
  end;
  StringTree.EndUpdate;
end;

Wenn die Zeile mit Pfeil auskommentiert wird dann funktioniert das ganze wunderbar. Es werden alle 12 Monate angelegt und für jeden Monat wird auch die richtige Anzahl an ChildNodes entsprechend den Projekten in dem jeweiligen Monat angelegt. Nur wenn ich die Projektnummer auch anzeigen möchte in dem VirtualStringTree, dann gibts eine AccessViolation. An dem MySQL Ergebnis liegt es nicht, denn die Nummer kann ich mir mit showmessage anzeigen lassen. Ich habe auch mal versucht in den gleichen Record zu schreiben (rootData), hat auch nicht funktioniert.

Marcus