有没有空格字符串函数
由于要对齐格式,需要根据edit.text的长度自动地在其后面增加n个空格字符串。
怎么样处理?
s:sting;
s:=edit1.text+空格函数+edit2.text
由于要对齐格式,需要根据edit.text的长度自动地在其后面增加n个空格字符串。
怎么样处理?
s:sting;
s:=edit1.text+空格函数+edit2.text
解决方案 »
- 有關條形碼掃描器程序
- 高分求解,,如何在cxGrid使用CheckBox操作与数据集无关的列呢
- 请问:TDbGridEh如何在不设置RowSelect的情况下,以不同颜色显示当前行?
- 怎么判断dbgrid中某个字段获得了焦点
- 自行车被盗!从此改行!
- 如何将数据类型作为参数传入
- 转发:《你尽力了吗?》
- 如何在打印报表时让一个TEXT字段对应内容都显示出来!!!急!请大家多帮忙!
- 数据库中的MBP文件怎么转换成JPG格式?
- 关于不同操作系统下的报表打印的问题?
- 急,急,菜鸟求教一个简单问题
- 没分了可以问一个问题吗?BlockWrite(ToF,sFileName,20); 参数20是什么意思呀? 好想后面还有一个(4个参数)参数,那有代表什么一一呀?
procedure space(n:integer,var str:string);\\其中n为空格数,str为字符串
var i:integer;
begin
for i:=1 to n do
begin
str:=str+' ';
end;
end
begin
result:=0;
while edit.canvas.textwidth(s)<=edit.clientwidth-edit.canvas.textwidth(' ') do
begin
s:=s+' ';
end;
end;
begin
result:=0;
while edit.canvas.textwidth(s)<=edit.clientwidth-edit.canvas.textwidth(' ') do
begin
s:=s+' ';
inc(result);//刚才忘了。不好意思^^
end;
end;
不是\t, C中才是\t