随笔分类 - Delphi
摘要：FastMM是非常优秀的内存管理器，但是从FastMM4Options.inc中找到合适自已程序的选项设置免不了一顿英文的纠缠，所以我把这个文件里的所有英文注释都翻译成了中文。如果你发现有任何翻译不恰当的地方，直接进行修改就可以了。呵呵，给FastMM作者写了封邮件，这个文件也会被包含在下一个Fas
阅读全文
posted @ 2018-05-11 16:49
绿水青山777
摘要：delphi fastmm4 调试 delphi fastmm4 调试 FastMM 定位内存泄露的代码位置 开源的FastMM，使用很简单，在工程的第一行引用FastMM4即可(注意，一定要在第一个Uses的位置)，可以在调试程序时提示内存泄露情况，还可以生成报告。 在Delphi2007以后版本
阅读全文
posted @ 2018-05-11 16:47
绿水青山777
摘要：if RzSizePanel1.HotSpotClosed then RzSizePanel1.RestoreHotSpot else RzSizePanel1.CloseHotSpot;
阅读全文
posted @ 2018-04-02 11:30
绿水青山777
摘要：procedure TForm1.Button2Click(Sender: TObject);begin cbb2.Items.Clear; OraQuery1.First; while not OraQuery1.Eof do begin cbb2.Items.AddObject(OraQuery
阅读全文
posted @ 2018-03-23 15:23
绿水青山777
摘要：[问题解决]delphi dpk编译 Error: E2161 RLINK32: Unsupported 16bit resource in file xxx 问题解决 原创 2013年08月27日 22:15:46 标签： delphi 资源编译 5444 原创 2013年08月27日 22:15
阅读全文
posted @ 2018-03-22 17:23
绿水青山777
摘要：function Tpublicf.PKHisDo(inStr: string; var OutStr: string): Integer;var JG: PWideChar; sinstr: PWideChar;begin GetMem(JG, 2048); GetMem(sinstr, 2048
阅读全文
posted @ 2018-03-18 14:12
绿水青山777
摘要：一定要牢记软件工程的铁律：可能出错的地方一定会出错。每个变量都做初始化，引用每个参数都会做有效性检查，在可能出错的每个地方都会做边界条件检查，这样开发出来的程序一定会稳固很多，就是出错也会很容易修改。野路子出来的高手，一般开发速度很快，但做完后bug很多，经常需要很长时间修改。而真正的高手，追求的境
阅读全文
posted @ 2018-02-10 10:03
绿水青山777
摘要：function UnicodeToAnsi(s: WideString): string;var lpChar: PChar; len: integer;begin len := Length(s) * 2; GetMem(lpChar, len); ZeroMemory(lpChar, len)
阅读全文
posted @ 2017-12-25 11:31
绿水青山777
摘要：procedure TForm1.Button1Click(Sender: TObject);var s:string;begin s := 'dsd' ; s:= s + slinebreak +s; //sLineBreak 换行 raise Exception.Create('test');e
阅读全文
posted @ 2017-12-12 22:09
绿水青山777
摘要：转：https://www.cnblogs.com/limingliyu/archive/2016/07 使用IDHTTP，下面是一些关于 GET、POST 请求基本使用方法的代码 一、GET 请求 如果Get需要添加请求参数，则直接在地址后添加，各参数间用&连接 如：http://dict.you
阅读全文
posted @ 2017-11-20 11:18
绿水青山777
摘要：国外 视频讲解 http://codegearguru.com/index.phpAbout Delphi http://delphi.about.com/od/ 国内 大富翁 http://www.dfwlt.com/forum.php?gid=1Delphi盒子 http://www.2ccc.
阅读全文
posted @ 2017-10-16 11:03
绿水青山777
摘要：DELPHI 各版本下载 链接: https://pan.baidu.com/s/1qYCU8kk 密码: igmc
阅读全文
posted @ 2017-10-16 11:02
绿水青山777
摘要：delphi 判断调试状态 delphi 判断调试状态 D7:DebugHook 该变量在调试状态下值为1,运行模式为0,例如,我们可以使用如下的代码来简单控制: if DebugHook=0 thenDXE6 : if IsDebuggerPresent then LangManager.Acti
阅读全文
posted @ 2017-09-27 10:11
绿水青山777
摘要：不加引号 错误提示：没有声明的变量 frxReport1.Variables['bt'] := QuotedStr(getyym + _('门诊挂号员日报')); frxReport1.Variables['czy'] := QuotedStr( dosql.fieldbyname('xingm')
阅读全文
posted @ 2017-09-22 14:29
绿水青山777
摘要：d7 >dxe6需要修改 1.PChar替换成PAnsiChar 2.Length(P1) 修改成 Length(P1)*SizeOf(Char) 或者 ByteLength函数计算 3.Key in ['a'..'z','B','C'] 这类代码最好替换成CharInSet(Key,['a'..'
阅读全文
posted @ 2017-09-18 10:17
绿水青山777
摘要：Windows将消息分成了几块，其中的一块是划分给程序自定义的消息使用的。自定义的消息其实于WM_APP。当然了，自定义的消息也可以不从WM_APP开始，但是那样的话，你定义的消息代码有可能和Windows的消息代码重复。所以，安全起见，自定义的消息，最好还是从WM_APP开始。 procedure
阅读全文
posted @ 2017-09-15 16:28
绿水青山777
摘要：转自于：http://www.cnblogs.com/findumars/p/3847804.html 有意思的RTL函数RegisterClass（在持久化中，你生成的一个新类的对象，系统并不知道他是如何来的，因此需要你注册）good 例子1：Delphi中使用纯正的面向对象方法（这个例子最直接）
阅读全文
posted @ 2017-09-14 09:16
绿水青山777
摘要：procedure TfrmBiaoBLBWH.Button1Click(Sender: TObject);var ABinary,AText:TMemoryStream;begin inherited; ABinary:=TMemoryStream.Create; ABinary.WriteCom
阅读全文
posted @ 2017-09-14 08:59
绿水青山777
浙公网安备 33010602011771号