摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button... 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; pr... 阅读全文

摘要： 突然发现 Message 单元的最后给提供了几个方便的消息发送函数:SendTextMessage、SendStructMessage、SendGetStructMessage、SendGetIntMessage虽然函数实现的很简单, 但用他们发送文本、结构和整数, 的确方便了不少; 下面仅就 SendTextMessage 举例://例子是通过发送消息的方法给 Edit 赋值:unit Unit... 阅读全文

摘要： MulDiv(a, b, c) 中的 a、b、c 是三个 Integer, 同时返回一个 Integer.其计算方式类似于: a * b / c 或 a * b div c, 但也有区别.//例一: 相同处var a,b,c,n1,n2: Integer;begin a := 4; b := 3; c := 2; n1 := a * b div c; n2 := MulDiv(a, b... 阅读全文