xfaw-CSDN博客

原创使用 Delphi Xe 的 TDictionary

原本一直使用 TList，将定义的一个个 Record 保存在TList 里面，为了能把某些对象管理起来，例如一个类的 n 多实例，可以进行索引、查找、释放等今天刚看到原来已经有了一个叫 TDictionary 对象，用起来挺方便。挺像我们在DB中定义的 Dictionary 表，Key、Value。而那个不管Key、Value 都挺发达，允许各种定义的类。ok，下面官方Demo很通俗易懂，各方法都在：type TCity = class Country: Strin..

2020-07-23 11:42:09 1740

原创 Delphi DLL 字符串传递例子

Delphi DLL 字符串传递例子library EN;usesSysUtils,Classes,UnitFormEN in 'UnitFormEN.pas' {FormEN};{$R *.res}function GetJobType(p: PChar): Boolean; stdcall;varstr: string;be...

2019-12-05 08:51:06 269

转载 Delphi用户登录窗口框架

经常看到一些新手在CSDN上问登录窗口如何写，也看到N多人form1.show/form1.create/…中做form2.show之类。实在看不下去了。这种写法实在不是很好，于是还是把自己理解的登录框架来写写吧。希望能给新人一些引导（可不要误导了呀！）1.登录窗口在什么地方调用？我说：最好在项目文件中，splash窗口显示过，一些需要加载的资源、窗口加载过后，Application.Ru

2012-09-11 18:07:53 1543 2

转载 DELPHI窗口支持鼠标中键滚动

在FormMouseWheel添加事件就可以了：1234procedure TForm1.FormMouseWheel(Sender: TObject; Shift:TShiftState;WheelDelta: Integer; MousePos: TPoint; var Handled:Boolean);begin VertScrollBar.

2012-09-11 17:12:07 972

转载 Delphi的TStringList类使用详解

TStringList 常用方法与属性: var List: TStringList; i: Integer; begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1);

2012-09-11 17:11:04 900

转载 DELPHI中Format函数功能及用法详解

DELPHI中Format函数功能及用法详解function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas功能：返回按指定方式格式化一个数组常量的字符形式说明这个函数是Delphi中用得最多的函数，现在就列举几个例子以得到直观的理解"%" [索引 ":"] ["-"

2012-09-11 17:09:37 753

转载 Delphi中MessageBox使用详解

在delphi中经常要用到一个提示对话框，根据用户选择执行不同的命令，MessageBox就是常用的对话框，它不仅能够定义显示的信息内容、信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对框。1、函数原型及参数function MessageBox(hWnd: HWND; Text, Ca

2012-09-11 17:07:50 1029

转载 Delphi中调用执行Windows的exe文件

—————————————————————用ShellExecute(Handle,PChar(‘open’),PChar(‘calc.exe’),nil,nil,SW_SHOWNORMAL);前面还要包含ShellApi单元。—————————————————————*:启动一个程序ShellExecute(Handle,’open’,PChar(‘c:\test\app.exe’),nil,n

2012-09-11 17:06:06 1178

转载如何实现应用程序中的”回车”成TAB?

原地址：http://blog.csdn.net/xieyunc/article/details/4142875如何实现应用程序中的”回车”成TAB？其实方法有很多种，但哪一种才是最简洁、最灵活的呢？下面的方法就是博主最常使用的方法:一、在你的数据模块中,添加如下代码:[delphi] view plaincopy

2012-01-13 10:41:48 239

转载 TStringList 的使用方法详解

//TStringList 常用方法与属性:var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); {置换} List.Insert(0,'Strings3'); {插入} i := List.IndexOf('String

2011-01-31 21:20:00 480

原创 delphi 读取txt文件

1、放一下memo控件、一个button、opendialog在button的click事件中if opendialog1.Execute thenmemo1.Lines.LoadFromFile(opendialog1.filename); 2、滥简单的事啊var Mytxt : TStringList;begin MyText :=TSt

2010-04-21 13:55:00 891

原创 Delphi 窗体的事件

Delphi窗体的事件共有40个，常用的分为5大类　　建立窗体时引发的事件：共有4个　　OnCreate事件：窗体创建时产生此事件，　　OnShow事件：窗体显示前产生此事件　　OnPaint事件：重画窗体、窗体大小改变、窗体上的其他窗体移去时产生此事件　　OnActivate事件：窗体激活时（窗体获得焦点时）产生此事件　　关闭窗体时引发的事件：共有4个　　OnCl

2010-04-07 21:50:00 610

转载 closequer与close的区别

直接关闭 closequery会把程序引导到OnCloseQuery在这里就可以添加一些询问之类的东西了，举个例子来说 ---------------------------------------- procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolea

2010-04-07 21:47:00 407

FastReport

1、先关闭DELPHI； 2、下载后解压到一个目录，比如：D:FR； 3、打开D:FR，运行recompile.exe 　->点击"Continue"继续 ->1."Select the compiler"选"Embar cadero RAD Studio XE(Delphi,C++)"；　->2."Select the FastReport version"选"Enterprise"（选择你DELPHI XE的版本）　->3."Select the TeeChart version"选"TerCharStd"（选择你TeeChart版本）　->4."What you want to do"选"Recompile all packages"（一定要选这个），那个语言选择的不管它先（默认English）　->点击"Compile"（等它编译完，有个确定提示，记下上面的编译到路径，比如：D:FRLibD15）　->点击"确定"，返回窗口点击"exit"关闭 4、打开Delphi XE 　->1.菜单"Tools"->"Options"->左侧"Environment Options"->"delphi Options"->"Library"->右侧"Library path:"->右边的"..."按钮->把前面的路径（D:FRLibD15）复制到"Greyed items denote invalid path."中->点击"OK"完成编译路径的添加->关闭Option窗口　->2.菜单"Component"->"Install Packages"->"Add"->在打开的浏览窗口中选择到编译路径（D:FRLibD15），选择所有dcl开关的.bpl文件->点击"确定"完成控件的安装->关闭"Component"窗口 5、到这里安装已经完成，接下测试FastReport，新建一工程，加入FastReport的组件->菜单"Project"->"Build All Projects"->能完成，不报错，说明安装成功了

2014-12-01

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

强仔