请教数据怎样定长输出到文本中

请问数据怎样定长输出到文本中
要实现文本的每一行输出的每一个数据都是定长的，即输出的字符串所占的字符数相同，请教了！

------解决方案--------------------
如果不够长度的话就在后面加空格
if length(yourstring) > 你要的长度 then
s := copy(yourstring,1,你要的长度)
else
s := yourstring + StringOfChar( ' ',你要的长度-Length(yourstring));

------解决方案--------------------
检查要输出的字符串长度是否合适，不够的话在头或者尾上加空格不就行了？数字的话可以用format来格式化。
------解决方案--------------------
var
a : array of char;
s : string;
begin
SetLength(a,200);
FillChar(a[0],Length(a),#32);
s := '1234 ';
Move(s[1],a[0],Length(s));

------解决方案--------------------
var
a : array of char;
s : string;

f : TextFile;
p : PChar;
begin
SetLength(a,200);
FillChar(a[0],Length(a),#32);
s := '1234 ';
Move(s[1],a[0],Length(s));
p := @a[0];

AssignFile(f, 'E:\aaa.txt ');
ReWrite(f);
WriteLn(f,Copy(p,1,Length(a)));
CloseFile(f);
end;