Also die Anzahl der Bugs zu jedem Projekt wird jetzt auch schon prima in der ListView angezeigt. Jetzt wollt ich es so machen, das ich wenn Bugs vorhanden sind, über einen Button den Buglisteditor öffne und nur die Bugs zum ausgewählten Projekt sehe. Dazu hatte ich mir die Prozedur "UpdateList" die ich so schon im Buglisteditor verwende genommen und etwas umgestellt. Aber trotzdem bekomme ich immer noch alle Bugs angezeigt..
Code zum Aufruf des BLEs mit übergabe des Prjojektnamens..
Delphi-Quellcode:
procedure Tfrm_main.Bugsanzeigen1Click(Sender: TObject);
var
nl2: IXMLDOMNodeList;
begin
nl2 := xmlDoc2.selectNodes('/Buglisteditor/Bug[Anwendung="'+lv_projects.Selected.Caption+'"]');
frm_ble_main.nl:=nl2;
frm_ble_main.ShowModal;
frm_ble_main.UpdateAppBugs;
end;
Code vom Form des BLEs (UpdateAppBugs)
Delphi-Quellcode:
procedure Tfrm_ble_main.UpdateAppBugs;
var
subNode: IXMLDOMNode;
i: integer;
begin
lv_bugs.Items.Clear;
nl := xmlDoc.documentElement.selectNodes('Bug');
for i:=0 to Pred(nl.length) do begin
subNode := nl.item[i].selectSingleNode('Anwendung');
lv_bugs.Items.Add;
lv_bugs.Items[i].Caption := subNode.text;
with lv_bugs.Items[i].SubItems do begin
subNode := nl.item[i].selectSingleNode('Bezeichnung');
if subNode <> nil then
Add(subNode.text);
...
end;
end;
end;
Hat da jemand vielleicht ne Idee,w arums nich gehen könnte?