字串的排法，整齊

發文回覆瀏覽次數：1364

推到 Plurk!

推到 Facebook!

答題得分者是：smallfox

chjunsen
一般會員

發表：38
回覆：15
積分：10
註冊：2006-10-25

發送簡訊給我

#1 引用回覆回覆

發表時間：2010-10-23 20:13:19

IP:59.125.xxx.xxx 訂閱

請問
我是用delphi 2010要做字串的排法至memo裡面
但是排出來的檔案，會因為中文字偏掉
如
2010 王小明 FF
2010 小華 DD

請問各位大大有什麼辦法可以提供給小弟

smallfox
高階會員

發表：2
回覆：113
積分：128
註冊：2003-02-19

發送簡訊給我

#2 引用回覆回覆

發表時間：2010-10-24 00:20:08

IP:211.74.xxx.xxx 訂閱

下列寫法給你參考:

var n, i: Integer; mStr: AnsiString;
begin
i:=1;
while (not ADOQuery1.Eof) do begin
mStr:=ADOQuery1.FieldByName('xx').AsString; // 轉成 AnsiString, 以利中文字算成 2 Byte ..
n:=Length(mStr);
Memo1.Line.Add(FormatFloat('00', i) ' ' mStr StringOfChar(' ', 20-n));
ADOQuery1.Next;
Inc(i);
end;
end;

同問題的還有 TListBox, TCheckListBox 等含有 TStrings 屬性的元件.

系統時間：2024-05-08 5:28:04

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！