removeprimitiv

Синтаксис

removeprimitiv(gid);

Аргументы

Описание

removeprimitiv(gid) – функция удаления объекта со схемы по его идентификатору gid.

Результат

Пример

initialization
 gid = createprimitiv(6, [(0 , 0),(-28 , -48),(-88 , -108)]);
end
var oldfl: boolean; 

if paintstep then begin
 fl = flash(500);
 if fl <> oldfl then begin
  if fl then              
   bringtofront(FillRect) 
  else                    
   bringtofront(FillCircle);
  end;                      
 oldfl = fl;                
end;                        

finalization
 removeprimitiv(gid);
end;                 

В результате выполнения данного примера динамически создается объект "Залитый прямоугольник" с идентификатором gid, после чего объекты c идентификаторами gid и FillCircle (который уже был на схеме) будут попеременно с периодом 500 мс накладываться друг на друга. Перед остановкой выполнения созданный объект с идентификатором gid удаляется.

Дополнительные материалы

Нет.