Delphi高级篇

Delphi Opendialog组件

转载于:https://www.cnblogs.com/fanweisheng/p/11365224.html
weixin_30642561·2020-09-17 13:16

Delphi选择文件夹函数

SelectDirectory函数通过显示一个对话框来让用户选择一个目录。注意：在使用前要在Uses语句中添加包含FileCtrl的说明。函数原型如下：functionSelectDirectory(constCaption:string;constRoot:WideString;outDirectory:string):Boolean;overload;functionSelectDirecto
吃素的小动物·2020-09-17 13:16

Delphi开启Windows目录对话框代码

Windows目录对话框是一个标准的WindowsUI控件，其可以列出一个目录列表，并且可以显示新增按钮。该段代码分为两个部分：(1)控件代码(2)调用代码(1)控件代码。代码如下unitBrowseForFolderU;interfacefunctionBrowseForFolder(constbrowseTitle:String;constinitialFolder:String=''):St
weixin_30551963·2020-09-17 13:10

~Delphi const 杂谈~

----------------------------------------------------{*********************************************}{Delphiconst
weixin_30376163·2020-09-17 13:30

SelectDirectory在Delphi中定位文件夹位置

//SelectDirectory在Delphi中定位文件夹位置procedureTForm1.Button1Click(Sender:TObject);//直接定位文件'打开一个文件beginOpenDialog1
weixin_30360497·2020-09-17 13:59

delphi 弹出选择目录窗口

ifnotSelectDirectory('请选择输出文件路径','/',directory)thenbeginExit;end;使用SelectDirectory函数注意要在use下引入FileCtrl。第一个参数是提示信息，第二个参数是默认路径，第三个参数是你自己选择的路径。转载于:https://www.cnblogs.com/feiyunaima/p/6252381.html
weixin_30346033·2020-09-17 13:58

Delphi下Label汉字显示不全解决方法

当Label的Caption设置为汉字，AutoSize属性设置为True，文字内容会显示不完全，两种解决办法：1.AutoSize设置为False，把Label调整成能显示出内容的大小。2.把Font字体为宋体，字号为10，字形为常规，字符集为“CHINESE_GB2312”
szyyjzy·2020-09-17 13:53

TSqlQuery执行count(*)

刚开始用Delphi，正在看dbExpress部分，想用TSqlQuery查询表内总共多少条记录，找了好多资料这里总结下：方法1.sqQuery.SQL.Clear;sqQuery.SQL.Add('selectcount
szyyjzy·2020-09-17 13:53

Delphi按下回车键使各控件依次获得焦点

procedureTForm1.FormShortCut(varMsg:TWMKey;varHandled:Boolean);vari:Integer;beginifMsg.CharCode=VK_RETURNthenbegini:=ActiveControl.ComponentIndex+1;if(i=ComponentCount)theni:=0;TWinControl(Controls[i]
szyyjzy·2020-09-17 13:53

QuotedStr函数

Delphi中数据库编程组合SQL时，经常涉及到单引号，采用这个函数自动在字符两端增加上单引号，很方便。
szyyjzy·2020-09-17 13:53

C++Builder中关于INDY库的使用 以及一些问题的解决（E2238 Multiple declaration for 'fd_set'）

Indy库是一个非常棒的库,里面大约有100个组件或类,完全按照tcp/ip协议来,如果你不愿意每次都WSAStartup并且还要查rfc的话,就使indy吧,我使完的感觉就是爽delphi6和cb6以上都默认安装
sanshao27·2020-09-17 12:31

Delphi-DrawTextEx

//声明:DrawTextEx( DC:HDC;         {设备句柄} lpchText:PChar;     {文本} cchText:Integer;    {要绘制的字符个数;-1表示全部} varp4:TRect;      {矩形结构} dwDTFormat:UINT;    {选项} DTParams:PDrawTextParams{附加参数,指向一个DRAWTEXTPARAM
qq_27361833·2020-09-17 12:58

Delphi选择文件夹

usesFileCtrl；functionSelectDirectory(varDirectory:string;//英文对话框Options:TSelectDirOpts;HelpCtx:Longint):Boolean;overload;functionSelectDirectory(constCaption:string;//中文对话框constRoot:WideString;varDire
qiume·2020-09-17 12:30

delphi 文件路径操作

System.IoUtilshttps://www.cnblogs.com/cause/p/3500100.html--------遍历文件----procedureTForm1.Button4Click(Sender:TObject);varpath:string;sFile:string;fp:TDirectory.TFilterPredicate;beginfp:=function(cons
ozhy111·2020-09-17 12:38

Delphi中获取文件夹路径的三种方式 和实现文件复制

（一）第一种方法是用Delphi提供的组件（在Win3.1面板上）模仿在上面看到的对话框自己组装一个“浏览文件夹”窗体。
lll_123123·2020-09-17 12:42

Delphi选择指定路径作为操作路径

UsesVCL.FileCtrlifSelectDirectory(‘选择文件提取路径’,‘d:’,Str)thenbeginMemo1.Lines.Add(‘已选定[’+Str+‘]为检索目录’);Edit1.Text:=Str;endelsebeginExit;end;
绍兴老鼠·2020-09-17 12:57

Delphi Image使用ImageList中的图片

varbmp:Tbitmap;beginbmp:=Tbitmap.Create;tryifRltthenbeginimagelist1.GetBitmap(1,bmp);img1.Picture.Assign(bmp);endelsebeginimagelist1.GetBitmap(0,bmp);img1.Picture.Assign(bmp);end;finallybmp.Free;end;
liang08114·2020-09-17 12:34

Delphi10.1 进入Debug方式

转载：https://blog.csdn.net/mengzhongren2/article/details/102498991buildconfigurations选debug，然后saveall，再build，然后运行Run
konnysnow·2020-09-17 12:17

TIdUDPClient控件中文指南

TIdUDPClient控件中文指南2007-03-1522:48:28|分类：delphi程序备忘|字号订阅IDUDPClient本控件的通信标准是RFC768，网址是：http://www.rfc-editor.org
gencheng·2020-09-17 11:15

Delphi网络Web编程心得

URL编码可以使用HttpApp.pas中的HTTPEncode对百度,直接使用HTTPEncode()编码就好了,但对Google,有点特别,需要做如下的编码HTTPEncode(UTF8Encode(url))即先做utf8编码再做url编码IdHTTP的设置IdHTTPWorker.AllowCookies:=False;IdHTTPWorker.HandleRedirects:=False
eulb·2020-09-17 11:49

Delphi参数传递修饰符效率总结

对于string类型const按地址传递，而不是像默认方式那样只是增加引用计数默认只是增加引用计数,被修改后才产生本地副本(copy-on-write)比如procedureMethod1(S:string);beginS:=S+'k';end;只有在S被修改后副本才会产生,S的地址才会变化var按地址传递参数,同const结论:const修饰符会(也只会)优化string和记录类型的参数传递时的
eulb·2020-09-17 11:49

将文件大小数值转换成B、KB、MB、GB

//delphi将文件大小数值转换成B/KB/MB/GBfunctionFormatByteSize(constbytes:Longint):string;constB=1;//byteKB=1024*
dkopg24406·2020-09-17 11:05

delphi学习笔记--TOpenDialog

delphi组件]TOpenDialog用于显示一个“文件选择”对话框2009-09-2911:421．TOpenDialog组件的典型用法“打开”对话框是用TOpenDialog组件实现的，TOpenDialog
is·2020-09-17 11:44

EhLib DBGridEh组件在Delphi中应用全攻略总结

EhLibDBGridEh组件在Delphi中应用全攻略总结【DBGridEh（增强型表格组件）功能详解】DBGridEh组件无论在外观上还是功能上都非常类似Borland开发工具中现有的dbgrid组件
csdn20142·2020-09-17 11:05

获取文件路径(Delphi )----转贴

ExtractFileDrive：返回完整文件名中的驱动器，如"C:"ExtractFilePath：返回完整文件名中的路径，最后带“/”，如"C:/test/"ExtractFileDir：返回完整文件名中的路径，最后不带“/”,如"C:/test"ExtractFileName:返回完整文件名中的文件名称(带扩展名)，如"mytest.doc"ExtractFileExt返回完整文件名中的文件
chinmusam·2020-09-17 11:47

关于Delphi中二维数组的声明和大小调整

这是一个实例：procedureTMainForm.Button1Click(Sender:TObject);vararr:arrayofarrayofstring;beginsetlength(arr,2,3);arr[1,2]:='thisisatest';setlength(arr,0,0);setlength(arr,4,5);showmessage(arr[1,2]);end;声明一个二
Jack_Chai·2020-09-17 11:02

Delphi7 打开 Windows 资源管理器转到文件夹并选中指定文件

Delphi7打开Windows资源管理器转到文件夹并选中指定文件.varstrFilePath:string;beginShellExecute(Handle,'open',PChar('explorer.exe
aoma12345·2020-09-17 11:50

DELPHI中两个UDP控件的用法

DELPHI中有两个UDP控件：TIdUDPServer和TIdUDPClient控件，可用于传输UDP数据；用法都很简单，主要是一些细微的特性，弄清楚了对正确使用这两种控件有很大的好处；下面分别介绍：
anguangqing·2020-09-17 11:45

ShellExecute使用详解(DELPHI版)

有三个API函数可以运行可执行文件WinExec、ShellExecute和CreateProcess。1.CreateProcess因为使用复杂，比较少用。2.WinExec主要运行EXE文件。如：WinExec(’Notepad.exeReadme.txt’,SW_SHOW);3.ShellExecute不仅可以运行EXE文件，也可以运行已经关联的文件。首先必须引用shellapi.pas单元
aitanwu4387·2020-09-17 11:36

Delphi中文本信息对话框的常用函数

为了实现程序与操作人员之间更友好的对话，通常会使用一些信息对话框信，这里整理Delphi中常用的集中消息对话框。本文中借鉴了网上的一些总结，程序都是经过本人实测的，谢谢。
Manson_Wang·2020-09-17 11:15

delphi fastreport 预览出错

错误信息statementexpected,butexpressionoftype‘TfrxCustomPreview’found解决办法:frxReport1.Preview只是指定frxReport1的preview控件,调用frxReport1的预览应使用frxReport1.showReport;
_JeffreyWu·2020-09-17 10:32

Delphi 打开文件夹方法

第一种方法,使用SelectDirectory函数,在ShellApi中procedureTForm2.BtSelectPathClick(Sender:TObject);varstrCaption,strDirectory:String;wstrRoot:WideString;beginstrCaption:='这是浏览文件夹的说明文字，可以根据需要进行书写。'+#13#10+'一般二行文字就满
几百人在爱·2020-09-17 10:44

delphi 选择目录对话框（SelectDirectory 函数）

Delphi中好像没有原生的组件可用，可以用下面的函数来实现：函数原型：functionSelectDirectory(constCaption:string;constRoot:WideString;
踏雪无痕·2020-09-17 10:41

delphi 选择文件夹，路径选择，浏览文件夹

选择文件夹，路径选择，文件夹资源管理器推荐SelectDirectoryhttp://docwiki.embarcadero.com/Libraries/Seattle/en/Vcl.FileCtrl.TSelectDirFileDlgOptsVcl.FileCtrl.hppif(!SelectDirectory("请选择目录","",DaoPath)){return;}SelectDirecto
weixin_34167043·2020-09-17 10:43

delphi选择文件夹

//选择文件夹functionSelectFolderDialog(constHandle:integer;constCaption:string;constInitFolder:WideString;varSelectedFolder:string):boolean;varBInfo:_browseinfo;Buffer:array[0..MAX_PATH]ofChar;ID:IShellFol
weixin_34110749·2020-09-17 10:12

Delphi的文件与目录选择

delphi下有直接操作文件的控件OpenFileDialog和SaveFileDialog以及几个针对特殊文件类型的扩展控件，但是针对目录的控件操作确不是很符合目前的Windows风格，在FileCtrl
szyyjzy·2020-09-17 10:14

delphi之选择文件夹路径、选择文件路径

一、OpenDialog选择文件路径procedureTForm4.but2Click(Sender:TObject);varChoBak:TOpenDialog;beginChoBak:=TOpenDialog.Create(nil);ifChoBak.Execute()thenbeginShowMessage(ChoBak.FileName);end;二、SelectDirctory选择文件夹
若水三千,只取一瓢·2020-09-17 10:13

Delphi OpenDialog使用方法

varOpenDlg:TOpenDialog;strFileName:string;beginOpenDlg:=TOpenDialog.Create(nil);tryOpenDlg.Filter:='协议文件(*.EXE)|*.EXE|全部文件(*.*)|*.*';OpenDlg.DefaultExt:='*.EXE';ifOpenDlg.ExecutethenbeginstrFileName:=
liang08114·2020-09-17 10:20

Delphi 显示选择文件夹对话框 (有新建按钮)

Delphi显示选择文件夹对话框(有新建按钮)附实例usesShlObj选择文件夹对话框。
iteye_6233·2020-09-17 10:38

delphi调用选择目录对话框

delphi调用选择目录对话框经常见网上有人问选择目录对话框的控件，其实只用一个函数就可以实现。
一剑平江湖·2020-09-17 10:21

delphi选择文件夹对话框(最简单的一种)

以前写程序时曾用过此方法，但好久没再用都给忘了，今天做个小东东，令我又想到了它，呵呵！copy如下：usesFileCtrl;varszPath:string;ifSelectDirectory('选个目录看看','',szPath)thenEdit1.Text:=szPath;转载于:https://www.cnblogs.com/Handll/archive/2009/07/27/153194
aojie8600·2020-09-17 10:04

delphi 选择文件夹目录保存

由于Delphi中并没有提供对于该控件的封装，所以打开它是个问题。
aldsot0997·2020-09-17 10:30

c#程序在客户机器上无法连接SQLSERVER的解决过程

2、客户端也没有问题，因为有个其他的Delphi程序可以正常连接，而且将sqlconnection换成oledbconnection，可以连接成功。我本地是中文版系统，客户机是英文版。
zhangsansecond·2020-09-17 09:00

C#重点知识详解（一）

在C语言你可以通传递地址（即实参）或是DELPHI语言中通过VAR指示符传递地址参数来进行数据排序等操作，在C#语言中，是如何做的呢？"i
水电费123343·2020-09-17 09:43

python高级篇

1.切片功能：类似于java中的split方法。对list或者triple中几个值进行取出的过程。L=['a','b','c','d']L[0:3]=['a','b','c']#下标从0开始,取到第n-1个元素L[-2:]=['c','d']#倒序取值2.迭代(循环)功能：python中的可遍历对象只要是可迭代对象，例如list，triple，dict，字符串dict默认迭代的是key值，也可以循
weixin_30877181·2020-09-17 09:31

C#重点知识详解(1)

在C语言你可以通传递地址（即实参）或是DELPHI语言中通过VAR指示符传递地址参数来进行数据排序等操作，在C#语言中，是如何做的呢？"in"关键字可以帮助你。这个关键字可以通过参数传递你想返回的值。
sky_rui·2020-09-17 09:22

21小时学数据库 | 数据库知识大盘点，细数数据库二三事

看的视频是MySQL基础+高级篇-数据库-sql-尚硅谷，感谢B站感谢up主~数据库知识回顾一：数据库基本概念DQL:数据库知识回顾二：数据库查询语句DQL之基础查询，条件查询，模糊查询，排序查询数据库知识回顾三
门萨程序媛·2020-09-17 09:51

C++ --> Delphi

defineCTL_CODE(DeviceType,Function,Method,Access)(((DeviceType)<<16)|((Access)<<14)|((Function)<<2)|(Method))Delphi
okmnji79513·2020-09-17 09:52

【转】delphi读写txt文件

http://meidi152.blog.163.com/blog/static/5423302009610103610744/1.memo控件读取txtmemo1.Lines.LoadFromFile('E:/*/*.txt');2.ProcedureNewTxt(FileName:String);VarF:Textfile;BeginiffileExists(FileName)thenDele
okmnji79513·2020-09-17 09:51

Delphi7中安装Indy10

先用Delphi7的安装包，卸载掉原来的Indy9。
okmnji79513·2020-09-17 09:51
上一页 38 39 40 41 42 43 44 45 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他