- 博客(13)
- 资源 (4)
- 收藏
- 关注
RSS订阅原创 使用 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
1985
原创 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
363
转载 Delphi用户登录窗口框架
经常看到一些新手在优快云上问登录窗口如何写，也看到N多人form1.show/form1.create/…中做form2.show之类。实在看不下去了。这种写法实在不是很好，于是还是把自己理解的登录框架来写写吧。希望能给新人一些引导（可不要误导了呀！）1.登录窗口在什么地方调用？我说：最好在项目文件中，splash窗口显示过，一些需要加载的资源、窗口加载过后，Application.Ru
2012-09-11 18:07:53
1617
1
转载 DELPHI窗口支持鼠标中键滚动
在FormMouseWheel添加事件就可以了：1234procedure TForm1.FormMouseWheel(Sender: TObject; Shift:TShiftState;WheelDelta: Integer; MousePos: TPoint; var Handled:Boolean);begin VertScrollBar.
2012-09-11 17:12:07
1076
转载 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
1198
转载 DELPHI中Format函数功能及用法详解
DELPHI中Format函数功能及用法详解function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas功能：返回按指定方式格式化一个数组常量的字符形式说明 这个函数是Delphi中用得最多的函数，现在就列举几个例子以得到直观的理解"%" [索引 ":"] ["-"
2012-09-11 17:09:37
807
转载 Delphi中MessageBox使用详解
在delphi中经常要用到一个提示对话框，根据用户选择执行不同的命令，MessageBox就是常用的对话框，它不仅能够定义显示的信息内容、信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对框。1、函数原型及参数function MessageBox(hWnd: HWND; Text, Ca
2012-09-11 17:07:50
1163
转载 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
1269
转载 如何实现应用程序中的”回车”成TAB?
原地址：http://blog.youkuaiyun.com/xieyunc/article/details/4142875如何实现应用程序中的”回车”成TAB？其实方法有很多种，但哪一种才是最简洁、最灵活的呢？下面的方法就是博主最常使用的方法:一、在你的数据模块中,添加如下代码:[delphi] view plaincopy
2012-01-13 10:41:48
283
转载 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
555
原创 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
995
原创 Delphi 窗体的事件
Delphi窗体的事件共有40个，常用的分为5大类 建立窗体时引发的事件：共有4个 OnCreate事件：窗体创建时产生此事件， OnShow事件： 窗体显示前产生此事件 OnPaint事件： 重画窗体、窗体大小改变、窗体上的其他窗体移去时产生此事件 OnActivate事件：窗体激活时（窗体获得焦点时）产生此事件 关闭窗体时引发的事件：共有4个 OnCl
2010-04-07 21:50:00
677
转载 closequer与close的区别
直接关闭 closequery会把程序引导到OnCloseQuery在这里就可以添加一些询问之类的东西了，举个例子来说 ---------------------------------------- procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolea
2010-04-07 21:47:00
468
FastReport
2014-12-01
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人