Delphi
Saindy5828
这个作者很懒,什么都没留下…
展开
-
Delphi 创建目录及写日志文件
procedure TfrmStartSendMsg.WriteLog(txt:String);var TF: TextFile; LogFile: string; sysDir:string;begin sysDir:=extractfilepath(application.ExeName ); if not directoryexists(exeDir+log/)原创 2009-04-20 16:08:00 · 3527 阅读 · 0 评论 -
delphi 删除文件
function TMainForm.DeleteDirectory(NowPath: string): Boolean; //删除整个目录 var search: TSearchRec; ret: integer; key: string; begin if NowPath[Lengt原创 2009-06-29 16:00:00 · 4801 阅读 · 0 评论 -
delphi 截取字符串
var ASource: PChar; AStr: String; ACount: Integer; AStrings: TStringList; i,j:integer; times,number:String;begin ASource := ABC|... DEF|#### GHI|"不会被分开|#wwwwwwwwwwww; AStrings原创 2009-06-29 16:46:00 · 946 阅读 · 0 评论 -
并发处理
前些日子,一直在做并发访问的事.可是,不管是对表还中数据进行锁定,都不能得到想要达到的结果.后来想了想,用了对数据进行标识进行处理: 步骤:一:刚开始去更改的时候,去查一个未处理的ID,获取此ID。二:把文件ID记录下来。然后去把这个未处理的记录设置为正在处理、并记录下当前正在处理的者的ID。三:根据这个状态为正在处理的、文件ID进行查询四:对这个文件的修改者进行身份判断。原创 2009-06-29 14:17:00 · 753 阅读 · 0 评论 -
delphi连接数据库
ADO中的控件介绍和使用方法: ADOConnection1:ConnectionString属性是连接SQLSERVER数据库的,点击后出现一个对话框,选择build,出现对话框,选择sqlserver一项,点击下一步,出现的对话框中输入服务器名称(一般输入所在数据库的ip地址即可),下面的用户名称和密码:输入数据库的用户和密码,然后现在您所有连接的数据库即可,点击测试连接,提示成功后点击“确定原创 2009-06-29 15:52:00 · 1144 阅读 · 0 评论 -
delphi 快捷键
Ctrl+PageUp 将光标移至本屏的第一行,屏幕不滚动。 Ctrl+PageDown 将光标移至本屏的最后一行,屏幕不滚动。 Ctrl+↓ 向下滚动屏幕,光标跟随滚动不出本屏。 Ctrl+↑ 向上滚动屏幕,光标跟随滚动不出本屏。 Ctrl+Shift+NUM 在光标行设置最多九个临时标志号,对临时切换非常有用。 行的左边将出现一本书,封面有NUM,再按一次取消设置。 Ct原创 2009-06-29 16:33:00 · 740 阅读 · 0 评论 -
判断一个字符是否为汉字的最佳方法 字数,字符,字节统计
procedure Tfrm1.memoTextChange(Sender: TObject);var i,e,c,c2,w:integer; s:String;//s:wideString;// 注:wideString类型,也可以统计begin s:=memoText.Text; e:=0; c:=0; if s= then begin lblWordHin原创 2009-06-30 15:57:00 · 1267 阅读 · 0 评论