TObject

初探Object Pascal的类（三）

在上一讲中定义的TVehicle就没有构造函数，若不提供一个构造函数，当建立类时，就会用隐藏的类构造程序（Object Pascal所有类都是从TObject 派生，TObject类有一个构造函
·2015-10-21 10:38

lazarus中不同模式下自定义函数的调用方式区别

//显示定制crud界面  procedureshowCrudForm(Sender:TObject);  ......调用：...crudItem.OnClick:=@showCrudForm;  .
bq_cui·2015-10-19 17:00

EF学习和使用（八）你必须知道的效率问题根源之ExpressionTObject, bool>>与Func<TObject, bool>

框架中加入了EF，使开发效率大大加快，但是项目做出来之后，数据稍微多一点，页面的加载速度就会非常慢。经过层层详细的排查之后，发现是项目封装的EF工具类有问题。工具类中封装的查询方法：#region按条件查询：LoadItems(FuncwhereLambda) /// ///按条件查询 /// ///lambda表达式 ///IQueryable泛型集合 publicIQueryableLoadI
u010028869·2015-10-18 19:00

lazarus用另外一种方便的方式生成xml

//导出选中表 procedureTForm_data_outport.Button2Click(Sender:TObject); va
bq_cui·2015-09-29 09:00

FireDAC读取数据Delphi

procedureTForm1.btnReadDataClick(Sender:TObject);varsql:String;myConn:TFDConnection;myQry:TFDQuery;mySource
LongHuaiYu·2015-09-25 10:00

Delphi学习之 FireDAC

用FireDAC在access数据库中添加一行数据，此处利用的是SQL语句插入方法procedureTForm1.btnInsertDataClick(Sender:TObject);varmyCom:
LongHuaiYu·2015-09-24 14:00

FastJSON 之bean列表转换为JSON

importjava.util.List; importcom.alibaba.fastjson.JSON; publicclassTestJSON{ publicstaticStringserialize(Tobject
浅时光·2015-09-23 13:00

FastJSON 之bean列表转换为JSON

importjava.util.List; importcom.alibaba.fastjson.JSON; publicclassTestJSON{ publicstaticStringserialize(Tobject
浅时光·2015-09-23 13:00

C++ Builder XE8 安卓开发之菜单键的触发代码

在Form的Onkeyup事件中，参数Key为按键值：vkMenu：菜单键vkHardwareBack：back键源码如下：void__fastcallTForm1::FormKeyUp(TObject
u012163234·2015-08-27 09:00

delphi将图片存储到sql server 2005

sqlserver2005字段类型为image delphi使用的单元为jpeg,db,dbtables;delphi存储图片代码片段procedureTForm1.btnPostClick(Sender:TObject
gzxiaorou·2015-08-20 23:00

delphi 银联POS终端MAC算法(单倍DES算法)

//主窗体界面代码 procedure TForm1.Button1Click(Sender: TObject);  var    lv_context : string;    lv_acontext
雨田ZER0·2015-08-10 17:00

java 泛型 class 创建方法

publicclassAssemblewhereT:new() { publicstringSayHello(Tobject) { Tass=newT(); returnass.ToString();
zl834205311·2015-08-05 17:00

delphi 图像处理 图像左旋右旋

procedureTDR_QM_ZP_Form.btn_ZXClick(Sender:TObject); //图像左旋 begin screen.Cursor:=crhourglass; my_int3
神奇的匹诺曹·2015-08-04 16:00

delphi 图像处理 图像左旋右旋

procedureTDR_QM_ZP_Form.btn_ZXClick(Sender:TObject); //图像左旋 begin screen.Cursor:=crhourglass; my_int3
神奇的匹诺曹·2015-08-04 16:00

delphi 图像处理 图像放大缩小

procedureTDR_QM_ZP_Form.btn_FDClick(Sender:TObject); //图像放大 begin my_int1:=Trunc(my_int1*1.1);
神奇的匹诺曹·2015-08-04 15:00

delphi 图像处理 图像放大缩小

procedureTDR_QM_ZP_Form.btn_FDClick(Sender:TObject); //图像放大 begin my_int1:=Trunc(my_int1*1.1);
神奇的匹诺曹·2015-08-04 15:00

FireMonkey 导出目前 Style 另存文件

FireMonkey 能将目前使用的 Style 导出成文件，它提供二种文件格式，请看下列代码： *.style procedure TForm1.Button1Click(Sender: TObject
·2015-07-14 22:00

[cernRoot]how to get tree name?

TIternextkey(root_file->GetListOfKeys()); TKey*key,*oldkey=0; while((key=(TKey*)nextkey())){ TObject
kakakaco·2015-07-11 14:00

Delphi和C++的语法区别

一、Delphi永远没办法在栈上创建一个对象下面是一段常见的的Delphi代码，在过程的开头声明本过程所需要的全部局部变量：procedureFoo;varobj:TObject;//这句容易被C++程序员误会
编程老头·2015-07-08 00:00

ansistring 基本用法

阅读更多//Ansistring转charvoid__fastcallTForm1::Button1Click(TObject*Sender){AnsiStringTest="哈哈";char*chr=
飞旭boy88·2015-07-04 08:00

bcb

//Ansistring 转 char void __fastcall TForm1::Button1Click(TObject *Sender) {     AnsiString
飞旭boy88·2015-07-04 08:00

同一cocos2dx的对象先retain再release的注意事项

release,如果_data[index]与object是一个东西且ref等1    问题就来了，先删了_data[index],再retain崩溃*/  voidreplace(ssize_tindex,Tobject
xiexieguojia·2015-06-22 07:50

Delphi中WebBrowser判断页面及JS ajax是否加载完成-转

Application.ProcessMessages; 对于多框架： procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject
yonglailizhi·2015-06-13 02:00

devart unidac 存储过程 (输入、输出参数)

procedureTForm2.btn1Click(Sender:TObject);var usp:TUniStoredProc;begin usp:=TUniStoredProc.Create(nil
vga·2015-06-09 19:00

delphi 使用superobject实现jsonrpc的http远程调用

procedureTForm5.Button4Click(Sender:TObject);varO,item:ISuperObject;Strm:TStringStream;result:string;
yunshouhu·2015-06-09 10:45

delphi 使用superobject实现jsonrpc的http远程调用

procedureTForm5.Button4Click(Sender:TObject); var O,item:ISuperObject; Strm:TStringStream; result:string
earbao·2015-06-09 10:00

[cernRoot]How to get tree name from root file

TIternextkey(root_file->GetListOfKeys()); TKey*key,*oldkey=0; while((key=(TKey*)nextkey())){ TObject
kakakaco·2015-06-04 13:00

lazarus:导出中文内容到excel

//导出列表 procedureTForm_luru.Button1Click(Sender:TObject); Var sXm1,sDw1,sZhengshuId1:string; XLApp:OLEVariant
bq_cui·2015-05-27 17:00

lazarus:按回车键焦点自动跳至下一个控件

//回车焦点下移 procedureTForm_luru.FormKeyDown(Sender:TObject;varKey:Word;Shift:TShiftState); begin if(Key=
bq_cui·2015-05-27 17:00

Hibernate复合主键映射

  通常做法是将主键相关字段放到一个单独的类中，但是这样类是有要求的：*必须实现序列化接口*覆盖equals和hashcode方法  示例：TObject类有复合主键aPK、bPK  TObject类：
zero__007·2015-05-27 10:00

Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法

constWM_MouseEnter=$B013;WM_MouseLeave=$B014;typeTfrmMain=class(TForm)..Timer1:TTimer;procedureTimer1Timer(Sender:TObject
xujh·2015-05-08 15:47

配置连接

//界面打开显示时判断是否连接到数据库procedureTFRMMAIN.FormShow(Sender:TObject);var MyReg:TRegistry; constr,FWQMC,SJKMC
mrstarwei·2015-04-24 09:41

C++ builder之 字符串转换

//Ansistring转charvoid__fastcallTForm1::Button1Click(TObject*Sender){    AnsiStringTest="哈哈";    char*
jichuang123·2015-04-23 09:00

监控打印机

uses Winapi.WinSpool; procedure TForm1.Button1Click(Sender: TObject);var pi2: PRINTER_INFO_2; hPrinter
·2015-04-22 16:00

Delphi导出数据的多种方法

//Dxdbgrid，则直接用SaveToexcel即可//使用ExcelWithOdbc控件functionTDataModule1.GetDataToFile(DsData:TObject):Boolean
kinwar·2015-04-19 17:51

Delphi导出数据的多种方法

//Dxdbgrid，则直接用SaveToexcel即可//使用ExcelWithOdbc控件functionTDataModule1.GetDataToFile(DsData:TObject):Boolean
kinwar·2015-04-19 17:51

cxgrid添加行号

TMyCxGrid=class(TObject)   classprocedureDrawIndicatorCell(Sender:TcxGridTableView;ACanvas:TcxCanvas;
鹅倌·2015-04-16 11:02

cxgrid添加行号

TMyCxGrid=class(TObject)   classprocedureDrawIndicatorCell(Sender:TcxGridTableView;ACanvas:TcxCanvas;
鹅倌·2015-04-16 11:02

Delphi ADOQuery连接数据库的查询、插入、删除、修改

//查询记录 procedureTForm1.Button1Click(Sender:TObject); begin ADOQuery.Close; ADOQuery.SQL.Clear; ADOQuery.SQL.Add
chinazhd·2015-04-14 21:00

unigui MessageDlg方法调用例子

procedure TfrmEmployee.btnDeleteClick(Sender: TObject);var aBool: Boolean;begin inherited; MessageDlg
·2015-04-11 12:00

Webbrowser 代码收集

Webbrowes新窗口打开页面，强制在当前页面打开 方法：放两个webbrowser控件，错码如下;  procedure TForm1.WebBrowser1NewWindow2(Sender: TObject
kindao·2015-04-09 17:47

Webbrowser 代码收集

Webbrowes新窗口打开页面，强制在当前页面打开 方法：放两个webbrowser控件，错码如下;  procedure TForm1.WebBrowser1NewWindow2(Sender: TObject
kindao·2015-04-09 17:47

Webbrowser 代码收集

、禁止Webbrowes新窗口打开页面，强制在当前页面打开方法：放两个webbrowser控件，错码如下;procedure TForm1.WebBrowser1NewWindow2(Sender: TObject
kindao·2015-04-09 17:47

delphi 获取某个页面所有的链接

   USER MSHTML    procedureTfrmWebEmail.btn5Click(Sender:TObject);    var      Doc:IHTMLDocument2;      
gzxiaorou·2015-03-22 15:00

Delphi 实现简易语音发音（基于TTS方式）

usesComobj;   procedureTForm1.Button1Click(Sender:TObject);  var   voice:OLEVariant;  begin   voice:=
gzxiaorou·2015-03-22 15:00

Delphi6-xe5 中的MD5实现方法

示例代码procedureTForm1.Button1Click(Sender:TObject);var M
gzxiaorou·2015-03-20 15:00

Androidapi.JNI.Net.Wifi

procedureTForm1.SpeedButton1Click(Sender:TObject);var WifiManagerObj:JObject; WifiManager:JWifiManager
gzxiaorou·2015-03-20 15:00

blob 字段 处理

procedureTForm1.Button1Click(Sender:TObject);varBuffer:PChar;fd:Integer;Stream:TMySQLBlobStream;bmp:TBitmap
vga·2015-03-13 08:00

TQMsgPack序列还原clientdataset.data

序列 procedure TForm1.Button2Click(Sender: TObject);var msgpack: TQMsgPack;begin msgpack := TQMsgPack.Create
·2015-03-12 10:00

TQJson序列和还原clientdataset.data

序列 procedure TForm2.Button2Click(Sender: TObject);var AJson: TQJson;begin AJson := TQJson.Create; try
·2015-03-11 12:00
上一页 20 21 22 23 24 25 26 27 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他