2009-11-04 11:50
VER10 : Turbo Pascal 1
VER20 : Turbo Pascal 2
VER30 : Turbo Pascal 3
VER40 : Turbo Pascal 4
VER50 : Turbo Pascal 5
VER60 : Turbo Pascal 6
VER70 : Turbo Pascal 7 / Borland Pascal 7
VER80 : Delphi 1
VER90 : Delphi 2
VER100 : Delphi 3
VER110 : ?
VER120 : Delphi 4
VER130 : Delphi 5
VER140 : Delphi 6
VER150 : Delphi 7
VER160 : Delphi 8
VER170 : Delphi 2005
VER180 : Delphi 2006
VER185 : Delphi 2007
VER190 : ?
VER200 : Delphi 2009
其他:
MSWINDOWS
WIN32
LI |
2009-11-04 11:50
1. $IFDEF 等同于 $IF DEFINED(...) :
它们的结束分别是: $ENDIF、$IFEND; 例子中的 VER200 是 Delphi 2009 的标识.
begin
{$IFDEF VER200}
ShowMessage('这是 Delphi 2009');
{$ENDIF}
{$IF DEFINED(VER200)}
ShowMessage('这是 Delphi 2009');
|
2009-11-04 11:49
一个程序从无到有的过程是这样的: 编辑代码 -> 预处理 -> 编译(成dcu等) -> 链接(为exe等).
什么是预处理?
譬如 VCL 中有很多代码是兼容 Linux 的, 在 Windows 下就需要在编译之前预处理掉那些 for Linux 的代码.
1、判断操作系统:
其中的 "MSWINDOWS" 和 "LINUX" 就是 Delphi 预定义的 "条件标识符".
begin
{$I
|
2009-10-27 09:02
var
Form1: TForm1;
//圆角矩形
procedure DrawRndRectRegion(hWnd: HWND; Rect: TRect);
//椭圆1
procedure DrawEllipticRegion(hWnd: HWND; Rect: TRect); overload;
//椭圆2
procedure DrawEllipticRegion(hWnd: HWND); overload;
//多边形
procedure DrawPolygonRegion(hWnd: HWND; Rect: TRect; NumPoints: Integer; IsStar: Boolean);
//汉字
procedure SetRgn_Chs(hWnd: HWND; ACanvas : TCanvas; AChs: string);
implementation
{$R *.dfm}
//圆角矩形 |
2009-04-21 14:48
| 级别 |
科目/类别 |
考试形式 |
| 一级 |
一级MS Office |
|
2009-03-27 21:23
1.外部存储器的是CD-ROM、硬盘、软盘，内部存储器:ROM、RAM、cache。
2.用高级程序设计语言编写的程序称为源程序
3.微型计算机的主机由CPU和内存储器构成。内存储器包括RAM和ROM。
4.CAD计算机辅助设计,CAM计算机辅助制造,CIMS计算机集成制造系统,CAI计算机辅助教育
5.1946-1958第一代电子管,1959-1964第二代晶体管,1965-1971第三代小规模集成电路,1971-今第四代大规模和超大规模集成电路
6.一个计算机操作系统通常应具有：处理器（CPU）管理；存储管理；文件管理；输入/出管理和作业管理五大功能。
7. |
2009-02-11 00:49
用法：if key = chr(VK_RETURN) then...
常数名称 |
2009-02-06 15:24
一、整数类型
类型 所占字节数 取值范围
byte 1 0-255
word 2 0-65535
shortint 1 -128-127
smallint 2 |
2008-12-11 14:59
//最常用的 string
var
str: string; {定义}
begin
str := '万一'; |
2008-12-06 13:26
這個可是我自己的代碼.今天做的時候順便記下.雖然這些都是很初級的東西.最近懶的很,除了工作,也不愿意動腦筋學習.(反面人物,大家別攻擊我啊~~).
下面的是一個菜單事件,雖然可以寫成一個函數,但是,我懶得整理.相信看的人也應該都會的啊...是吧?
procedure TForm1.SaveToEx1Click(Sender: TObject);
var
ExcelApp,xlSheet : Variant;
i,j: integer;
FileNM : string;
begin
try
ExcelApp : |
|
| 
