Datenbank in VirtualTreeView anzeigen und auswerten

[Jens Hartmann]

Hallo nochmal zusammen.

Habe die ganze Anbindung jetzt am laufen, und wollte jetzt noch das befüllen von einem Record, auf ein Objekt (class) ändern.

Habe das auch soweit alles angepaßt, habe allerdings jetzt beim kompelieren eine Fehlermeldung (siehe Anhang)

Leider, kann ich den Grund dafür nicht finden. Delphi bring auch sonst keine Meldung wie man das so kennt.

z.B. ; erwartet oder so;;;;

Hier der gesamte Quellcode, was das VST angeht inkl. der Objekt Impelmentation...

Delphi-Quellcode:

{Mein Objekt}
type
  TOMB256PLUS = class
    public
    ID         : integer;
    LfdNr      : integer;
    Datum      : String;
    Uhrzeit    : String;
    Ereignis   : String;
    Teilnehmer : String;
    Bereich    : String;
    SysData    : String;
  end;

{Meine Datenbank / VST Anbindung}



{******************************************************************************}
{                                                                              }
{                         VST Zeilen farblich darstellen                       }
{                                                                              }
{******************************************************************************}


procedure TForm1.VSTAfterItemErase(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; ItemRect: TRect);
var
  Daten : TOMB256PLUS;
begin
  Daten := TOMB256PLUS.Create;
  Daten := TOMB256PLUS(VST.GetNodeData(Node)^);


  if Sender.Selected[Node] then
    Exit;
    
  Daten := (VST.GetNodeData(Node));

  if Pos('Extern',Daten.Ereignis) > 0 then
    TargetCanvas.Brush.Color := clAqua;

  if Pos('Unscharf',Daten.Ereignis) > 0 then
    TargetCanvas.Brush.Color := clSkyBlue;

  if Pos('Störung',Daten.Ereignis) > 0 then
    begin
      if Pos('EIN', Daten.Ereignis) > 0 then
        TargetCanvas.Brush.Color := clYellow;
    end;

  if Pos('Alarm',Daten.Ereignis) > 0 then
    begin
      if Pos('EIN', Daten.Ereignis) > 0 then
        TargetCanvas.Brush.Color := clRed;
    end;

  if Pos('Hauptalarm',Daten.Ereignis) > 0 then
    begin
      if Pos('EIN', Daten.Ereignis) > 0 then
        TargetCanvas.Brush.Color := clRed;
    end;

  if Pos('Überfall',Daten.Ereignis) > 0 then
    begin
      if Pos('EIN', Daten.Ereignis) > 0 then
        TargetCanvas.Brush.Color := clRed;
    end;

  if Pos('Einbruch',Daten.Ereignis) > 0 then
    begin
      if Pos('EIN', Daten.Ereignis) > 0 then
        TargetCanvas.Brush.Color := clRed;
    end;

  if Pos('Sabotage',Daten.Ereignis) > 0 then
    begin
      if Pos('EIN', Daten.Ereignis) > 0 then
        TargetCanvas.Brush.Color := clRed;
    end;

  if Pos('Voralarm',Daten.Ereignis) > 0 then
    begin
      if Pos('EIN', Daten.Ereignis) > 0 then
        TargetCanvas.Brush.Color := clRed;
    end;


  TargetCanvas.FillRect (ItemRect);
end;

procedure TForm1.VSTFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
var
  Daten : TOMB256PLUS;
begin
  Daten := TOMB256PLUS(VST.GetNodeData(Node)^);
  Daten.Free;
end;


procedure TForm1.VSTfüllen;
begin
if not QRYMB256PLUS.Active then
  QRYMB256PLUS.Open;
  QRYMB256PLUS.filtered := false;
  QRYMB256PLUS.filter := '';
  VST.BeginUpdate;
  VST.Clear;
  VST.NodeDataSize := Sizeof(TOMB256PLUS);
  QRYMB256PLUS.First;
  VST.RootNodeCount := QRYMB256PLUS.RecordCount;
  VST.SortTree(0,sdAscending,true);
  VST.EndUpdate;
end;


{VST Initialisieren mit den Daten aus der Datenbank}
procedure TForm1.VSTInitNode(Sender: TBaseVirtualTree; ParentNode,
  Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
var
  Daten : TOMB256PLUS;
begin
  Daten := TOMB256PLUS.Create;
  VST.NodeHeight[Node] := 35;
  Include(InitialStates, ivsMultiline);
  Initialize(Daten);
  Daten.ID := QRYMB256PLUS.FieldByName('ID').AsInteger;
  Daten.LfdNr := QRYMB256PLUS.FieldByName('LfdNr').AsInteger;
  Daten.Datum := QRYMB256PLUS.FieldByName('Datum').AsString;
  Daten.Uhrzeit := QRYMB256PLUS.FieldByName('Uhrzeit').AsString;
  Daten.Ereignis := QRYMB256PLUS.FieldByName('Ereignis').AsString;
  Daten.Teilnehmer := QRYMB256PLUS.FieldByName('Teilnehmer').AsString;
  Daten.Bereich := QRYMB256PLUS.FieldByName('Bereich').AsString;
  if not QRYMB256PLUS.eof then
    QRYMB256PLUS.Next;
end;


{Größe vom Objekt dem VST zuweisen}
procedure TForm1.VSTGetNodeDataSize(Sender: TBaseVirtualTree;
  var NodeDataSize: Integer);
begin
  VST.NodeDataSize := SizeOf(TOMB256PLUS);
end;

{Werte dem VST zuweisen}
procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
var
  Daten : TOMB256PLUS;
begin
Daten := TOMB256PLUS.Create;
Daten := TOMB256PLUS(VST.GetNodeData(Node)^);
  case Column of
  0:  CellText:= IntToStr(Daten.ID);
  1:  CellText:= IntToStr(Daten.LfdNr);
  2:  CellText:= Daten.Datum;
  3:  CellText:= Daten.Uhrzeit;
  4:  CellText:= Daten.Ereignis;
  5:  CellText:= Daten.Teilnehmer;
  6:  CellText:= Daten.Bereich;
  end;
end;