viewing paste Unknown #24901 | Delphi

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
procedure TRadar.DeleteCheckImage(WidgetName: string; Name: string);
var
  i: integer;
  WI, CI: integer;
begin
  WI:= -1;
  for i:= 0 to MainSet.WidgetCount - 1 do
    if (MainSet.WidgetArray[i].Name = WidgetName) then
    begin
      WI:= i;
      break;
    end;
  if (WI = -1) then exit;
 
  CI:= -1;
  for i:= 0 to MainSet.WidgetArray[WI].CheckImageCount - 1 do
    if (MainSet.WidgetArray[WI].CheckImageArray[i].Name = Name) then
    begin
      CI:= i;
      break;
    end;
  if (CI = -1) then exit;
 
  MainSet.WidgetArray[WI].CheckImageArray[CI].Name:= 'Nil';
  MainSet.WidgetArray[WI].CheckImageArray[CI].NeedDelete:= true;
end;
Viewed 294 times, submitted by unknown.