请问字符串操作问题

Question

在text中输入一串字符串，怎样将该字符串动态插入于另一固定长度字符串的中央（其他的都是空格）,插入后的字符串空格根据插入字符串的长度增加而减少，但总长度不变。如：
a='csdn',b='        ';
插入后
c='  csdn  '

Answer 1

先用 length(b)-length(a) div 2 得到插入的起始位置
然后 用循环，一个个替代

Answer 2

d:=(Length(b)-Length(a))/2;
c:=Copy(b,1,d)+a+Copy(b,1,d);

Answer 3

var
  x:Integer;
begin
  x:=(length(b)-length(a)) div 2;
  c:=copy(b,1,x)+a+copy(b,1,length()-x);

Answer 4

c:=copy(b,1,x)+a+copy(b,1,length(b)-x);

Answer 5

var
  x:Integer;
begin
  x:=(length(b)-length(a)) div 2;
  c:=copy(b,1,x)+a+copy(b,1,length()-x);

Answer 6

d:=(Length(b)-Length(a))/2;
c:=Copy(b,1,d)+a+Copy(b,1,d);
方法很多