西瓜的夏天

摘要： procedure TForm1.FormCreate(Sender: TObject); const {$I str.inc} begin ShowMessage(MSG); end; str.inc 放在源码同目录 MSG = 'abc'; 阅读全文

摘要： type TMyForm_test = class(TForm) cxpgcntrl1: TcxPageControl; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } publ... 阅读全文

摘要： 出现这个情况，是因为Eclipse使用文件同步机制，所以在Eclipse添加了Server之后， 在Eclipse ide 里面 修改tomcat-users.xml 就不会出现这个问题。 阅读全文

摘要： TCXGRID控件: 属性: ActiveLevel: 当前层 BorderStyle: 窗口风格 Color: 颜色 FocusedView: 当前View; Font: 字体 LevelTabs: 类似PageControls头设置 CaptionAlgnment:标题对齐方式 Images:图 阅读全文

摘要： 由于delphi本身自带了indy控件，因此用这些控件实现网络编程即快又容易。尽管如此，我还是极大地鼓励自己查看FTP底层是如何实现的，但就目前而言，indy控件还是一个非常不错的选择。 针对indy的强大，我还是决定将这段代码帖出来，主要是方便自己日后复习、查询。 Unit1; interface 阅读全文

摘要： FTP（File Transfer Protocol），是TCP/IP网络上两台计算机传送文件的协议，是在TCP/IP网络和Internet上最早使用的协议之一，属于网络协议组的应 用层。FTP客户机可以给服务器发出命令来下载文件、上传文件、创建或者改变服务器上的目录。 在SUSE下安装FTP服务之 阅读全文

摘要： procedure Twms_system_Notice_Show.cxGrid_attachAllFilesDBTableView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var AHitTest: TcxCustomGridHitTest; FTrackItem: TcxCustomGridTabl... 阅读全文

摘要： 1 var 2 StartTime, EndTime: cardinal; 3 begin 4 StartTime := GetTickCount; 5 sleep(1000); 6 EndTime := GetTickCount; 7 caption := (IntToStr(EndTime - StartTime) + ' ms'); 8 end; 阅读全文

摘要： 1 procedure TFormTestRichText.btn1Click(Sender: TObject); 2 begin 3 //cxrchdt1.Lines.SaveToFile('d:\test.txt'); 4 mStream := TMemoryStream.Create; 5 cxrchdt1.Lines.SaveToStream(mStream); ... 阅读全文

摘要： var cxlayoutitemtag: Integer; labeltag: Integer; listPutFileName: TStringList; procedure TFormTestPutFiles.cxbtn_putfilesClick(Sender: TObject); begin if OpenDialog1.Execute then begin ... 阅读全文