摘要: 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 阅读(305) 评论(0) 推荐(0)
摘要: [问题解决]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 阅读(614) 评论(0) 推荐(0)
摘要: 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 阅读(154) 评论(0) 推荐(0)
摘要: 一定要牢记软件工程的铁律:可能出错的地方一定会出错。每个变量都做初始化,引用每个参数都会做有效性检查,在可能出错的每个地方都会做边界条件检查,这样开发出来的程序一定会稳固很多,就是出错也会很容易修改。野路子出来的高手,一般开发速度很快,但做完后bug很多,经常需要很长时间修改。而真正的高手,追求的境 阅读全文
posted @ 2018-02-10 10:03 绿水青山777 阅读(181) 评论(0) 推荐(0)
摘要: sql>drop tablespace zfxfzb; ora-01549:表空间非空,请使用INCLUDING CONTENTS 选项 sql>drop tablespace zfxfzb INCLUDING CONTENTS and datafiles; ora-00604:递归sql层1出现错 阅读全文
posted @ 2018-01-18 10:04 绿水青山777 阅读(339) 评论(0) 推荐(0)
摘要: 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 阅读(1790) 评论(0) 推荐(0)
摘要: delphi中调用 DLL一定要注意声明函数的大小写 阅读全文
posted @ 2017-12-21 10:29 绿水青山777 阅读(410) 评论(0) 推荐(0)
摘要: 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 阅读(305) 评论(0) 推荐(0)
摘要: 转:https://www.cnblogs.com/limingliyu/archive/2016/07 使用IDHTTP,下面是一些关于 GET、POST 请求基本使用方法的代码 一、GET 请求 如果Get需要添加请求参数,则直接在地址后添加,各参数间用&连接 如:http://dict.you 阅读全文
posted @ 2017-11-20 11:18 绿水青山777 阅读(454) 评论(0) 推荐(0)
摘要: 国外 视频讲解 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 阅读(424) 评论(0) 推荐(0)