摘要： program Project2;{$APPTYPE CONSOLE}usesWindows,SysUtils,TLHelp32; {$R *.RES} function GetWinDir: string; var Buf: array[0..MAX_PATH] of char; begin GetSystemDirectory(Buf, MAX_PATH); Result := Buf; if Result[Length(Result)] '\' then Result := Result + '\'; end; //取本机的计算机名 function... 阅读全文

摘要： program Project2;{$APPTYPE CONSOLE}uses SysUtils;//定义一个结构类型type Tpeople = record Name :string; Age:Integer; Sex:string;end;procedure init();begin Writeln('┏━━━━━┳━━━━━┳━━━━━┓'); Writeln('┣━━━━━┻━━━━━┻━━━━━┫'); Writeln('┃ Delphi控制台输入输出测试程序 ┃'); Writeln('┃ (a:)运行DEMO1 ┃' 阅读全文

摘要： program Project2;{$APPTYPE CONSOLE}uses SysUtils;//定义一个结构类型type Tpeople = record Name :string; Age:Integer; Sex:string;end;var people:Tpeople;begin with people do begin Name := '小明'; Age := 25; Sex := '男'; end; Writeln('Name:',people.Name); Writeln('Age:',people.Age); 阅读全文

摘要： 首先新建一个控制台项目：练习下指针类型的数据赋值和使用program Project1;{$APPTYPE CONSOLE}uses SysUtils; type pint=^Integer;//定义指针类型 var a:Integer; b:Integer; c:Integer; pt:pint;//整形指针 p:Pointer;//无类型指针begin a:=2; b:=3; pt:=@b;//整形指针指向整形数据 Writeln('pt=', pt^); p:=@a;//无类型指针指向整形数据 //Writeln('p=', p^);... 阅读全文

摘要： 打包下载：http://files.cnblogs.com/qqook/p1.rarunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) lbl1: TLabel; lbl2: TLabel; lbl3: TLabel; lbl4: TLabel; edt1: TEdit; btn1: TButton; btn2:... 阅读全文

摘要： 这个是delphi6 以后带来的bug。解决办法：将Label的font设为字体改为,宋体, 9号, 字符集, chinese_gb2312 , AutoSize设为true就行了。 阅读全文

摘要： 前言Delphi作为一个快速高效的开发平台，使用的人越来越多，但熟悉在Delphi代码中嵌入ASM代码的程序员我想不多，因为这方面的资料太少了，另一方面，它还需要有基本的汇编语言知识，关於汇编语言的教程，那实在太多了，如果你对汇编语言不熟的话，建议你下载相交的教程先读读。因此，本文假定您已经熟悉了汇编语言。（注，下文中的函数与过程统称为函数。）一．如何在Delphi程序中增加一段汇编代码？很简单，用asm...end把你的汇编代码封装起来，再把它放到你需要它的位置．这个需要它的位置可以是函数的begin与end之间，也可以是Program的begin与end之间，当然，好可以是initiali 阅读全文

摘要： try ....(需要执行的代码)except on e:exception do application.MessageBox(pchar(e.Message), '错误提示', 0);end; 阅读全文

摘要： 1.引用 TFORM2. 2.在FORM1中使用如下代码创建 //第一种方式procedure TForm1.btn1Click(Sender: TObject);beginWith TForm2.Create(Application) doTry ShowModal;finally free;end;end; //第二种方式procedure TForm1.btn2Clic... 阅读全文

摘要： 完整的代码如下：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) lbl1: TLabel; private procedure WMSYSCOMMAND(var msg:TMessage);message WM_SYSCOMMAND; { Private declarations } public { Public dec... 阅读全文