万一 - 博客园

2007年12月13日

摘要： //类单元 unit Person; interface uses Dialogs; type TPerson = class(TObject) private FName: string; FAge: Integer; public constructor Create(strName: string; intAge: Integer); d... 阅读全文

posted @ 2007-12-13 15:15 万一阅读(5544) 评论(8) 推荐(0)

关于类的入门例子(2): 数字盒子

摘要： //类单元 unit NumBox; interface type TNumBox = class private FCount: Integer; public procedure AddOne; procedure AddFive; procedure ZeroCount; function GetCount: Integer; e... 阅读全文

posted @ 2007-12-13 13:56 万一阅读(4112) 评论(21) 推荐(0)

关于类的入门例子(1): 继承窗体

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

posted @ 2007-12-13 12:54 万一阅读(5840) 评论(8) 推荐(0)

获取本机IP地址

摘要： uses WinSock; function LocalIP: String; type TaPInAddr = Array[0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe: PHostEnt; pptr: PaPInAddr; Buffer: Array[0..63] of AnsiChar; i: Integ... 阅读全文

posted @ 2007-12-13 02:19 万一阅读(4662) 评论(2) 推荐(0)

2007年12月12日

文件管理类函数(2)

摘要： //查找一个文件 FileSearch var FileName,Dir,s: string; begin FileName := 'notepad.exe'; Dir := 'c:\windows'; s := FileSearch(FileName,Dir); if s'' then ShowMessage(s) //c:\windows\notepad.ex... 阅读全文

posted @ 2007-12-12 17:22 万一阅读(6011) 评论(3) 推荐(1)

文件管理类函数(1)

摘要： //判断文件是否存在 FileExists var f: string; begin f := 'c:\temp\test.txt'; if not FileExists(f) then begin //如果文件不存在 end; end; //判断文件夹是否存在 DirectoryExists var dir: string; begin dir := '... 阅读全文

posted @ 2007-12-12 13:05 万一阅读(8184) 评论(9) 推荐(3)

HTML5 将要移除的元素与属性

摘要：元素表:http://demo.yanue.net/HTML5element/移除的元素纯表现的元素：basefont，big，center，font, s，strike，tt，u；对可用性产生负面影响的元素：frame，frameset，noframes；产生混淆的元素：acronym... 阅读全文

posted @ 2007-12-12 11:06 万一阅读(3916) 评论(1) 推荐(0)

TColorToHex 与 HexToTColor

摘要： function TColorToHex(Color: TColor): string; begin Result := IntToHex(GetRValue(Color), 2) + IntToHex(GetGValue(Color), 2) + IntToHex(GetBValue(Color), 2); end; function HexToTColor(sC... 阅读全文

posted @ 2007-12-12 02:43 万一阅读(3229) 评论(7) 推荐(1)

RGBToHSB

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

posted @ 2007-12-12 02:22 万一阅读(3705) 评论(2) 推荐(0)

读取与修改字符串中的字符

摘要： var s: string; begin s := 'DelPhi'; ShowMessage(s[4]); //P s[4] := 'p'; ShowMessage(s); //Delphi end; 阅读全文

posted @ 2007-12-12 01:14 万一阅读(3294) 评论(0) 推荐(0)