Question

pascal 几个处理字符串的函数和过程

conat(s1,s2,...sn) 函数，字符串合并
copy(s,pos,len) 函数，返回一个字符串的子串
delete(s,pos,len) 过程，删除一个字符串中的子串
insert(s,d,pos) 函数，在一个字符串中某一位置开始插入一个子串 这几个函数和过程具体一点的用法比如里面的参数各是什么类型，干什么用的，函数返回值的几种情况和类型等……最好清楚一点，有例子更好啊谢谢答案好的话追加悬赏~~~~~~

Answer 1

你举例的那个conat基本不用的..加号才是王道......用用就都知道了，自己试验下印象才比较深的说...

求长度length
定义：function Length(S: String): Integer;
例子：
var
S: String;
begin
Readln (S);
Writeln('"', S, '"');
Writeln('length = ', Length(S));
end.
复制子串copy
定义： function Copy(S: String; Index: Integer; Count: Integer): String;
注意：S 是字符串类型的表达式。Index和Count是整型表达式。Copy 返回S中从Index开始，Count个字符长的一个子串。
例子：
var S: String;
begin
S := 'ABCDEF';
S := Copy(S, 2, 3); { 'BCD' }
end.
插入子串insert
定义：procedure Insert(Source: String; var S: String; Index: Integer);
注意：Source 是字符串类型的表达式。 S 是任意长度字符串类型变量。Index 是整型表达式。Insert 把 Source插在S中Index处。如果结果字符串的长度大于255，那么255之后的字符将被删除。
例子：
var
S: String;
begin
S := 'Honest Lincoln';
Insert('Abe ', S, 8); { 'Honest Abe Lincoln' }
end.
删除子串delete
定义：procedure Delete(var S: String; Index: Integer; Count:Integer);
注意：S 是字符串类型变量。 Index和Countare是整型表达式。Delete 删除S中从Index开始的Count个字符。如果Index大于S的长度，则不删除任何字符；如果Count大于S中从Index开始的实际字符数，则删除实际的字符数。
例子：
var
s: string;
begin
s := 'Honest Abe Lincoln';
Delete(s,8,4);
Writeln(s); { 'Honest Lincoln' }
Delete(s,9,10);
Writeln(s); { 'Honest L' }
end.
字符串转为数值val
定义： procedure Val(S; var V; var Code: Integer);
在这里:
S 是由一系列数字字符构成的字符串类型变量；。
V 是整型或实型变量；
Code 是Integer型变量
注意：Val将S转为它的数值形式。
例子：
var s:string;I, Code: Integer;
begin
s:='1234';
val(s,i,code);
writeln(i); { 1234 }
end.
数值转为字符串str
定义： procedure Str(X [: Width [: Decimals ]]; var S:string);
注意：将数值X转成字符串形式。
例子：
var
S: string[11];
begin
Str(I, S);
IntToStr := S;
end;
begin
Writeln(IntToStr(-5322));
Readln;
end.
求子串起始位置pos
定义：function Pos(Substr: String; S: String): Byte;
注意：Substr和S字符串类型表达式。Pos在S中搜索Substr并返回一个integer值。这个值是Substr的第一个字符在S中的位置。如果在S中没有找到Substr，则Pos返回0。
例子：
var S: String;
begin
S := ' 123.5';
{ Convert spaces to zeroes }
while Pos(' ', S) > 0 do
S[Pos(' ', S)] := '0';
end.
字符完全串连+
定义：操作符+把两个字符串联在一起。
例子：
var s1,s2,s:string;
begin
s1:='Turbo ';
s2:='pascal';
s:=s1+s2; { 'Turbo pascal' }
end.
字符串压缩空格串连-
定义：操作符-去掉第一个字符串最后的空格后，将两个字符串联在一起。
例子：
var s1,s2,s:string;
begin
s1:='Turbo ';
s2:='pascal';
s:=s1-s2; { 'Turbopascal' }
end.

Answer 2

copy(s,m,n);取s中第m个字符中的n个字符。若m大于s的长度，则返回空串；否则，若m+n大于s的长度，则截断。
length(s);求s的动态的长度。返回值为整数。
pos(sub,s);在s中找子串sub。返回值为sub在s中的位置，为integer型。
insert(sour,s,m);在s的第m个字符位置处插入字串sour。若返回串超过255，则截断。
delete(s,m,n);删除s中第m个字符开始的n个字符。若m大于s的长度，则不删除；否则，若m+n大于s的长度，则删除到结尾。
str(x,s)将整数或实数x转换成字符串s。
val(s,x)将字符串s转换成整数或实数x。
upcase(ch)将小写字母ch转换为大写字母。若ch不是小写字母，则不转换。
打这么多字，还真累啊。还求采纳！！

Answer 3

conat(s1,s2,...sn) 函数，字符串合并比如我定义const s1: string = 'abc'; s2: string = 'def'; s3: string = 'ghi';begin Writeln(conat(a1, s2, s3)); //结果是 abcdefghi, 合并起来了 Readln;end.