文档章节

WinAPI: EqualRect、EqualSid、EqualPrefixSid - 判断一个矩形(或其他结构)是否相等

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 204
阅读 2
收藏 0
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  R1: TRect = (Left:20; Top:20; Right:20; Bottom:20);
  R2: TRect = (Left:20; Top:20; Right:20; Bottom:20);

//EqualRect
procedure TForm1.Button1Click(Sender: TObject);
var
  s1,s2: string;
begin
  ShowMessage(BoolToStr(EqualRect(R1,R2), True));  {True}

  OffsetRect(R2, 10, 10);
  ShowMessage(BoolToStr(EqualRect(R1,R2), True));  {False}
end;

//EqualSid: 它可用于判断所有结构; EqualRect 是专用于 TRect 的.
procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(BoolToStr(EqualSid(@R1,@R2), True)); {True}

  OffsetRect(R2, 10, 10);
  ShowMessage(BoolToStr(EqualSid(@R1,@R2), True)); {False}
end;

//EqualPrefixSid: 它和 EqualSid 的用法一样, 可能是适用于和服务器联系的.
procedure TForm1.Button3Click(Sender: TObject);
begin
  ShowMessage(BoolToStr(EqualPrefixSid(@R1,@R2), True)); {True}

  OffsetRect(R2, 10, 10);
  ShowMessage(BoolToStr(EqualPrefixSid(@R1,@R2), True)); {False}
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/05/23/1205858.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
iOS(CGGeometry)几何类方法总结

iOS开发几何类方法总结 CGGeometry.h文件是用C语言实现的一个封装了许多常用几何方法的文件。 一、几个常用结构体 struct CGPoint { CGFloat x; CGFloat y; }; 定义一个点,设置x坐标和y坐标...

珲少
2015/04/27
0
3
为什么覆盖equals时也要覆盖hashCode方法

看了《effective java》第九条。特此对equals方法和hashCode方法做此总结 现在假设我们有一个矩形类Rectangle public class Rectangle { } 先回顾下我们为什么要覆盖equals方法呢?现在我们有...

gkmmg
05/13
0
0
WIN32_API函数大全

Windows API函数大全 API之网络函数 WNetAddConnection 创建同一个网络资源的永久性连接 WNetAddConnection2 创建同一个网络资源的连接 WNetAddConnection3 创建同一个网络资源的连接 WNetCa...

姿势喵
02/06
0
0
MFC函数大全

API之网络函数 WNetAddConnection 创建同一个网络资源的永久性连接 WNetAddConnection2 创建同一个网络资源的连接 WNetAddConnection3 创建同一个网络资源的连接 WNetCancelConnection 结束一...

姿势喵
02/06
0
0
iOS常用CGRect的交错,边缘,中心的检测

iOS常用CGRect的交错,边缘,中心的检测 判断给定的点是否被一个CGRect包含,可以用CGRectContainsPoint函数 BOOL contains = CGRectContainsPoint(CGRect rect, CGPoint point); 判断一个CGRec...

SimonXun
2016/03/08
10
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

java并发备忘

不安全的“先检查后执行”,代码形式如下: if(条件满足){ //这里容易出现线程安全问题//doSomething}else{//doOther} 读取-修改-写入 原子操作:使用CAS技术,即首先从V中读取...

Funcy1122
今天
0
0
SpringBoot2.0 停机

最近新建了个SpringBoot2.0的项目,因为原来一直使用的是传统的Tomcat部署war包的形式,所以这次SpringBoot内置Tomcat部署jar包的时候遇到了很多问题。其中一个就是因为没有外置的Tomcat容器...

Canaan_
昨天
0
1
Confluence 6 外部参考

一个外部参考的意思是任何站点链接到你 Confluence 的实例。任何时候当 Confluence 的用户单击这个外部链接的时候,Confluence 可以记录这次单击为参考。 在默认的情况下,外部链接的参考链接...

honeymose
昨天
0
0
Android中的设计模式之抽象工厂模式

参考 《设计模式解析》 第十一章 Abstract Factory模式 《设计模式:可复用面向对象软件的基础 》3.1 Abstract Factory 抽象工厂 对象创建型模式 《Android源码设计模式解析与实战》第6章 创...

newtrek
昨天
0
0
Redis | 地理空间(GEO)的一个坑

Redis的地理空间(Geo)是个好东西,轻轻松松的就可以把地图描点的问题处理了, 最近却遇到一个坑...Redis采用的Msater-Slave模式, 运用GEORADIUS在salve读取对应的数据,新增了从节点但是从不返...

云迹
昨天
1
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部