字符函数STR()

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
begin
//  Str(1, S); //= '1'
//  Str(2:1, S); //= ' 2'
  Str(2.0:1:2, S); //= '2.00'
  Caption := S;
end;

Answer 1

//  Str(2:2, S); //= ' 2'
//        ~

Answer 2

1.就是把一个整数转换成字符串类型
2.strscan

Answer 3

Str1(字符串),Str2(要找的字符串),Str3(要用来代替的字符串)
i:integer
i:=pos(Str2,Str1);
if i>0 then  //表示找到存在该字符串,代替
begin
  Str1:=copy(Str1,1,i-1) + Str3 +copy(Str1,i-1,length(Str1))
end;
可以实现你所要的功能