Pascal关于字符串

类型：

char  字符型。字符个数（1个）

string 字符串型。字符个数（0~255个）

ansistring 字符串型  字符个数（0~2GB）

常用函数或过程:

length（s）;   函数作用，求字符串s的长度

原型（小编原创）：

function length(s:string):longint;

begin

  s:=s+'Ye';        //此部分可以乱加，最好加的无厘头。以免重复，是函数失效

  while not t do

  begin

    length:=length+1;

    if (s[length]='Y') and (s[length]='e') then t:=true;

end;

copy(s1,a,b);  函数作用：复制s1 a~b这段部分

原型（小编原创）：

function copy（s1:string;a,b:longint）:string;

begin

  for i:=a to b do

  copy:=copy+s1[i];

end;

delete(s,a,b); 过程！此处是过程！！！啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊！

过程作用：删除s串第a个位置到第b个位置

过程原型：

procedure delete(s:string;a,b:longint);

begin

  for i:=a to b do

  for j:=i to length(s)-1 do

  s[j]:=s[j+1];

end;

str（a,s）;  过程作用：把数字a转化成字符串s

过程原型：

procedure str(a:longint;s；string);

begin

  while a>0 do

  begin

    x:=a mod 10;

    x1:=chr(x+32);

    s:=x1+x1;

  end;

end;

val(s，a); 过程用途：str的逆运算，将数字串s转化成数字a。这个过程的原型小编就不多说了。

pos（s1,s2）; 函数用途：在s2串中找子串s1

转载于:https://my.oschina.net/u/3233411/blog/830156