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

7、求子串起始位置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.