What does this do?
© Copyright Frank D. Kanu 2000-2008
With 4 breaks and 3 counters and no documentation—you think anyone knows what it does?
Technorati (All Links are external): documentation code review
With 4 breaks and 3 counters and no documentation—you think anyone knows what it does?
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;Tags:
documentationTechnorati (All Links are external): documentation code review
This blog-entry is protected by a digital fingerprint:785273ed81985582c8a1be62f78c9459
