Memo1.Lines.Add(s) 与 Memo1.Lines.Append(s) 的区别是什么?

短信猫 服务端: IdTCPServer1: TIdTCPServer; IdAntiFreeze1: TIdAntiFreeze; unit UnitSever; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdAntiFreezeBase, IdAntiF

前两天编码遇到了要使用FindChildControl方法获取指定名称的TSpeedButton按钮,结果折腾了半天就是没得结果(基础不扎实,呵呵),于是赶紧搜索了下,补习关于这两个方法的用法. TWinControl类的FindChildControl方法在FWinControls中查找返回指定名称的可视且有窗体的组件(继承自TWinControl类).该方法可以确定当前控件是否含有(contain)指定名称的继承自TWinControl类的子控件,其结果与指定要查找的控件的Parent属性有

一些耗时长的操作,多线程是个不错的选择. procedure TForm1.doHash; var hash:TwxzHash; begin //hash:=TwxzHash.Create; progressbar1.Max:=5; progressbar1.Position:=0; memo1.Lines.Add('string md5'); memo1.Lines.Add( hash.GetStringMD5( 'wwwxxxx') ); ProgressBar1.StepBy(1); me

1. var fmtSettings: TFormatSettings; dt: TDateTime; begin Memo1.Lines.Add(DateTimeToStr(Now)); Memo1.Lines.Add(''); GetLocaleFormatSettings(GetUserDefaultLCID, fmtSettings); Memo1.Lines.Add(fmtSettings.ShortDateFormat); Memo1.Lines.Add(fmtSettings.Sh

阿里大于短信验证实现完整代码分享 http://bbs.2ccc.com/topic.asp?topicid=515649 补充:跨平台的例子可以去csdn下载这位大神的demo http://download.csdn.net/detail/hansxia888/9603061 1 这两天搞那个sign,搞的烦躁,问了一下论坛的那位同学,开口500. 2 唉,delphi这种偏门的就是这样,啥都贵. 3 后来想想用C#按阿里那边的帮助文档写了个,可以正常发送.然后把C#翻译成Delphi就可以

[delphi] view plain copy unit Unit_main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TypInfo; type TForm_main = class(TForm) Button1: TButton; Memo1: TMemo; Memo2: TMemo; Button2: TButt

IdHttpServer实现webservice 朋友有个项目,通信协议使用HTTP,数据序列使用BIN(二进制).他不知道要选用何种技术方案. REST webservice是http+json,SOAP webservice是http+xml,好像都不适合. 于是想到了使用INDY的TidHttpServer控件来实现.TidHttpServer是可以实现webservice中间件的. 限于篇幅,省略若干代码. 中间件代码: //设置绑定参数IdHTTPServer1.Bindings.Cl

使用了2个组建: TServerSocket TClientSocket ------------------TServerSocket--------------------------- //开启连接 ServerSocket1.Port := 9000; ServerSocket1.Active := true; //接收客户端发送的消息.对应事件:OnClientRead Socket.ReceiveText //发送消息给客户端. ServerSocket1.Socket.Connec

使用delphi的XML处理单元 XMLDoc XMLIntf 在获取XML文本内容的时候, 高版本的Delphi会丢失编码描述....在D7上却是正常的, 下面是测试源码: procedure TForm1.Button1Click(Sender: TObject); var nXMLDoc: IXMLDocument; i: Integer; nMS: TMemoryStream; nSS: TStringStream; nStr: string; begin nXMLDoc := TXML