If not otherwise stated—all postings © Frank D. Kanu. All rights reserved.
The query was only getting bad because WHOEVER was messing with it didn’t READ ANY of the code around. That PLUS raping the original design to squeeze out something it was never intended to do instead of rethinking and designing something the “programmer” could be proud of…Comment of the lead programmer
...
nId := GetIdFromDB;
setSelectionPage(nId, '');
procedure setSelectionPage(id : integer; desc : String );
var
myNode:TTreeNode;
begin
bFilter := False;
if (desc = '-1') then begin
bFilter := True;
...for j := 0 to Items.Count - 1 do begin
if ((TDataNode(Items[j].Data).NodeType = ntQ1) and (TDataNode(Items[j].Data).NodeID = Q1)) then begin
k := j;
Inc(k);
while (k <= (Items.Count - 1)) do begin
if (TDataNode(Items[k].Data).NodeType = ntQ1) then
Break;
if ((TDataNode(Items[k].Data).NodeType = ntQ2) and (TDataNode(Items[k].Data).NodeID = Q2)) then begin
aNode := Items[k];
m := k;
Inc(m);
while (m <= (FCurTV.Items.Count - 1)) do begin
if (TDataNode(FCurTV.Items[m].Data).NodeType = ntQ2) then
Break;
if ((TDataNode(FCurTV.Items[m].Data).NodeType = ntQ3) and (TDataNode(FCurTV.Items[m].Data).NodeID = ID)) then begin
bQ := TRUE;
Break;
end;
Inc(m);
end;
end;
Inc(k);
end;
Break;
end;
end;
