請問wraptext的參數詳解 |
|
答題得分者是：Chance36
|
|
dengguo
一般會員   發表：41 回覆：49 積分：23 註冊：2004-01-09 發送簡訊給我 |
任何一本介紹WRAPTEXT函數的書上都這樣寫著:
-------------------------------------------------------------
首部 function WrapText(const Line, BreakStr: string; nBreakChars: TSysCharSet; MaxCol: Integer):string; $[
功能 將字串Line用指定的字串BreakStr分離並返回。[其中: nBreakChars爲條件，Max爲最長寬度]
說明 type TSysCharSet = set of Char;
##begin
## WrapText('The rain in Spain falls mainly on the plain.', #13#10, ['.',' ',#9,'-'], 42);
## {The rain in Spain falls mainly on the}
## {plain.}
##end.
----------------------------------------------------------------------
const Line:理解為要進行分割的字串
BreakStr: string:理解為用來分割的字符
nBreakChars呢,例句中的['.',' ',#9,'-']這些參數是根據什麼來的?如何解釋
MaxCol: Integer這個好像沒什用,我在
s.Text :=WrapText(edit1.Text,#13,[',',' ',],1);中將1改成0或其它效果居然都一樣!!
請幫忙講解釋下後兩個參數的具體使用及參考,因我找了很多資料都 沒有相關說明!!謝謝!! 初學delphi,請各位多多提點!謝謝!
|
|
Chance36
版主  發表：31 回覆：1033 積分：792 註冊：2002-12-31 發送簡訊給我 |
dengguo 你好 function WrapText(const Line, BreakStr: string; nBreakChars: TSysCharSet; MaxCol: Integer):string;
功能 將字串Line用指定的字串BreakStr分離並返回。
----------------------------------------------------------------------
const Line:為要進行分割的字串
BreakStr: string:斷行符號,遇到它非斷不可，一般MS系統即為#13#10，Unix系統為#10而已
nBreakChars:斷行參考字元,容後說明
MaxCol: 一行最多幾個字元
當一行的字元數超過 MaxCol 時,開始往前尋找斷行參考字元,找到任何一個則從該字元後插入斷行符號,若找不到則在第MaxCol字元後插入斷行符號
|
|
dengguo
一般會員 發表：41 回覆：49 積分：23 註冊：2004-01-09 發送簡訊給我 |
|
|
dengguo
一般會員 發表：41 回覆：49 積分：23 註冊：2004-01-09 發送簡訊給我 |
發現用ExtractStrings能做到我要求:
procedure TForm1.Button1Click(Sender: TObject);
var
SL:Tstringlist;
i:Integer;
begin
SL:=Tstringlist.Create ;
ExtractStrings([','], [' '],
'j0252,j0253,j0254',SL);
for i:=0 to SL.Count-1 do
showmessage(SL.Strings[i]);
SL.Free;
end; ###############################
初學delphi,請各位多多提點!謝謝!
###############################
|
發表時間：2004-05-22 15:12:00
IP:218.16.xxx.xxx 未訂閱
系統時間：2024-05-19 17:25:24
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |