财务软件版1楼: 各位朋友：
　　想了解以下几个字符串函数的使用，请帮忙各举一个或两个相关的例子，分别是：
Pos（）函数，strreplace()函数，Copy函数，Concat函数，Length这五个函数。

另外，想请教一下，查找的字符串函数是什么？假如有字符串“123abc456”，用哪一个函数，可以得出“abc”在该字符串的起始位置呢？请各位朋友赐教，多谢！！！

2楼: //如果手机号前两位是13,并且长度不为11位
if (copy(Edtno.Text,1,2)=＇＇13＇＇) and (length(trim(Edtno.Text))<>11) then
begin
Application.MessageBox (＇＇手机号码非法！请确认！＇＇,＇＇提示＇＇, MB_IconWarning+MB_OK);
EdtNo.SetFocus;
exit;
end;

Memo_message :=StringReplace(StrTmp,＇＇＼n＼r＇＇,＇＇|＇＇,[rfReplaceAll]); //替换 ＇＇＼n＼r＇＇为＇＇| 如免费财务软件下载

3楼: procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
i:=pos(＇＇abc＇＇,＇＇123abc456＇＇);
edit1.Text:=inttostr(i);
end;

4楼: var
S: string;
begin
S := Concat(＇＇ABC＇＇, ＇＇DEF＇＇); { ＇＇ABCDEF＇＇ }
end;

5楼: Pos(＇＇|＇＇,＇＇a|b|c|＇＇); //返回第一个 | 分隔符的位置
StringReplace(＇＇a|b|c|＇＇,＇＇|＇＇,＇＇!＇＇,[rfReplaceAll]); //将|替换成!
Copy(＇＇a|b|c|＇＇,1,3); 返回字符母串中的子串 ＂a|b＂
Concat(＇＇a|b|c|＇＇,＇＇d|e|f＇＇); 字符串合并a|b|c|d|e|f .
Length(＇＇a|b|c|＇＇); 返回字符数,也就是字符的个数.

6楼: 建议楼主找本Delphi函数大全看看
http://77169.cn/more.asp？name=ALiWY&id=4692
http://www.tomore.com/4/1429.html

财务软件版7楼: Pos 寻找子字串在母字串中的位置.
-----------------------------------------------------------------------------
Unit System
函数原型 function Pos(Substr: string; S: string): Integer;
说明 Substr : 子字串.
S : 母字串.
范例
procedure TForm1.Button1Click(Sender: TObject);
var S: string;
begin
S := ＇＇ 1234.5 ＇＇;
{ Convert spaces to zeroes }
while Pos(＇＇ ＇＇, S) > 0 do
S[Pos(＇＇ ＇＇, S)] := ＇＇0＇＇;
Label1.Caption := S;
Label1.Font.Size := 16;
end;

var
S: string;
I: Integer;
begin
S:= ＇＇？ ？？？？ ？？？？？？？？ ？？？？？？＇＇;
I:= Pos( ＇＇？？？＇＇, S); // I:= 3
end;


Copy 从母字串拷贝至另一个字串.
-----------------------------------------------------------------------------
Unit System
函数原型 function Copy(S: string; Index, Count: Integer): string;
说明 S : 字串.
Indexd : 从第几位开始拷贝.
Count : 总共要拷贝几位.
范例 var S: string;
begin
S := ＇＇ABCDEF＇＇;
S := Copy(S, 2, 3); { ＇＇BCD＇＇ }
end;
----------------
var
S: string;
begin
S:= ＇＇？？？？？？＇＇;
S:= Copy( S, 3, 4); // S := ＇＇？？？？＇＇
end;


Concat 将字串相加.
-----------------------------------------------------------------------------
Unit System
函数原型 function Concat(s1 [, s2,..., sn]: string): string;
说明 与 S := S1 + S2 + S3 ...; 相同.

范例 var
S: string;
begin
S := Concat(＇＇ABC＇＇, ＇＇DEF＇＇); { ＇＇ABCDE＇＇ }
end;

var
S: string;
begin
S:= ＇＇？ ＇＇+ ＇＇？？？？ ＇＇+ ＇＇？？？？？？？？ ？？？？？？＇＇;
S:= Concat(＇＇？ ＇＇, ＇＇？？？？ ＇＇, ＇＇？？？？？？？？ ？？？？？？＇＇);
// ？ ？？？？？ ？？？？？？？ S := ＇＇？ ？？？？ ？？？？？？？？ ？？？？？？＇＇
end;


Length
功能说明：该函数用于统计指定字符串的长度(即个数)。
参考实例：
var
nLen1, nLen2: Integer; // 用于保存字符串长度
begin
　nLen1 := Length(＇＇CPCW＇＇);
nLen2 := Length(＇＇电脑报＇＇);
end;
执行结果，nLen1等于4，nLen2等于6。由于一个汉字相当于两个字符的长度，所以3个汉字的长度为6。

8楼: 帮助里面有的亚 这几个函数很简单
楼主是不是不懂英文？
还是太烂了
前者需要你好好学习英语
如果是后者 你就不能成为一个高手
勤学不好问
自己问题最好自己解决 尤其是这种常识

9楼: 楼上的各位朋友，多谢您们的详细解答，fisheryj,我不但属于前者，而且属于后者，呵呵～～～：）