两阶段检查的代码片断

最新推荐文章于 2025-05-30 10:54:19 发布

原创最新推荐文章于 2025-05-30 10:54:19 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #图形

代码灵感专栏收录该内容

3 篇文章

订阅专栏

博客给出了移动图形对象的程序代码。该程序通过两次控制操作，第一次检查所有移动是否有效，若无效则退出；第二次对选中的图形对象进行移动操作。代码中使用了整数类型变量进行循环控制。

部署运行你感兴趣的模型镜像

//移动图形对象
procedure TMoveableShape.MoveShapes(DeltaX, DeltaY: Integer);
var
I, Pass: Integer;
TempControl: TControl;
begin
if not Assigned(Parent) then
Exit;

// Do 2 passes through controls. The first one is to check that all
// movements are valid   两次控制，第一次为检查移动是否有效，第二次为移动
for Pass := 1 to 2 do
begin
    for I := 0 to Parent.ControlCount - 1 do
    begin
      TempControl := Parent.Controls[I];
      if TempControl is TMoveableShape then
      begin
        if (Pass = 1) and
          (not TMoveableShape(TempControl).ValidMove(DeltaX, DeltaY)) then
          Exit
        else
        if (Pass = 2) and TMoveableShape(TempControl).Selected then
          TMoveableShape(TempControl).Move(DeltaX, DeltaY);
      end;
    end;
end;
end;