4、删除子串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.

5、字符串转为数值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.