1. 连接运算concat(s1,s2,s3…sn) 相当于s1+s2+s3+…+sn.
例：concat(‘11’,’aa’)=’11aa’;
2. 求子串。Copy(s,I,L) 从字符串s中截取第I个字符开始后的长度为l的子串。
例:copy(‘abdag’,2,3)=’bda’
3. 删除子串。过程Delete(s,I,l) 从字符串s中删除第I个字符开始后的长度为l的子串。例：s:=’abcde’;delete(s,2,3)；结果s:=’ae’
4. 插入子串。过程Inse rt(s1,s2,I) 把s1插入到s2的第I个位置
例：s:=abc;insert(‘12’,s,2)；结果s:=’a12bc’
5. 求字符串长度length(s) 例：length(‘12abc’)=5
6. 搜索子串的位置pos(s1,s2) 如果s1是s2的子串，则返回s1的第一个字符在s2中的位置，若不是子串，则返回0.
例：pos(‘ab’,’12abcd’)=3
7. 字符的大写转换。Upcase(ch) 求字符ch的大写体。
例：upcase(‘a’)=’A’
8. 数值转换为数串。过程Str(x,s) 把数值x化为数串s.
例：str(12345,s); 结果s=’12345’
9. 数串转换为数值。过程val(s,x,I) 把数串s转化为数值x，如果成功则i=0，不成功则I为无效字符的序数
例：val(‘1234’,x,I)；结果x:=1234
求长度len gth
定义：functi on Length(S: String): Intege r;
例子：
var
S: String;
begin
Readln (S);
Writel n('"', S, '"');
Writel n('length = ', Length(S));
end.
复制子串co py
定义：functi on Copy(S: String; Index:Intege r; Count:Intege r): String;
注意：S 是字符串类型的表达式。Index和Count是整型表达式。Copy 返回S中从Index开始，Count个字符长的一个子串。
例子：
var S: String;
begin
S := 'ABCDEF';
S := Copy(S, 2, 3); { 'BCD' }
end.
插入子串in sert
定义：proced ure Insert(Source: String; var S: String; Index:Intege r);
注意：Source是字符串类型的表达式。S是任意长度字符串类型变量。Index是整型表达式。Insert把Source插在S中Index处。如果结果字符串的长度大于255，那么255之后的字符将被删除。
例子：
var
S: String;
begin
字符串长度是整型吗S := 'Honest Lincol n';
Insert('Abe ', S, 8); { 'H onest Abe Lincol n' }
end.
删除子串del ete
定义：proced ure Delete(var S: String; Index:Intege r; Count:Intege r);
注意：S 是字符串类型变量。Index和Count are是整型表达式。D elete删除S中从Index开始的Cou nt个字符。如果Inde x大于S的长度，则不删除任何字符；如果Coun t大于S中从Inde x开始的实际字符数，则删除实际的字符数。
例子：
var
s: string;
begin
s := 'Honest Abe Lincol n';
Delete(s,8,4);
Writel n(s); { 'Honest Lincol n' }
Delete(s,9,10);
Writel n(s); { 'Honest L' }
end.
字符串转为数值val
定义：proced ure V al(S; var V; var Code: Intege r);
在这里:
S 是由一系列数字字符构成的字符串类型变量；。
V 是整型或实型变量；
Code 是Integ e r型变量
注意：V al将S转为它的数值形式。
例子：
var s:string;I, Code: Intege r;
begin
s:='1234';
val(s,i,code);
writel n(i); { 1234 }
end.
数值转为字符串str
定义：proced ure Str(X [: Width[: Decimal s ]]; var S:string);
注意：将数值X转成字符串形式。
例子：
var
S: string[11];
begin
Str(I, S);
IntToS tr := S;
end;
begin
Writel n(IntToS tr(-5322));
Readln;
end.
求子串起始位置pos
定义：functi on Pos(Substr: String; S: String): Byte;
注意：Substr和S字符串类型表达式。Pos在S中搜索Sub str并返回一个in teger值。这个值是Su bstr的第一个字符在S中的位置。如果在S中没有到Su bstr，则Pos返回0。
例子：
var S: String;
begin
S := ' 123.5';
{ Conver t spaces to zeroes }
whilePos(' ', S) > 0 do
S[Pos(' ', S)] := '0';
end.
字符完全串连+
定义：操作符+把两个字符串联在一起。
例子：
var s1,s2,s:string;
begin
s1:='Turbo';
s2:='pascal';
s:=s1+s2; { 'T urbopascal' }
end.
字符串压缩空格串连-
定义：操作符-去掉第一个字符串最后的空格后，将两个字符串联在一起。例子：
var s1,s2,s:string;
begin
s1:='Turbo';
s2:='pascal';
s:=s1-s2; { 'Turbop ascal' }
end.
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论