2005年04月_Vsun

转载 delphi压宿Access数据库

uses dao97,dao2000;procedure CompactMdbDatabase(srcDbname,dstDbname,oldpwd,newpwd:string;bAccess97:boolean=true);var idbEngine:_dbEngine;begin if oldpwd if newpwd if bAccess97 then begin idbe

2005-04-25 22:10:00 1224

转载弹出数库联接窗口!

PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;此函数就可以弹出数据库的联接窗口，可以让用户选择连接的数据库类型级数据库此函数在 ADODB 中

2005-04-25 11:40:00 1381

转载 Delphi中将文件流的数据写入动态数组

varmyfile:TfileStream;mybuf:array of Pchar;beginmyfile:=TfileStream.Create(d:/a.txt,fmOpenReadWrite);setlength(mybuf,myfile.size);myfile.ReadBuffer(mybuf[0],myfile.Size);//delete(String(mybuf),1,myf

2005-04-22 19:56:00 2618

转载 Memo控件光标定位过程

procedure CursorPosition(Control: TMemo; col, row: integer);var Pos: integer;begin //检查行数是否超过了实际行数! 超过时即选最后一行 if Col>Control.Lines.Count then Col:=SendMessage(Control.Handle, EM_GETLINECOUNT, 0, 0)

2005-04-18 21:33:00 1375

转载 delphi 函数手册

名称类型说明 ageIndex 属性页索引 Pages 属性页 ParamCount 函数返回在命令行上传递给程序的参数数量 ParamStr 函数返回指定的命令行参数 Pen 属性画刷设置 Pi 函数返回圆周率Pi Picture 属性显示图象 PictureClosed 属性设置Closed位图 PictureLeaf 属性设置Leaf位图 PictureMinus 属性

2005-04-17 02:48:00 1200

转载 Delphi常用函数应用

得到WINDOWS的SYSTEM路径: 方法: var MySysPath : PCHAR ; begin GetMem(MySysPath,255); GetSystemDirectory(MySysPath,255);

2005-04-17 02:15:00 1288

转载二进制转十进制

var s :string; i, j : integer; n : integer; begin s := 01100001; j := length(s); n := 0; for i := 1 to j do begin n := n + strtoint(s[i]) shl (j -i);

2005-04-16 20:20:00 1057

转载在exe文件中嵌入文件并释放

以前有不少文章也是关于这个问题的，不过这些老文章里讲述的方法通常让你需要做较多的工作，而其实并不需要这么工作，因为在Delphi5中的更加简便的方法。首先，我想给你介绍一下Delphi5自带的一个演示程序。这个程序叫"Resource Explorer"，你可以在"Delphi5"目录下找到，这个程序的功能，也许你已经猜到了，就是浏览资源(Resource)。这是程序一个小巧而方便的工具，它可

2005-04-14 13:49:00 2349

原创很经典的十五句话，从别人的blog上看来的!

1，记住该记住的，忘记该忘记的。改变能改变的，接受不能改变的　　　　2，能冲刷一切的除了眼泪，就是时间，以时间来推移感情，时间越长，冲突越淡，仿佛不断稀释的茶　　　　3，怨言是上天得至人类最大的供物，也是人类祷告中最真诚的部分　　　　4，智慧的代价是矛盾。这是人生对人生观开的玩笑。　　　　5，世上的姑娘总以为自己是骄傲的公主(除了少数极丑和少数极聪明的姑娘例外) 　　　　6，如果敌人让你生

2005-04-14 02:40:00 1057

转载 Delphi之数组

Delphi之数组Object Pascal中可以建立丰富的数据类型。数组毫无疑问也是众多自定义数据类型中的一种。TypeTA = array[0..9] of Integer;...varA : TA;和下面这段代码通常效果是相同的（不同的地方在类型篇再说）varA : Array [0..9] of Integer;这相当于C中的in

2005-04-13 11:50:00 1459

转载 DELPHI的编译指令

DELPHI的编译指令{$IFDEF WIN32} -- 这可不是批注喔! 对于Delphi来说﹐左右大括号之间的内容是批注﹐然而「{$」(左括号后紧接着货币符号)对于Compiler(编译器)而言并不是批注﹐而是写给Compiler看的特别指示。应用时机与场合 Delphi中有许许多多的Compiler Directives(编译器指令)﹐这些编译指令对于我们的程序发展有何影响呢? 它们又能帮

2005-04-13 11:44:00 1390

转载 delphi中使用API时的一点注意之处

我们知道，很多情况下，Windows API函数都需要一个缓冲区，例如以获取临时目录的API GetTempPath为例，这个函数需要一个Buffer用来存放返回的目录名称，而很多人代码(包括许多高手和Borland的专家)是这样写的：function GetTempDirectory: String;var TempDir: array[0..255] of Char;begin GetTe

2005-04-12 13:46:00 1206

转载 delphi 编码转换 unicode gbk big5

以下代码在DELPHI 7上调试通过，主要使用了api函数中MultiByteToWidechar function UnicodeEncode(Str:string;CodePage:integer):WideString;var Len:integer;begin Len:=Length(Str)+1; SetLength(Result,Len); Len:=MultiByteToWi

2005-04-09 04:15:00 1725

delphi有三种字符串类型：短字符串(string[n],n=1..255)存储区为静态分配，大小在编译时确定，这是继承于bp for dos的类型；字符数组(pchar)主要是为了兼容各类api，在bp7中已经出现，如今在delphi中更加应用广泛，其存储区可以用字符数组静态分配，也可用getmem手动分配；而长字符串(ansistring)是delphi独有的，其存储区在运行时动态分配，最灵

2005-04-08 09:49:00 1616 1

转载学习笔记

Sent: GET /basic/article/api/fun/showapi.asp?API_ID=1 HTTP/1.0Sent: Host: www.zytnet.com>Sent: Accept: text/html, */*Sent: User-Agent: Mozilla/3.0 (compatible; Indy Library)Sent:

2005-04-08 08:49:00 1202

转载将数字转换成为大写金额!

这也只是一个学习的例子function MoneySwap(money: real): string;const moneyunit = 分角元拾百千万拾百千亿拾百千万; moneyvalue = 零壹贰叁肆伍陆柒捌玖拾;var NewMoney, Smoney: string; i: integer;begin money := int(money * 100); Smone

2005-04-06 11:37:00 1489

转载手工创建显示主窗体

首先要让编释器知道不需要自动来创建你的主窗体 Ctrl+Shift+F11,然后在，Project1(application)中加入如下代码!form1:=Tform1.Create(nil);form1.ShowModal;

2005-04-05 11:23:00 1403

转载让你的delphi程序支持外部参数

procedure TForm1.FormCreate(Sender: TObject);vari: Integer;for i := 1 to ParamCount dobeginif LowerCase(ParamStr(i)) = beep thenBeepelse if LowerCase(ParamStr(i)) = exit thenApplication.Terminate;

2005-04-05 11:21:00 1387

Vsun Sky ── 阿永的博客