![](https://img-blog.csdnimg.cn/20201014180756926.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
文章平均质量分 62
zhang52088
这个作者很懒,什么都没留下…
展开
-
delphi 判断字符为中文
function ByteType(const S: string; Index: Integer): TMbcsByteType; 告诉你一个非常有用的函数。 bytetype 它可以判断一个字符串中,某个 Char 是单个字母,还是双字节的前一位或 后一位。 mbSingleByte 单字母 ...原创 2009-02-27 17:40:29 · 309 阅读 · 0 评论 -
Delphi 的编译指令
1. $IFDEF 等同于 $IF DEFINED(...) :它们的结束分别是: $ENDIF、$IFEND; 例子中的 VER200 是 Delphi 2009 的标识. begin {$IFDEF VER200} ShowMessage('这是 Delphi 2009'); {$ENDIF} {$IF DEFINED(VER200)} ShowMessa...原创 2009-02-12 13:03:07 · 155 阅读 · 0 评论 -
Delphi 关键字详解 (1)
absolute//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.var Str: string[32]; StrLen: Byte absolute Str;//这个声明指定了变量StrLen起始地址与Str相同.//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.begin Str := 'abc'; Edit1....原创 2009-02-12 13:08:51 · 161 阅读 · 0 评论 -
Delphi 关键字详解 (2)
index//Index用于在属性中标识序号, 以便用相同的属性方法(Get,Set)对不同的属性进行操作.type TForm1 = class(TForm) private function GetInfo(const Index: Integer): Longint; procedure SetInfo(const Index: Integer; const Value: L...原创 2009-02-12 13:27:41 · 174 阅读 · 0 评论 -
Delphi 关键字详解 (3)
virtual//Virtual用于声明一个虚方法, //虚方法可以被覆盖, 并且可以使程序运行速度尽可能的快(区别于Dynamic).procedure X(i: Integer); virtual; while//While关键字用于引出While循环语句, 循环前先进行循环条件的判断, 如果条件为真则执行循环.i := 0;while i < 100 dobe...原创 2009-02-12 14:28:12 · 138 阅读 · 0 评论