全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1666
推到 Plurk!
推到 Facebook!

擷取資料無法對齊...?

 
7-11
一般會員


發表:53
回覆:33
積分:16
註冊:2005-12-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-07-12 13:50:39 IP:220.130.xxx.xxx 未訂閱

請問我要如何將 - 1234567890 全部切齊(前面的不管)

以下是我的程式碼...

procedure TForm1.Button1Click(Sender: TObject);
Var R,S,T,U,V : String;
begin
R := 'abcdefghijklmnopqrstuvwxyz';
S := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
T := '1234567890';
U := 'A1B2C3D4E5F6G7H8I9J0';
V := '程式設計';
ShowMessage(LeftStr(LeftStr(S,6) ' ',10) '-' ' ' T #10#13
LeftStr(LeftStr(T,6) ' ',10) '-' ' ' T #10#13
LeftStr(LeftStr(R,6) ' ',10) '-' ' ' T #10#13
LeftStr(LeftStr(V,6) ' ',10) '-' ' ' T);
end;

jackychou
一般會員


發表:0
回覆:3
積分:0
註冊:2002-06-17

發送簡訊給我
#2 引用回覆 回覆 發表時間:2006-07-12 16:50:17 IP:219.81.xxx.xxx 未訂閱
不要用空白,改用TAB(#9)
7-11
一般會員


發表:53
回覆:33
積分:16
註冊:2005-12-05

發送簡訊給我
#3 引用回覆 回覆 發表時間:2006-07-12 22:23:43 IP:220.130.xxx.xxx 未訂閱

不好意思!我不太懂耶! TAB(#9) 可不可以說清楚一點! 謝謝!

jackychou
一般會員


發表:0
回覆:3
積分:0
註冊:2002-06-17

發送簡訊給我
#4 引用回覆 回覆 發表時間:2006-07-13 00:26:28 IP:219.81.xxx.xxx 未訂閱
ShowMessage(LeftStr(LeftStr(S,6) ' ',10) '-' #9 T #10#13
LeftStr(LeftStr(T,6) ' ',10) '-' #9 T #10#13
LeftStr(LeftStr(R,6) ' ',10) '-' #9 T #10#13
LeftStr(LeftStr(V,6) ' ',10) '-' #9 T);
7-11
一般會員


發表:53
回覆:33
積分:16
註冊:2005-12-05

發送簡訊給我
#5 引用回覆 回覆 發表時間:2006-07-13 01:38:17 IP:220.130.xxx.xxx 未訂閱

謝謝你的幫忙!問題已經解決了!謝謝!

對了!新的論壇好像沒有像以前一樣可以選擇最佳解答是嗎?真想投給你!


===================引 用 文 章===================
ShowMessage(LeftStr(LeftStr(S,6) ' ',10) '-' #9 T #10#13
LeftStr(LeftStr(T,6) ' ',10) '-' #9 T #10#13
LeftStr(LeftStr(R,6) ' ',10) '-' #9 T #10#13
LeftStr(LeftStr(V,6) ' ',10) '-' #9 T);

syntax
尊榮會員


發表:26
回覆:1139
積分:1258
註冊:2002-04-23

發送簡訊給我
#6 引用回覆 回覆 發表時間:2006-07-21 22:57:26 IP:61.64.xxx.xxx 未訂閱
不想說你腦筋不好,但確實不靈活,你要多多運轉你的大腦阿
提供你兩種方法,實作靠你自己
1.使用 Canvas.TextOut(); 來輸出文字直接指定座標,一定對得齊
2.笨一點,使用 12 個 Label 每個,Label 放不同的文字,也可以在畫面上對得齊

Label1 Label2 Label3
ABCDEF - 1234567890
Label4 Label5 Label6
123456 - 1234567890

依此類推

多靈活使用你的大腦,問題通常不會只有一種解法

===================引 用 文 章===================

請問我要如何將 - 1234567890 全部切齊(前面的不管)

以下是我的程式碼...

procedure TForm1.Button1Click(Sender: TObject);
Var R,S,T,U,V : String;
begin
R := 'abcdefghijklmnopqrstuvwxyz';
S := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
T := '1234567890';
U := 'A1B2C3D4E5F6G7H8I9J0';
V := '程式設計';
ShowMessage(LeftStr(LeftStr(S,6) ' ',10) '-' ' ' T #10#13
LeftStr(LeftStr(T,6) ' ',10) '-' ' ' T #10#13
LeftStr(LeftStr(R,6) ' ',10) '-' ' ' T #10#13
LeftStr(LeftStr(V,6) ' ',10) '-' ' ' T);
end;

系統時間:2024-04-19 17:43:00
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!