例：var i, j: Integer;begin i := Round(1.5); // i等于2 j := Round(2.5); // j等于2end;在Delphi中使用Round函数得到的答案有时与我们所预期的会不太一样：采用的是四舍六入五留双。即当舍或入位大于或小于五时按四舍五入来处理，而当舍或入位等于五时，就要看前面一位是什么，根据奇进偶不进，它总是返回一个偶数值。例： i:= Round(11.5)//i等于12i:= Round(10.5)//i等于10这种Round其实是按照银行家算法...
http://www.okbase.net/doc/details/931 还没有亲自验证过，仅收藏 当你完成一个应用软件的开发后，那么你还需要为该软件做一个规范化的安装程序，这是程序设计的最后一步，同时也是很重要的一步，因为运行安装程序往往是用户做的第一步操作。很多报刊文章介绍了许多如何利用installshield等工具软件来制作安装程序的方法，这种办法可以很快建立起较常见的安装模式，但用这种办法也有一些不足，如做成的安装程序一般较大；风格较单...
函数重载重载的思想很简单：编译器允许你用同一名字定义多个函数或过程，只要它们所带的参数不同。实际上，编译器是通过检测参数来确定需要调用的例程。下面是从VCL 的数学单元（Math Unit）中摘录的一系列函数：[delphi] view plain copy function Min (A,B: Integer): Integer; overload; function Min (A,B: Int64): Int64; overload; function Min (A,B: Single): Single; overload; function Min (A,B: Double): Double; o...
TakePhotoFromCameraAction1: TTakePhotoFromCameraAction; // 通过手机摄像头获取图片TakePhotoFromLibraryAction1: TTakePhotoFromLibraryAction; //获取手机已存在图片ShowShareSheetAction1: TShowShareSheetAction;//用其它程序分享图片（Bitmap.Assign();）获取麦克风设置 FMX.MediaFMicrophone: TAudioCaptureDevice;FMicrophone := TCaptureDeviceManager.Current.DefaultAudioCaptureDevice;FMicrophone.FileName 设置路...
delphi有提供十进制转换成十六进制的函数： IntToStr(); 返回值为String// 十进制转十六进制 vari: integer;str: string; begini := 255; ShowMessage(IntToHex(I, 2)); //FF 2表示返回的位数 // 另外，Formart也有把十进制用十六进制输出的功能str := Format(‘%.2x‘, [i]);ShowMessage(str); // FF 返回结果跟IntToStr()函数想一样 end; delphi没有提供十六进制转成十进制的函数，但我们可以在十进制前面...
procedure TFrmLltj.FormActivate(Sender: TObject);var Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec:Word;begin Present:= Now; DecodeDate(Present, Year, Month, Day); DecodeTime(Present, Hour, Min, Sec, MSec); Showmessage(DateToStr(Present)+‘ ‘+TimeToStr(Present,‘hh‘));//显示年月日时分秒 Showmessage(formatdatetime(‘hh:mm‘,time));//显示时分 cbb_qs_n.Text := inttostr(...
一、TMemoryStream数据写入到字符串里var lvStream:TMemoryStream; s:AnsiString; p: PAnsiChar; begin lvStream:= TMemoryStream( pvObject); GetMem(p, lvStream.Size + 1); FillChar(p^, lvStream.Size, 0); Move(lvStream.Memory^,p^,lvStream.Size); s:=p; FreeMem(p);View Code二、字符串写入到TMemoryStreamvarlvStream:TMemoryStream;s:AnsiString; begins:=‘abcdefghjkimoop‘;lvStream.Write(s[1], Length(s));lvStrea...
Delphi Char、Pchar 、String 相互转换1、String 与 PChar 转换1.1 String转化成PChar 2种方式vars:string;p,p1:PChar; begins:=‘Hi Delphi7‘;p:=PChar(s); //ShowMessage(p);p1:=StrAlloc(Length(s)+1);StrPCopy(p1,s);ShowMessage(p1);StrDispose(p1); end; 1.2 PChar转String 3种方式vars,s1,s2:string;p:PChar; begins:=‘Hi Delphi7‘;p:=PChar(s); //ShowMessage(p);s1:=p; //ShowMessage(s1);s2:=Str...
这是咏南翻译Marco Cantu的文章。在过去的几年中，将服务器端解决方案（实际上是任何类型的应用程序）部署到轻量级DOCKER而不是物理机器或虚拟机已经变得越来越普遍，因为这允许更大的灵活性（在测试方面），更好地重建相同的执行环境，以及更大的可扩展性。随着10.3.3版本的发布，Embarcadero正式开始支持将通用Linux应用程序部署到Docker，特别是支持部署RAD服务器。 在这篇文章中，我将介绍Docker和Docker Hub，以及...
本文完全摘自网络，仅供自己查询上次跟大家分享了线程的标准代码，其实在线程的使用中最重要的是线程的同步问题，如果你在使用线程后，发现你的界面经常被卡死，或者无法显示出来，显示混乱，你的使用的变量值老是不按预想的变化，结果往往出乎意料，那么你很有可能是忽略了线程同步的问题。当有多个线程的时候，经常需要去同步这些线程以访问同一个数据或资源。例如，假设有一个程序，其中一个线程用于把文件读到内存，而另一个线...
我每次从数据库里面取数据出来和Edit里面的进行比较的时候总是会受到空格的困扰。。。老是干扰我。。。如果我用trim 所有都做去掉所有的空格那么这样就非常麻烦又繁琐。。有没有什么方法可以忽略空格的。。。还有就是我如果用Edit1.SetFocus对 其进行选中。。那么我如果不把字符串全部删除呢么就会有限定：我能输入的字符+原有的空格=MaxLength（我先设定的值）这又如何解决。。。呵呵 问题我已经解决了。。谢谢两位。。。呵呵 我做...
功能挺多的，就是很多地方都没有完善。不过简单使用，是没有问题的。我也忘记是在哪个网站下载的，可能是Git国外的网站。仿Word文档编辑器，不过其实没有必要的，因为用户会直接使用微软或者其他软件来制作自己的文档。但是却具有参考价值，虽然代码需要优化的地方还有很多。比如那些添加控件这些可以去除，把代码结构处理得紧凑一些，而且增加更多可以自定义的地方就更理想了。其实大家最最讨厌都是一些滚动条和控件背景颜色都无法...
DBE连接SQL Server显然用ADO或DBEXPRESS更有优势，起码连接起来比较方便。 BDE的话可以用如下方法：(以下以Delphi7为例，其它版本的DELPHI请自己摸索一下，不过基本相差不大) 1.启动Delphi，选择菜单项 Database->Explorer，在左侧Database列表里面右键，选择New，在弹出的驱动对话框里面选择MSSQL，确定，然后在左侧可以更改名字，如：TEST，然后在选中TEST在右侧选项里面添入ServerName(服务器名) UserName(登录名) DatabaseName...
1.找到adb.exe所在的目录，可以打开任务管理器查找2.打开cmd执行 cd C:\Program Files (x86)\Embarcadero\Studio\15.0\PlatformSDKs\adt-bundle-windows-x86-20131030\sdk\platform-tools3.执行 adb kill-server4.执行 adb start-server5在delphi里刷新设备，如果还是不行，重启delphi原文：http://www.cnblogs.com/weijj/p/4245975.html
zw版【转发·台湾nvp系列Delphi例程】HALCON DivImage1 procedure TForm1.Button1Click(Sender: TObject);var img0, img1, result : HImageX; w, h : OleVariant;begin img0 := CoHImageX.Create; img0.ReadImage(‘traffic1‘); w := img0.GetImageSize(h); HWindowXCtrl1.HalconWindow.SetPart(0, 0, h - 1, w - 1); img0.DispObj(HWindowXCtrl1.HalconWindow); img1 := CoHImageX.Create; img1.ReadI...