- 博客(16)
- 资源 (39)
- 收藏
- 关注
转载 Cxgrid获取选中行列,排序规则,当前正在编辑的单元格内的值
Cxgrid获取选中行列,排序规则,当前正在编辑的单元格内的值Cxgrid获取选中行列,排序规则,当前正在编辑的单元格内的值 2011-03-22 14:44cxGrid1DBTableView1.Controller.FocusedRowIndex 当前行号cxGrid1DBTableView1.Controller.FocusedRow 当前行cxGrid1DBTableVie
2013-04-29 23:13:25 989
转载 TStringList 常用方法与属性:
//TStringList 常用方法与属性:varList: TStringList;i: Integer;beginList := TStringList.Create;List.Add('Strings1'); {添加}List.Add('Strings2');List.Exchange(0,1); {置换}List.Insert(0,'Strings3')
2013-04-29 22:58:03 562
转载 文本文件读写
文本文件读写前言:Delphi 支持三种文件类型: 文本文件、记录文件、无类型文件。文本文件是以行为单位进行读、写的。由于每一行的长度不一定相同,不能计算出给定行在文件中的确切位置,因而只能顺序地读写。文本文件只能单独为读或写而打开,在一个打开的文本文件上同时进行读、写操作是不允许的。文本文件的打开需要两个步骤:1.文件变量与文件名关联;2.初始化读写。
2013-04-29 22:50:56 433
原创 外部网页调用delphi函数
第一步:要创建Type library--IWebLogin添加登录接口第二步:创建Package添加Type Library单元,编辑webloginform.bp。第三步:程序中添加TypeLibrary单元,新建TypeLibrary_Impl单元实现 TWebLogInExternal= class(TAutoIntfObject, IWebLogin, IDispatch)
2013-04-29 01:16:52 850
原创 idhttp代理访问
idhttp1.ProxyParams.ProxyServer := FProxyHost; idhttp1.ProxyParams.ProxyPort := StrToInt(FProxyPort); idhttp1.ProxyParams.BasicAuthentication := true; idhttp1.ProxyParams.ProxyUsername
2013-04-28 23:46:09 883
原创 CodeSite使用
procedure TForm1.btn1Click(Sender: TObject);begin CodeSite.Send('第一条信息'); CodeSite.Send('form',Form1);end;procedure TForm1.FormCreate(Sender: TObject);var Dest: TCodeSiteDestin
2013-04-28 17:43:12 812
转载 DELPHI bpl使用
了解BPL和DLL的关系将有助于我们更好地理解DELPHI在构件制作、运用和动态、静态编译的工作方式。对初学DELPHI但仍对DELPHI开发不 甚清晰的朋友有一定帮助。BPL vs. DLL(原文http://www.delphi3000.com/ 翻译:房客)第一部分:有关包的介绍一般我们编写编译一个DELPHI应用程序时,会产生一个EXE文件,也就是一个独立的WIND
2013-04-28 15:57:16 746
原创 Delphi下POS打印机,控制开钱箱,客显,顾客显示屏,小票打印机
1、控制POS机的客户显示屏procedure TFrmMain.ShowMoney(Money_Port: String;Money_String:String);//Moneey_Port 顾显接口Com1 or Com2 Money_String 顾显显示的内容var PrnFileName:TextFile;begin
2013-04-28 14:27:21 2027
原创 delphi中pos处理中文字问题
delphi漏洞 pos()函数的奇怪现象edit1.Text := intToStr(pos('市',资中市'));结果=5,正确.edit1.Text := intToStr(pos('市','资兴市'));结果=2 . -_-?edit1.Text := intToStr(pos('市','湖南省郴州市资兴市'));结果=11,正确.edit1.T
2013-04-28 00:43:08 3066
转载 Delphi开发技巧
Delphi开发技巧 ◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag
2013-04-26 17:34:13 923
转载 Delphi建议使用语句
No.1 判断逻辑类型 }var B: Boolean;begin B := Boolean(2); //这样只是为了调试//B := True; if B = True then ShowMessage(‘B = True‘); //不建议//不安全 /////// if B then ShowMessage(‘B‘); //建议//简短
2013-04-26 14:37:40 507
原创 车牌号识 别
var row,lie:integer;beginform1.Repaint;for row:=Trackbar1.Position to trackbar2.Position do begin for lie:=1 to 400 do begin t:=Image1.canvas.pixels[row,lie]; p[row
2013-04-26 11:10:17 766
原创 CxGrid.Properties.ImageCombobox设置
cxgrid中添加字段,给字段images对应image,设置properties设置imageComboBox--Items设置对应image,string value添加数据行时指定对应的Value,可显示对应的image图标设置ShowDescriptions=False行图标可居中显示。
2013-04-22 11:28:01 1830
原创 idhttp自动登录网站
uses winlnet;var PostList: TStrings; i: Integer; CookieS: string;begin PostList := TStringList.Create;try PostList.Add('action=checkOnline'); PostList.Add('loginName=' + edtuse
2013-04-19 10:50:08 1286
转载 DSPack视频调节
procedure TfrmVideo.GetValue;var pAvp: IAMVideoProcAmp; flag: TVideoProcAmpFlags; value: Integer;begin with (fg1 as ICaptureGraphBuilder2) do begin if Succeed
2013-04-17 23:41:01 1467
原创 Delph最简单i获取外网IP
uses idhttp;var idhttp:Tidhttp;begin idhttp:=TIdHTTP.Create(nil); ShowMessage(idhttp.Get('http://www.3322.org/dyndns/getip')); idhttp.Free;end;
2013-04-17 14:48:47 687
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人