摘要：
uses WinInet;procedure TForm1.Button1Click(Sender: TObject);begin if InternetGetConnectedState(nil, 0) then ShowMessage('已连接');end; 阅读全文
posted @ 2013-01-09 18:03
冰意 LceMeaning
阅读(197)
评论(0)
推荐(0)
摘要：
//如果有这样一个循环, 是非常可怕的; 因为它完不了, 你得等着.procedure TForm1.Button1Click(Sender: TObject);var i: Integer;begin for i := 0 to MaxInt do begin Text := IntToStr(i); end;end;//即使这样也无济于事, 因为在循环期间你执行不了 Button2Clickvar b: Boolean;procedure TForm1.Button1Click(Sender: TObject);var i: Integer;begin b := True; for i . 阅读全文
posted @ 2013-01-09 17:44
冰意 LceMeaning
阅读(174)
评论(0)
推荐(0)
摘要：
先看一个非多线程的例子, 代码执行时不能进行其它操作(譬如拖动窗体):{自定义方法: 在窗体上绘制...}procedure MyMethod;var i: Integer;begin for i := 0 to 500000 do begin Form1.Canvas.Lock; Form1.Canvas.TextOut(10, 10, IntToStr(i)); Form1.Canvas.Unlock; end;end;{调用上面的自定义方法}procedure TForm1.Button1Click(Sender: TObject);begin MyMethod;end;修改为多线... 阅读全文
posted @ 2013-01-09 16:59
冰意 LceMeaning
阅读(223)
评论(0)
推荐(0)
摘要：
函数功能Chr将一个有序数据转换为一个ANSI字符Ord将一个有序类型值转换为它的序号Round转换一个实型值为四舍五入后的整型值Trunc转换一个实型值为小数截断后的整型值Int返回浮点数的整数部分IntToStr将数值转换为字符串IntToHex将数值转换为十六进制数字符串StrToInt将字符串转换为一个整型数，如字符串不是一个合法的整型将引发异常StrToIntDef将字符串转换为一个整数，如字符串不合法返回一个缺省值Val将字符串转换为一个数字（传统Turbo Pascal例程用于向后兼容）Str将数字转换为格式化字符串（传统Turbo Pascal例程用于向后兼容）StrPas将零 阅读全文
posted @ 2013-01-09 16:43
冰意 LceMeaning
阅读(177)
评论(0)
推荐(0)
摘要：
; not allowed before ELSEElSE前不允许有“;” clause not allowed in OLE automation section在OLE自动区段不允许“”子句 is not a type identifier不是类型标识符 not previously declared as a PROPERTY前面没有说明PROPERTYGOTO leads into or out of TRY statement GOTO进入或超出TRY语句的范围 clause expected, but found要求子句，但出现16-Bit fixup encountered .. 阅读全文
posted @ 2013-01-09 16:42
冰意 LceMeaning
阅读(247)
评论(0)
推荐(0)
摘要：
//方法1：procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not (Key in ['0'..'9']) then Key := Chr(0);end;//方法2：procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not (Byte(Key) in [48..57]) then // 0的 Ascii 是 48 Key := Chr(0);end;//方法3:procedu 阅读全文
posted @ 2013-01-09 16:32
冰意 LceMeaning
阅读(208)
评论(0)
推荐(0)
摘要：
本例效果图:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus;type TForm1 = class(TForm) MainMenu1: TMainMenu; OpenDialog1: TOpenDialog; mniFile: TMenuItem; mniOpen: TMenuItem; N1: TMenuItem; mniExit: TMenuItem; proce... 阅读全文
posted @ 2013-01-09 15:56
冰意 LceMeaning
阅读(183)
评论(0)
推荐(0)
摘要：
我们从 Form 的源码中看到, 指定的快捷键是一个数字, 譬如 Ctrl+A, 对应着数字: 16449其实这是一个 Word 类型的数字; 快捷键的参数是 TShortCut 类型的, 它定义在 Classes 单元的第92行(Delphi 2007):TShortCut = Low(Word)..High(Word);Menus 单元有两个函数: TextToShortCut、ShortCutToText, 可以互相转换它们.var w: Word; s: string;begin w := TextToShortCut('Ctrl+A'); ShowMessage(In 阅读全文
posted @ 2013-01-09 15:53
冰意 LceMeaning
阅读(207)
评论(0)
推荐(0)
摘要：
菜单项通过 ShortCut 属性来设定快捷键, ShortCut 是 TShortcut 类型的; TShortcut 是一个子界: 0..65535ShortCut 的所有可选值请参加列表:http://www.cnblogs.com/LceMeaning/archive/2013/01/09/2853071.html=========================================================================unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, . 阅读全文
posted @ 2013-01-09 15:50
冰意 LceMeaning
阅读(186)
评论(0)
推荐(0)
摘要：
键值快捷键3Scroll Lock8BkSp9Tab12Num 513Enter16Shift17Ctrl18Alt20Caps Lock27Esc32Space33PgUp34PgDn35End36Home37Left38Up39Right40Down44Sys Req45Ins46Del48049150251352453554655756857965A66B67C68D69E70F71G72H73I74J75K76L77M78N79O80P81Q82R83S84T85U86V87W88X89Y90Z96Num 097Num 198Num 299Num 3100Num 4101Num 510 阅读全文
posted @ 2013-01-09 15:48
冰意 LceMeaning
阅读(444)
评论(0)
推荐(0)
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Button1Click... 阅读全文
posted @ 2013-01-09 15:37
冰意 LceMeaning
阅读(293)
评论(0)
推荐(0)
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; pr... 阅读全文
posted @ 2013-01-09 15:36
冰意 LceMeaning
阅读(220)
评论(0)
推荐(0)
摘要：
使用的是 Delphi 2010 下 IOUtils 单元的 TDirectory.Copy 函数:1 uses IOUtils;2 3 procedure TForm1.Button1Click(Sender: TObject);4 const5 SourceDir = 'C:\Temp\Folder1'; { 源文件夹必须存在 }6 DestDir = 'C:\Temp\Folder2'; { 如果目标文件夹不存在, 程序会自动创建 }7 begin8 TDirectory.Copy(SourceDir, DestDir);9 end; 阅读全文
posted @ 2013-01-09 15:29
冰意 LceMeaning
阅读(208)
评论(0)
推荐(0)
摘要：
1-1多线程的基本概念WIN98/NT/2000/XP是个多任务操作系统，也就是：一个进程可以划分为多个线程，每个线程轮流占用CPU运行时间和资源，或者说，把CPU时间划成片，每个片分给不同的线程，这样，每个线程轮流的“挂起”和“唤醒”，由于时间片很小，给人的感觉是同时运行的。多线程带来如下好处：（自己阅读）1）避免瓶颈；2）并行操作；3）提高效率；在多线程中，通过优先级管理，可以使重要的程序优先操作，提高了任务管理的灵活性。另一方面，在多CPU系统中，可以把不同的线程在不同的CPU中执行，真正做到同时处理多任务（Win98只是模拟的，而Win/NT/2000是真正的多CPU同时操作）。多线程 阅读全文
posted @ 2013-01-09 15:06
冰意 LceMeaning
阅读(189)
评论(0)
推荐(0)
摘要：
一、简单查询简单的Transact-SQL查询只包括选择列表、FROM子句和WHERE子句。它们分别说明所查询列、查询的表或视图、以及搜索条件等。例如，下面的语句查询testtable表中姓名为“张三”的nickname字段和email字段。SELECTnickname,emailFROMtesttableWHEREname='张三'(一)选择列表选择列表(select_list)指出所查询列，它可以是一组列名列表、星号、表达式、变量(包括局部变量和全局变量)等构成。1、选择所有列例如，下面语句显示testtable表中所有列的数据：SELECT*FROMtesttable2、 阅读全文
posted @ 2013-01-09 15:03
冰意 LceMeaning
阅读(179)
评论(0)
推荐(0)
摘要：
防止用户误输入是软件开发的一项必不可少的工作，除才之外，还要为用户的使用提供最大方便。当然，我们可以利用或开发新的组件，以完成这些功能。但是，在团队开发中，每个成员都用自己认为不错的组件开发自己所承担的模块，会给软件的后期维护带来麻烦。交工的时候，项目负责人可不买你的帐。如果你用函数调用来完成这些功 阅读全文
posted @ 2013-01-09 15:01
冰意 LceMeaning
阅读(522)
评论(0)
推荐(0)
浙公网安备 33010602011771号