一个字符串长度为50,不足的用空格填充,如何实现?????
解决方案 »
- 跪求,已知一任意椭圆的圆心坐标和长短轴距离,如何绘制该旋转椭圆?
- 求救:非法访问问题
- 用Delphi调用WORD时怎么动态生成表格,并给单元格中填写内容呢?
- 请问:那个函数可以取得一个实数的整数部分啊?
- 关于CheckListBox的问题?
- 100分问题
- Ado could not find the specified provider
- sqlserver text类型字段的存取问题
- win32 application和win32 console application有什么区别啊!?
- 关于Delphi5.0的QReport里的QuickRep1自定义报表
- 各位大虾,小弟紧急求救!!!
- 如果ACCESS数据库中有一个文本类型的字段超过255怎么办?
FillChar,先填充,然后在写入
var
lp: integer;
begin
Result := Str;
for lp := 1 to 50 - Length(Result) do
Result := Result + ' ';
end;
begin
result:=Str+StringOfChar(' ',50-length(Str));
end;