我想产生inttostr(length(ls_blanks)空格的,怎么不行呀
还有有没有产生空格的函数。谢谢
在线!
还有有没有产生空格的函数。谢谢
在线!
解决方案 »
- 在百度MP3下载的路径都是加密的(路径中带省略号),怎么在Delphi中用idhttp下载获得正确的路径,用什么控件?最好有源代码,能解析出歌曲的名字。
- 有没有双表头的grid控件?
- 花钱求购毕业设计(汉字拼音笔画输入法)
- 请问如何获得目录下的所有文件?
- 晕死我了!各位帮帮忙,(用鼠标拖动,选取时间范围)
- 如何按数组中数据的顺序查找数据库中的数据?
- 我在WIN98下使用钩子技术,一调用函数SetWindowHookEx就蓝屏,吐血!!!
- 过程A调用过程B,如何在过程B中加入语句退出过程A?急!
- 关于DBCheckBox的问题!
- 怎么样在一个应用程序中调用另一个应用程序?
- 100分
- MaskEdit 组件怎么用呀。多谢指导。...急需!
ls_blanks:=ls_blanks+' ';
Caption := '[' + Format('%*s', [10, '']) + ']'; //十个空格No.2 DupeString() for Delphi6
Caption := '[' + DupeString(10) + ']'; //十个空格
我不懂得?
ls_sl和ls_ml是什么究竟要产生多少空格?(inttostr(length(ls_blanks)是个字符串,不是数字).
产生N个空格的方法是:
StringOfChar(' ',N);
begin
Result := StringOfChar(ch, N);
end;// 产生N个空格
function Space(N: integer): String;
begin
Result := RepeatChar(' ', N);
end;
N:integer;
begin
SetLength(Str,N); //产生N个空间。
FillChar(S, M, Ord(' '));//产生M个空格。(N>=M)
end;
来迟了。 :(
如果str 是字符串。
那么
var str:string;
begin
str:=StringOfChar(' ', M);//产生M个空格。
end;
var
s:string;
begin
s:=' ';
while length(s)<>10 do begin
s:=s+' ';
end;
showmessage(inttostr(length(s)));end;