这里的新语法一般指Delphi7不支持的语法，高版本中会经常遇到，所以花一点时间学会使用它。泛型是一种特殊的类型。你不用一开始就指明参数的具体类型，而是先定义一个类型变量，在使用的时候再确定参数的具体类型。准备从万一博客中学习，节约翻找资料的时间。 最简单的泛型 一开始我们
program Project01; uses {$I SynDprUses.inc} // use FastMM4 on older Delphi, or set FPC threads Forms, SysUtils, SynCommons, mORMot, Unit1 in 'Unit1.pas' {Form1} ,mORMotSQLite3, SynSQLite3Static ; {$R *.res} begin App
lazarus目前不支持匿名方法，在不继承线程的情况下，使用匿名线程或TThread.ExecuteInThread时，需要单独写两个方法：一个给TThread.ExecuteInThread用，另一个给同步用。感觉比较麻烦，并且可读性略差。 经过测试，下面代码的解决方案感觉好一些。 unit Unit1; {$mode objfpc}{$H+} interfa
前言:所谓"流", 就是一段数据或是一块内存;在进行流操作时, 我们不必关心流中的数据到底是什么; 只需要知道流的大小和当前的指针位置. 所以流只有两个属性:Size、Position.对流的操作, 不过就是读取和写入. 所以流最主要的方法就是 Read 和 Write.在很多控件的使用中, 读取主要用
@ 与 ^ 运算符//例1：procedure TForm1.Button1Click(Sender: TObject);varstr: string;p: Pointer;beginp := @str; //变量 str 的地址p := @Form1; //变量 Form1 的地址p := @TForm1.Button1Click; //过程 TForm1.Button1Click 的地址p := Addr(str); //同 p := @str;ShowMessage(
1.对于有句柄的控件，可以用一下代码interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) btn1: TButton;
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; txtweight: TEdit; txtdistence:
程序运行截图如下： 每次点击可以生成不同的成绩表。 主要源代码如下： //--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" //-------------------------------------------------------------
Dll里中的代码 library RegDll; uses SysUtils, Classes, Windows, Registry; // 没 Windows 注册表里查找不到 HKEY_LOCAL_MACHIN Registry为注册表操作 {$R *.res} Function 函数名 (变量: String):String; StdCall; // 注册表查询获得AE软件所有版本返回字符串列表 beg
DELPHI 调用SAP—RFC 示例 Logon to the R3-system with the componente TSAPLogOnControl In this example the form TForm1 contains the following components: Component FunctionSAPLogOnControl1 SAP ActiveX-Component to logon to the systemButton1 Button to start the
默认的情况下,IDE帮我们建立的窗体类都如下: type TForm1 = class(TForm) ScrollBox1: TScrollBox; GroupBox1: TGroupBox; ScrollBox2: TScrollBox; RadioGroup1: TRadioGroup; private { Private declarations } public { Public declarations
相关资料： http://www.delphitop.com/html/zifuchuan/1242.html 【strlen】PChar 串专用函数：串长度procedure TForm1.BitBtn1Click(Sender: TObject); var s: Widestring; begin s := '桂枝香在故国晚秋'; ShowMessage(IntToStr(Length(String(s))));//结果不是8而是16 end;━━
在使用cxGrid时，由于设置了所有单元格都能编辑， 但在特定的情况下，让某些行，根据一些列值条件，让该行整行锁定，不能编辑。 研究了很久，在DevExpress官网上找到了相关的资料，因此，分享给大家。 Dev官网的列子是这样的 // DISABLE A ROW 整行禁止编辑 procedure TForm1.cxGrid1DBTableV
先看一个例子和程序截图： 源代码如下： Unit1.h文件 //--------------------------------------------------------------------------- #ifndef Unit1H #define Unit1H //--------------------------------------------------------------------------- #include <Classes.hpp> #i
图片的居中、拉伸与平铺 - 回复 "我是一只想飞的小小鸟" 的问题 问题来源: http://www.cnblogs.com/del/archive/2008/11/04/1326105.html#1533947 本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Control
Yesterday、Today、Tomorrow - 昨天、今天、明天 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end; var Form1
如何在数据表中存取图片 - 回复 "三足乌" 的问题 问题来源: http://www.cnblogs.com/del/archive/2009/05/28/1491186.html#1801853 准备工作: 1、在空白窗体上添加: ClientDataSet1、Button1 2、激活窗体的 OnCreate 事件、激活 Button1 的 OnClick 事件 实现代码:unit U
唤醒控件曾经拥有的能力 控件的祖先 TControl 有很多功能, 但它的有些子孙确丧失了很多(为了专用). 譬如 TBevel 就没有把一些常规的事件继承下来, 那些没有被继承的功能一般都隐藏在 protected 区, 如果重新继承是可以使用的. 这里尝试了另外一种方法: 自己没有继承时,
本例效果图:代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Edit1:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; ComboBox1: TComboBox; Label1: TLabel; procedure FormCreate(Sender:
Delphi 7中如何修改Form1: TForm1; 1]选中对应的Form, 2]在Object Inspector里的Name修改, 3]回车，即可.Delphi的IDE对应做了以下五处修改： {===================在.dpr===================}program Project1;uses Forms, Unit1 in 'Unit1.pas' {DFGSDGF};//Unit1
关于禁止程序重复启动的另一种需要与实现 手头的程序需要禁止重复启动, 但需要保留新的、关闭旧的. 我想还是从主窗口的类名下手吧; 写了一个函数, 在 OnCreate 中调用即可:{ 函数 } procedure CloseSameClassNameWindow(ACurrentWindow: HWND; const AClassName: string);
如何在 TDrawGrid 的单元格中显示图片 - 回复 "巅枫" 的问题 问题来源: http://www.cnblogs.com/del/archive/2008/03/06/1094289.html#2023057在 C:\Temp\ 下准备 1.bmp、2.bmp、3.bmp 三个图片, 然后:unit Unit1; interface uses Windows, Messages, SysUtils, Variant
unit Unit1; interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ComboBox1: TComboBox; Button1: TButton; Button2: TButton; procedure FormCreate(Se
Action 相关组件 TAction //<- TCustomAction <- TContainedAction <- TBasicAction <- TComponent TActionList //<- TCustomActionList <- TComponent //其父类 TCustomActionList 包含一个 TContainedAction 类型的动作列表(Actions[]) TActionMan
