function IsEMail(EMail: String): Boolean; var s: String;ETpos: Integer; begin ETpos:= pos('@', EMail); if ETpos > 1 then begin s:= copy(EMail,ETpos+1,Length(EMail)); if (pos('.', s) > 1) and (pos('.', s) < length(s)) then Result:= true else Result:= false; end else Result:= false; end;

一：各种字符串 　　字符串是Object Pascal所有数据类型中最有用的类型。许多函数以字符串为传递参数。由于在Delphi中字符串的定义和使用有各种方式，包括Pascal中典型的字符串（String），Delphi支持的长字符串（ANSIString），类似于C语言的字符数组（Array of Char），指向字符的指针(Pchar)等。下面的文章就跟谈谈这些类型在定义和应用中的区别和注意事项。 1． 传统的Pascal字符串 　　在Pascal中，典型的字符串是一定长度的字符序列。每一字符串有一设定的长度（缺省值为255），下面是一个例子： Var Address:String; Code:String[50]; Address是一长度为255的字符串，Code的最大长度为50。 传统的Pascal字符串长...

最近我说明了用VB.NET将字符串转换成字节数组的方法。如果你需要将一个字节数组转换成字符串，可以使用BitConverter.ToString或Covert.ToBase64String方法。下面我提供实例说明如何用上两种方法进行转换。 字节数组用法如果你准备恢复用二进制格式保存的文本，在System.Text命名空间中调用适当编码对象的GetString方法。使用System.BitConverter类是将一个字节数组转换成字符串的最快捷的方法。这个类为基本数据类型和字节数组之间的转换提供方法。要使用这个方法，使用超载的ToString方法接受一个字节数组为参数。在这种情况下，字符串中包括字节数组的每一个十六进制格式的值，数值间用破折号隔开。使用字符串没有办法自...

using System;using System.Security.Cryptography;using System.Text;namespace Utility {public class PasswordGenerator {public PasswordGenerator() {this.Minimum = DefaultMinimum;this.Maximum = DefaultMaximum;this.ConsecutiveCharacters = false;this.RepeatCharacters = true;this.ExcludeSymbols = false;this.Exclusions = null;rng = new RNGCryptoServiceProvider();} protected int GetCryptographicRandomNumber(int lBound, int uBound) { // 假定 lBound >= 0 && lBound < uBound// 返回一个 int >= lBound and < uBounduint urndnum; byte[] rndnum = new B...

编程序时，那长长的数据连接字符串相信一般人是记不住的，大部分人都是在网上查到现成的后COPY过来用，但毕竟还是很麻烦，有时候一时半刻还找不到合适的，今天无意中在网上发现了一个非常好的办法，真的是太太太方便了！！ 首先，在桌面上建一个名为conn的txt文本文件，然后将后缀名改为udl ，然后双击它，打开相应对话框。 其次,我们选择要设置的连接，这里选择的是sql server 然后，我们点击确定，进入选择服务器，以及确认认证方式和数据库的一栏 这里如果是本机的，就用windows集成身份验证，如果是非本机的，就用sql认证吧，设置好之后，可以测试连接 如果连接成功，那么在conn文件里便自动生成一段连接数据库的代码，我们只需要将此代码...

//第一种实现: String str = "xie xie da jia 谢谢大家"; System.out.print("逆转后的字符串是:["); for(int i=str.length()-1;i>=0;i--) ...{ char chr = str.charAt(i); System.out.print (chr); } System.out.print("]"); //第一种实现输出结果是:逆转后的字符串是:[家大谢谢 aij ad eix eix] //第二种实现:借助了StringBuffer类的reverse()方法实现, String str="good"; StringBuffer sb = new StringBuffer(str); System.out.println("逆转后的字符串是:["+sb.reverse().toString()+"]"); //第二种实现输出结果是:逆转后的字符串是:[doog]...

1、定义结构及外部函数global type uuid from structure ulong data1 uint data2 uint data3 character data4[8]end typeFunction ulong UuidCreate(ref uuid lpUUID) LIBRARY "rpcrt4"Function ulong UuidToString (ref uuid lpUUID, ref long lpUUIDString) LIBRARY "rpcrt4" Alias for "UuidToStringA"Function ulong RpcStringFree(long lpUUIDString) LIBRARY "rpcrt4" Alias for "RpcStringFreeA" 2、函数主体CONSTANT Long RPC_S_OK = 0CONSTANT Long RPC_S_UUID_LOCAL_ONLY =...

我们知道可以用Send ( handle, message#, lowword, long )函数完成不同程序窗口间的消息传递，其中最后两个参数为long型，因此可以利用这两个参数来传递数字型的变量。如果想传递的是字符串呢？由于每个进程都有自己独立的内存地址和内存空间，因此不可能直接通过访问变量地址的方法得到变量。下面给出pb的方法：source程序：外部函数：Function ulong GetCurrentProcessId() LIBRARY "kernel32.dll"Function integer SndMsg(long hWnd, long uMsg, long url, &ref blob info) library "user32.dll" Alias For "SendMessageAconstant long PBM_CUSTOM01 = 1024程序：IF il_hTar...

程序一：PHP截取中文字符串方法 由于网站首页以及vTigerCRM里经常在截取中文字符串时出现乱码(使用substr)，今天找到一个比较好的截取中文字符串方法，在此与大家共享。 以下是PHP代码：【复制】 function msubstr($str, $start, $len) {$tmpstr = ""; $strlen = $start + $len; for($i=0;$i<$strlen;$i++) {if(ord(substr($str, $i, 1)) > 0xa0) {$tmpstr .= substr($str, $i, 2); $i++; }else {$tmpstr .= substr($str, $i, 1); }return $tmpstr; }} 程序二：PHP截取UTF-8字符串，解决半字符问题 以下是PHP代码：【复制】 /* PHP截取UTF-8字符串，解决半字符问题。 英文、数字（半角）为1字节（8位）...

<% dwwwStr= "<div>e-dragon.com.cn</div><div>www.e-dragon.com.cn</div>易龙教程网" dwwwStr= InStrRev(dwwwStr,"</div>") response.write dwwwStr %> InstrRev 描述 返回某字符串在另一个字符串中出现的从结尾计起的位置。 语法 InstrRev(string1, string2[, start[, compare]]) InstrRev 函数的语法有以下参数： 参数 描述 string1 必选。接受搜索的字符串表达式。 string2 必选。被搜索的字符串表达式。 start 可选。数值表达式，用于设置每次搜索的开始位置。如果省略，则默认值为 -1，表示从最后一个字符的位置开始搜索。如果 start 包含 Null，则出现错误。 comp...