什么函数能将一个字符串变成一个定长的字符串，后面补空格(100分)

thanks

不用函数，这样就可以了
const
strsize: Integer = 200;
var
s: String;
begin

s := 'test';
s := s + StringOfChar(' ', strsize - Length(s));

自己写
function RelpaceNull(s: string;
count: integer): string;
begin
Result := s + stringofchar(' ',count-length(s));
end;

补充一点，if sizeof(s) >200 then

…………

试试这个：
Edit1.Text := Format('%-10s', ['ab']);//后面加空格
Edit1.Text := Format('%10s', ['ab']);
//前面加空格

//长度转换函数
AnsiString FillLength(AnsiString str,int intLength,int Flag)
{
int i;
AnsiString tmp;
tmp=str;
if(Flag==1) //num
{
for(i=1;i<=intLength-str.Length();i++)
{
tmp="0"+tmp;
}
}
if(Flag==2) //string
{
for(i=1;i<=intLength-str.Length();i++)
{
tmp=tmp+" ";
}
}
return (tmp);
}
其中AnsiString str是要转换的字符串
int intLength是定长
int Flag是转换类型：1为数值在前面加0
2为字符在后加空格

多人接受答案了。