求delphi自带一简单函数，解决马上给分！

Question

实现功能如下：
在一字符串左或右侧，增加一固定长度字符的字符串，例字符串'china',字符'$',总长度为10，效果如下：
'china$$$$$'或'$$$$$china'

Answer 1

function ToLengthStr(Value: string; Len: smallint): string;
  //把字符串转换为指定长度的字符串，不足者前加"$"
  var
    s               : string;
    vPos            : smallint;
  begin
    s := '$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$' + Value;
    vPos := Length(s) - Len + 1;
    Result := Copy(s, vPos, Len);
  end;

Answer 2

procedure Insert(Source: string; var S: string; Index: Integer);
恐怕这个函数最符合你的要求了。

Answer 3

//左边
  function ToLengthStrL(str:string;iLen:Integer):string;
  begin
    Result:=StringOfChar('$',iLen-Length(str))+str;
  end;
  //右边
  function ToLengthStrR(str:string;iLen:Integer):string;
  begin
    Result:=str+StringOfChar('$',iLen-Length(str));
  end;

Answer 4

to coldsea_2000(张海) :我的意思就加五位
另外，大家注意我要的是delphi自带的函数，不是自己写的，如果没有的话，也告诉我好让我死心。
此问题还没有解决，大家再想想。

Answer 5

回复人： zhboy(孔方兄) ( ) 信誉：99  2004-09-17 19:47:00  得分: 0  
 
 
   procedure Insert(Source: string; var S: string; Index: Integer);
恐怕这个函数最符合你的要求了。
  
 
这就是你要的答案

Answer 6

to myling(AD) :这个函数是在指定位置插入字符串，从index可以看出来，
format函数可以，还有没有其他函数？？？

Answer 7

自己写都很容易呀http://lysoft.7u7.net