日志

分享 delphi中的copy，delete，pos和leftstr,RightStr的用法

2013-5-2 20:54

举个例子：str := “123456”;str1 := Copy(Str,2,3);结果就是 str1 等于 234。Copy有3个参数，第一个是你要处理的字符串，第二个是你要截取的开始位置，第3个是截取位数。当你的第3个参数大于字符长度，那么效果就是取 开始位置 后的所有字符。str1 := Copy(Str,2,10); 结果就是str1 等于 23456。 leftstr和pos 假设字符 ...

个人分类: Delphi7|4603 次阅读|0 个评论

分享 delphi的线程的简单例子

2013-4-29 18:06

unit1.pas unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls,unit2; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; ...

个人分类: Delphi7|588 次阅读|0 个评论

分享 Delphi 文件的操作：重命名、复制、移动、删除（制作一个信息上传控件）

2013-4-26 20:28

Delphi 文件的操作：重命名、复制、移动、删除（制作一个信息上传控件） 第一种方法： RenameFile('Oldname', 'Newname'); CopyFile(PChar('Oldname'), PChar('Newname'), False); MoveFile(PChar('Oldname'), PChar('Newname')); DeleteFile(文件名); 第二种方法： & ...

个人分类: Delphi7|780 次阅读|0 个评论

分享 用Delphi实现文本加密

2013-4-23 22:02

我们编程时常常要用到文本加密，例如做一个多用户的程序，通常需要将用户名和口令加密保存，这样程序便具有了更高的安全性。对文本的加密方法有很多种，下面我就向大家介绍比较常用的一种方法。 编程思路： 该种加密方法是逐一取出文本内的字符，按照一定的规律对字符的ASCII码进行运算，运 ...

个人分类: Delphi7|680 次阅读|0 个评论

分享 如何查找字符串中某个字符的数量

2013-4-23 20:42

【求助】如何查找字符串中某个字符的数量 请问：如何查找字符串中某个字符的数量？ 比如，判断邮箱地址，用户是否重复输入多个“@”？等等。 例：字符串“abcabcabc”，如何判断该字符串里面有几个“a”？ ------解决方案-------------------------------------------------------- Delphi(Pascal) code var i,C ...

个人分类: Delphi7|555 次阅读|0 个评论

分享 delphi中的copy，delete，pos和leftstr,RightStr的用法

2013-4-23 20:30

copy 举个例子：str := “123456”;str1 := Copy(Str,2,3);结果就是 str1 等于 234。Copy有3个参数，第一个是你要处理的字符串，第二个是你要截取的开始位置，第3个是截取位数。当你的第3个参数大于字符长度，那么效果就是取 开始位置 后的所有字符。str1 := Copy(Str,2,10); 结果就是str1 等于 23456。 leftstr ...

个人分类: Delphi7|536 次阅读|0 个评论

分享 Delphi的StringReplace 字符串替换函数

2013-4-23 20:30

function StringReplace (const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string; rfReplaceAll：全部替换 rfIgnoreCase：忽略大小写 For Example： var aStr: String; begin aStr := 'This is a book, not a pen!'; ShowMessage(StringReplace (aStr, 'a', 'two', )); ...

个人分类: Delphi7|532 次阅读|0 个评论

分享 关于 Beep、MessageBeep 和 Windows.Beep

2013-4-21 19:39

Delphi 在 SysUtils 单元定义 Beep 方法, 可以发出一个声音, 一般用于提醒和调试. Beep 其实是调用的 API 函数: MessageBeep(MB_OK); MessageBeep 有下面几种用法可以调用几种不同的声音文件: -------------------------------------------------------------------------------- MessageBeep(MB_OK); Messag ...

个人分类: Delphi7|736 次阅读|0 个评论

分享 delphi中单独编译pas生成dcu文件

2013-4-21 19:11

delphi中单独编译pas生成dcu文件 在网上下载了一个带源码的组件，结果碰到提示说缺少xxx.dcu。一看它的目录下确实没有，那能不能生成一个呢？ 当然可以！ 方法是使用delphi的安装目录\bin文件夹下的的dcc32.exe。 例如： dcc32 myUnit.pas 正常情况下运行上面的命令就会编译myUnit.pas生成 myUnit.dcu ...

个人分类: Delphi7|719 次阅读|0 个评论

本页有 1 篇日志因作者的隐私设置或未通过审核而隐藏