关于checklistbox中空格的问题 |
|
答題得分者是：deity
|
|
liangzai
初階會員   發表：77 回覆：91 積分：33 註冊：2004-08-13 發送簡訊給我 |
请教各位大大，
我现在将某一个table中的数据取出来放到checklistbox里面，使用这样的写法：
self.CheckListBox1.Items.Append(
temprse[i].vn space(10-strlen(pchar(f0))) '|'
temprse[i].en space(11-strlen(pchar(f1))) '|'
temprse[i].brand space(15-strlen(pchar(f2)))
);
其中space是我自定义的一个函数，用于添加空格：
function space(x:integer):string; //用于checklistbox中数据的排列
var a:string ;
i:integer;
begin
a:='';
for i:=1 to x do
begin
a:=a ' ';
end;
space:=a;
end; 这样做的目的是使数据排列美观一些，但是我发现如果记录越来越多的话，每次添加数据到checklistbox里面，都要通过这个函数来取得空格，效率较低，请问各位大大，有什么好的方法吗？谢谢！
|
|
deity
尊榮會員 發表：90 回覆：876 積分：678 註冊：2003-05-09 發送簡訊給我 |
liangzai 您好：
self.CheckListBox1.Items.Append(
temprse[i].vn+space(10-strlen(pchar(f0)))+'|' <--假如长度固定且知道
+temprse[i].en+space(11-strlen(pchar(f1)))+'|' <--假如长度固定且知道
+temprse[i].brand+space(15-strlen(pchar(f2))) <--假如长度固定且知道
); 您想实现让其排列整齐吧？
参考下面：
CheckListBox1.Items.Append(
format('%-10s',[temprse[i].vn])+'|' //您可以根据需要规定长度，这里为10
+format('%-10s',[temprse[i].en])+'|'
+format('%-10s',[temprse[i].brand])
);
供参考
|
|
malanlk
尊榮會員 發表：20 回覆：694 積分：577 註冊：2004-04-19 發送簡訊給我 |
|
|
liangzai
初階會員 發表：77 回覆：91 積分：33 註冊：2004-08-13 發送簡訊給我 |
發表時間：2005-08-19 13:15:38
IP:218.19.xxx.xxx 未訂閱
系統時間：2024-06-28 17:35:06
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |