Write Log // strLog : the log content need write to log file; // strFile: the compliete file path(include the file name) of the log file. e.g. C:\log.log; procedure WriteLog(strLog, strFile: string); var fLog: TextFile; begin AssignFile(fLog, strFile

网易 博客 LOFTCam-用心创造滤镜 LOFTER-最美图片社交APP 送20张免费照片冲印 > 注册登录  加关注 techiepc的博客 万事如意 首页 日志 LOFTER 相册 音乐 收藏 博友 关于我     日志       关于我 techiepc   加博友   关注他 文章分类 ·默认分类(249) LOFTER精选 注册免费冲印20张照片 > 网易考拉推荐 网易新闻 湖南郴州现"多彩空调墙" ·男孩溺亡同伴藏其物品瞒23天 ·男子撞人逃逸后与伤者同病房

Delphi日期时间,就是常见的 2014-05-02 10:37:35 -------------------------------------------------------------------- UNIX日期时间,一个整数,从1970/01/01 开始的秒数,int64位 ------------------------------------------------------------------- 标准UTC时间, 世界统一时间,世界标准时间,国际协调时间,简称UTC 不

列   解决:       <aColumn>.GroupIndex   :=   -1;         <aColumn>.Visible   :=   True; **************************************************************************** 39 保存修改到数据库 解决: procedure   <aForm>.FormClose(Sender:   TObject;   var   Ac

//注意:Delphi2010以下版本默认的字符编码是ANSI,VS2010的默认编码是UTF-8,delphi版得到的字符串须经过Utf8ToAnsi()转码才能跟C#版得到的字符串显示结果一致. //Delphi版: function HexToStr(str: string): string; function HexToInt(hex: string): integer; var i: integer; function Ncf(num, f: integer): integer; va

重新书写了float型转为十六进制的delphi程序 Function FloatToHex(Value: single): string; var l, i: integer; HexText,tempHexText,temp: String; begin SetLength(HexText, 2 * SizeOf(Value)); BinToHex(pchar(@Value), pchar(@HexText[1]), SizeOf(Value)); l := length(HexText);

//注意:Delphi2010以下版本默认的字符编码是ANSI,VS2010的默认编码是UTF-8,delphi版字符串事先须经过AnsiToUtf8()转码才能跟C#版得到的十六进制字符串显示结果一致. Delphi版: function StrToHex(AStr: string): string; var i : Integer; ch:char; begin Result:=''; to length(AStr) do begin ch:=AStr[i]; Result:=Result+

1.锁住空间的位置,可以选择Edit--->Lock component ,也可以在窗体设计面板下面找到组件排版功能栏,第二排里面有个带锁的图标,表示组件可以被锁住.点击一下,组件的大小和位置就不可改变了. 2.procedure没有返回值,Function有返回值: 3.为过程生明添加过程定义:Ctrl + Shift + C 快捷键: 如在过程生命部分写一个过程 procedure myProc(var str1,str2,str3:string); 按一下快捷键,就可以自动生成过程定义体,

delphi的const/input和默认的没有修饰, C++都是一样的 delphi的var,对应C++那边是指针,  调用方需要管理内存(负责分配内存及销毁) delphi的output , 对应c++那边也是指针 , 如果是 C++调用Delphi DLL, 而Delphi有个形参是out修饰的话, C++调用方传入的指针可以不需要初始化, 因为初始化已经在dll那边完成了. 比如delphi的dll:   function _PLCReadHoldingRegister(const Re

delphi调用C++写的Dll, 当然这个Dll要求是非MFC的Dll, 这样子才能被delphi调用. 根据C++定义函数的情况, Delphi有不同的相对应的处理方法.1. 声明中不加__stdcall,采用VC默认格式__cdecl,但在Delphi中要注明调用格式为cdecl.C++中例子: extern "C" int __declspec(dllexport) add(int x, int y); Delphi中例子: function add(i:Integer; j:

也是看别人写的,但是不容易找到,就转发一篇delphi版本的 function GetLine(X, Y: integer): TPoint;var  OldFont : HFont;  Hand : THandle;  TM : TTextMetric;  Rect : TRect;begin  Hand := GetDC(mmotest.Handle);  try    OldFont := SelectObject(Hand, mmotest.Font.Handle);    try   

asp示例: function getHTTPPage(strurl,data)   on error resume next   set http = Server.CreateObject("Msxml2.XMLHTTP")  http.Open "POST",strurl, false   http.setRequestHeader "Content-type:", "text/xml;charset=GB2312" 

1. 功能块(function block) 格式: func function_name( [parameter list] ) [return_types] { //body } 与delphi的异同: (1)关键字 Delphi: procedure 和 function Go: 使用一个func替代以上2个. (2)参数列表 Delphi: 使用冒号(:)来声明 Go:省略冒号(:) (3)返回值 Delphi:使用冒号(:)来声明,并且只能返回一个! Go:省略冒号(:),而且能返回多

xe6,xe7 BASE64XE6 MD5 加密算法Delphifunction MD5(const texto: string): string; var idmd5: TIdHashMessageDigest5; begin idmd5 := TIdHashMessageDigest5.Create; try result := idmd5.HashStringAsHex(texto); finally idmd5.Free; end; end; c++builder #include <I

Func.Action和Predicate是.NET自带的3个泛型委托方法,三个方法的区别其实并不大,要强行给混着用也是可以的,但是我们是有追求的人,把道理讲清楚总是好的. 一.Func是有返回值的方法(类似于Delphi里面的function),Func最多支持16个泛型参数和1个泛型返回值(最后一个固定为返回值),并且支持Lambda表达式 //无参数用法 Func<string> funcNone = delegate() { return "我是来打酱油的"; };

现在我们在工作中,在开发中都会或多或少的用到图表统计数据显示给用户.通过图表可以很直观的,直接的将数据呈现出来.这里我就介绍说一下利用百度开源的echarts图表技术实现的具体功能. 1.对于不太理解echarts是个怎样技术的开发者来说,可以到echarts官网进行学习了解,官网有详细的API文档和实例供大家参考学习. 2.以下是我在工作中实现整理出来的实例源码: 公用的支持js文件 echarts.js.echarts.min.js,还有其他的图表需要支持的js文件也可以到官网下载 echa

最近做个发邮件的功能,需要将日志文件通过邮件发送回来用于分析,但是日志文件可能会超级大,测算下来一天可能会有800M的大小.所以压缩是不可避免了,delphi中的默认压缩算法整了半天不太好使,就看了看7z,在windows下有dll那么就用它吧. 下载7z.dll,还有一个delphi的开发sdk文件,sevenzip.pas.有这两个就可以了. 压缩 使用超级简单 procedure TForm1.Button1Click(Sender: TObject); var Arch: I7zOutA

当使用了长字符串类型的参数.变量时,如string,要引用ShareMem. 虽然Delphi中的string功能很强大,但若是您编写的Dll文件要供其它编程语言调用时,最好使用PChar类型.如果您要坚持使用string类型的参数时.变量甚至是记录信息时,就要引用ShareMem单元,而且这个单元必须是第一个引用的,即在uses语句后的第一个单元. 下面通过一个项目示例来讲解怎么使用ShareMem. 先新建一个DLL项目 先新建一个DLL项目,然后再新建一个Unit1单元. 工程文件是这样的

首先看TThread源码中关于OnTerminate的代码: public .... property OnTerminate: TNotifyEvent read FOnTerminate write FOnTerminate; ... end; 再看Delphi自带的帮助手册中对于OnTerminate的解释: Occurs after the thread's Execute method has returned and before the thread is destroyed. p

先介绍ExtractFilePath和ParamStr ParamStr 该函数的原型是:function paramstr(i: Integer): String; 对于任何的application,paramstr(0)都默认代表的是应用程序的绝对路径.假如你这个编译号的exe 文件在 d:\delphi下,名字叫做 project1.exe.那么 在该应用程序中paramstr(0)返回:d:\delphi\project1.exe.这个值是变的,exe程序在哪,这个值就变为哪儿. 那么有