delphi自带函数
qq_33577118
这个作者很懒,什么都没留下…
展开
-
Delphi 支持共享内存的概念,可以通过 TSharedMemory 类来实现两个程序之间的共享内存。
请注意,两个程序必须使用相同的共享内存名称来访问同一个共享内存块。在上面的示例中,我们使用了“MySharedMemory”作为共享内存名称。确保在两个程序中都使用相同的名称才能使它们共享相同的内存块。Delphi 支持共享内存的概念,可以通过 TSharedMemory 类来实现两个程序之间的共享内存。原创 2023-03-16 17:51:22 · 810 阅读 · 1 评论 -
TMemo动态创建
TMemo动态创建原创 2023-02-07 15:42:35 · 153 阅读 · 0 评论 -
Delphi判断文件大小
Delphi判断文件大小原创 2022-05-01 11:15:56 · 326 阅读 · 0 评论 -
Delphi中三种延时方法
Delphi中三种延时方法原创 2022-04-26 15:07:05 · 2904 阅读 · 0 评论 -
Delphi取整函数
floor 和 ceil 是 math unit 里的函数,使用前要先 Uses Math。trunc 和 round 是 system unit 里的函数,缺省就可以用。floor 直接往小的取,比如 floor(-123.55)=-124,floor(123.55)=123trunc 直接切下整数,比如 trunc(-123.55)=-123, floor(123.55)=123ceil 直接往大的取,比如 ceil(-123.55)=-123, ceil(123.55)=124round .原创 2022-03-23 12:23:22 · 1784 阅读 · 0 评论 -
Delphi 鼠标模拟点击
//Delphi 鼠标模拟点击1.把句柄窗口设置成顶置窗口2.保存鼠标当前位置3.把鼠标移动到新的位置4.执行右键或左键操作5.鼠标移动到原来位置procedure TForm1.btn2Click(Sender: TObject);var oldPoint,newPoint:TPoint; hw2:HWND; r:TRect; //获取句柄窗口鼠标位置begin GetCursorPos(oldPoint); //保存当前鼠标位置。 hw2:=StrToInt(edt原创 2021-09-10 12:13:51 · 1825 阅读 · 0 评论 -
delphi char数组、string和Pchar的相互转换
delphi char数组、string和Pchar的相互转换因为要调用windows的api或者给vc++写接口,很多地方都要用到pchar,现在将char数组、string和pchar之间的相互转换都列出来,都是网上找的资料,我总结一下,先直接上代码,再讲原理。1.string转换成pchar 可以使用pchar进行强制类型转换,也可以使用StrPCopy函数复制代码var s:string; p,p1:PChar;begin s:='Hello Delphi';原创 2021-07-21 01:26:16 · 2828 阅读 · 0 评论 -
delphi OnException捕捉全局异常错误的方法
软件总有想不到的异常发生,比如网络访问不了。。。如果系统弹出错误窗体,软件有可能就会终止运行,特别是那些不是人工守着的软件,这个delphi源代码就让所有的窗体显示在软件本身的文本框中,而不能让它弹出来,软件不会中断将继续运行!private { Private declarations } public procedure GlobalExceptionHandler(Sender: TObject; E: Exception); { Public declarations }原创 2021-07-20 00:02:10 · 1137 阅读 · 0 评论 -
DELPHI动态创建窗体
//第一种方式procedure TForm1.btn1Click(Sender: TObject);beginWith TForm2.Create(Application) doTry ShowModal;finally free;end;end; //第二种方式procedure TForm1.btn2Click(Sender: TObject);begin if not assigned(Form2) then begin Form2:=TForm2.原创 2021-07-17 23:19:50 · 875 阅读 · 0 评论 -
delphi MessageBox 退出
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin if MessageBox(Form1.Handle,' ------亲.真的需要退出吗?------','退出程序',MB_OkCancel + MB_DEFBUTTON2 + MB_ICONASTERISK )= idOk then begin CanClose := True; end ELSE begin CanClo原创 2021-07-17 01:38:52 · 255 阅读 · 0 评论 -
Delphi 复制粘贴
//需要用到Clipbrd,单元 //剪贴板的读写和清除功能 Clipboard.SetTextBuf(PChar(edt5.Text)); //复制到剪切板 edt1.Text:=(Clipboard.AsText); //粘贴 //===========================================procedure TForm1.Button1Click(Sender: TObject);beginMemo1.SelectAll;Memo1.CopyToClip.原创 2021-07-17 01:19:59 · 816 阅读 · 0 评论 -
Delphi 打开文件对话框 OpenDialog使用方法
var OpenDlg: TOpenDialog; strFileName: string;begin OpenDlg := TOpenDialog.Create(nil); try OpenDlg.Filter := '协议文件(*.EXE)|*.EXE|全部文件(*.*)|*.*'; OpenDlg.DefaultExt := '*.EXE'; if OpenDlg.Execute then begin strFileName := Trim原创 2021-07-13 12:50:20 · 2575 阅读 · 0 评论 -
delphi窗口跟随
procedure TForm1.FormPaint(Sender: TObject);begin fSQLMon.Show; fSQLMon.SetBounds(Left + Width + 10, Top, 300, Height);end;原创 2021-06-28 12:17:59 · 214 阅读 · 0 评论 -
Delphi单元文件Unit详解
Delphi单元文件Unit详解`有时随着项目改变开发语言也要换,今天用C#,明天可能就用DELPHI,在此把DELPHI文件结构备忘一下unit Unit1; interface {接口部分开始} uses {引用单元列表,这是可选的,如果包含必须紧跟interface关键字} {接口部分声明常量/类型/变量/过程和函数,这些声明对引用单元就像自己的声明一样} {在接口部分声明的过程和函数,就像使用了forward关键字}原创 2021-06-22 18:36:29 · 864 阅读 · 0 评论 -
DELPHI idhttp
//试下用idhttpuses IdHTTP;function GetWebPage(const Url :string; IsUtf8 :Boolean = False):string;varidp :TIdHTTP;beginResult := '';idp := TIdHTTP.Create(Application);tryidp.HandleRedirects := True;idp.Request.UserAgent := 'Mozilla/5.0';Result := id原创 2021-06-22 11:30:58 · 140 阅读 · 0 评论 -
delphi DBNaVigator组件的使用方法
DBNavigator组件用于在数据集进行记录导航,当用户单击DBNaVigator组件的某个按钮时,可实现记录指针的前移、后移,插入‘删除、修改当前记录等操作,而无须编写任何程序代码。 DBNavigator组件按钮功能First按钮 将指针移到数据表的第一条记录。Previous按钮 将指针前移一条记录oNext按钮 将指针后移一条记录。Last按钮 将指针移到数据表的最后一条记录。Insert按钮 在当前记录前插入一条新记录,并将数据集组件置于插人状态。Dele原创 2021-06-09 17:30:38 · 1261 阅读 · 0 评论 -
Delphi数据库技术中Disablecontrols和Enablecontrols的功能
一般来说,用来扫描整个数据库表并修改每个记录的某一个字段的程序如下所示:with Table DobeginDisableControls;{在修改记录的过程中,使其它部件无效}First; {将记录指针指向第一条记录}while not EOF dobegin<读取记录的一个字段值到一个变量中><做适当的修改>Edit; {将TTable部件置成编辑状态}<将修改后的字段值写回到其对应的字段>post; {将修改后的记录写回数据库}next; {原创 2021-06-02 11:55:07 · 418 阅读 · 0 评论 -
Delphi Random() 随机函数
Delphi Random() 随机函数函数原型:function Random ( Range: Integer) :integer;参数:Range:整数,返回值:整数,其范围为:0 <= Random(Range) < Range (指定Range)0 <= Random< 1 (不带参数Range)Random()生成随机数。(运行几次会发现取得的随机数一样,因为系统的随机种子没有改变,Ramdomize; 用来改变随机种子)。例:begin Ra原创 2020-12-11 17:28:49 · 1036 阅读 · 0 评论 -
Delphi字符串 DLL传递字符串方式
Delphi字符串 DLL传递字符串方式(1)var修饰符添加var 是地址传递,会修改原有的变量var s: string;begin S := 'Hello'; ChangeSVar(s); ShowMessage(S);end;// ChangeSVar 定义procedure TForm1.ChangeSVar(var A: string);begin A := A + 'World';end;以上会输出Hello World,因原创 2020-11-19 13:29:05 · 687 阅读 · 1 评论 -
Delphi 时间的比较
时间比较函数CompareDateTime() //比较两个时间是否相同CompareDate() //比较两个时间的日期是否相同CompareTime() //比较两个时间的时分秒是否相同SameDateTime() //比较两个时间是否相同SameDate() //比较两个时间的日期部分是否相同SameTime() //比较两个时间的时分秒是否相同前3个函数 的返回值原创 2020-10-18 21:43:34 · 1557 阅读 · 1 评论 -
Delphi 变体类型(Variant)
function TForm1.A(str:string):variant;begin Result:=str;end;procedure TForm1.btn1Click(Sender: TObject);vari:integer;str1:string;begin i:= A('123'); ShowMessage(IntToStr(i));end ;一、变体类型常用的函数介绍:Variant: 一种可以拥有各种数据类型; 也可以告诉目前存储的数据是什么类型(通过使用Var原创 2020-09-28 16:52:18 · 1966 阅读 · 0 评论 -
delphi-TMemoryStream用法
var FileName:string; memoryS:TMemoryStream; dataPort:Cardinal; //整型 无符号32位 dataNum:Word; i:Integer; StrList:TStringList; Buffer1,Buffer2:array[0..69] of Char;begin FileName:='a:\数据文件.cfg'; if not FileExists(FileName) then Exit; try原创 2020-09-17 11:31:18 · 1396 阅读 · 0 评论 -
Delphi DataModule使用方法
关于在formcteate事件中使用datamodule出错的解决方案:我们先用记事本打开Project1.dpr文件发现有类似以下的语句Application.Initialize;Application.CreateForm(TForm1, Form1);Application.CreateForm(TDataModule2, DataModule2);Application.Run;注意第一句和第二句的顺序我们发现在执行formcteate的时候DataModule2还没有创建所以我们原创 2020-07-24 17:06:53 · 1487 阅读 · 0 评论 -
delphi TStringList
查找方法var lst:TStringList ; i:Integer ; STR1,STR2:STRING;begin STR1:='010a,010A,200a,200b,905a'; STR2:='200a'; lst:=TStringList.Create ; try lst:=TStringList.Create ; lst.CaseSensitive :=true; lst.Delimiter :=','; ls原创 2020-07-12 23:54:46 · 673 阅读 · 1 评论 -
delphi 获取当前路径
方法一:不带\GetCurrentDir 方法二:带\ExtractFilePath(Application.ExeName);方法三:带\ExtractFilePath(paramstr(0))原创 2020-07-12 23:26:35 · 1685 阅读 · 0 评论 -
Delphi-CopyFile
copyfile('a:\test.ini','a:\test2.ini',false); //--------------------------------------------------- //CopyFile('<源文件的全部路径>','<目标文件的全部路径>',<False或true>); //True,若拷贝过去的文件路径下已存在相同文件,那么不替换文件。 //False,若拷贝过去的文件路径下已存在相同文件,那么会替换掉文件。 /..原创 2020-06-30 16:32:46 · 971 阅读 · 0 评论