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