一段長字串...... 每到一定長度就折行......但要判斷中文字.... 不知要怎麼做比較好耶....^^"

引言: 一段長字串...... 每到一定長度就折行......但要判斷中文字.... 不知要怎麼做比較好耶....^^"

可用WideString來判斷中文字 var s:string; ws:widestring; i:integer; begin ws:=s; for i:=1 to length(ws) do begin if length(ws[i])>=2 then // 中文 else // 英文 ; end; end; ～～～Delphi K.Top討論區站長～～～

抱歉，修改一下下列程式 可用WideString來判斷中文字 var s, s1:string; ws:widestring; i:integer; begin ws:=s; for i:=1 to length(ws) do begin s1:=ws[i] if length(s1)>=2 then // 中文 else // 英文 ; end; end;

寫看看的,小弟是假設您把中文字也當做一個字元來看待 procedure TForm1.Button1Click(Sender: TObject); var s:string; ws:widestring; i,x,last:integer; ln:integer; //長度 begin s:='1234567890一二三四五六七八九十'; ws:=s; last:=1; //最左方定位 x:=1; //參考折行 ln:=5; //長度 for i:=1 to length(ws) do begin if length(ws[i])>=2 then // 中文 inc(x) else // 英文 inc(x); if (x >= ln) and ((x mod 2) = 0) then begin memo1.Lines.Add(copy(ws,last,x-1)); x:=1; last:=i; end; end; end;

引言: 一段長字串...... 每到一定長度就折行......但要判斷中文字.... 不知要怎麼做比較好耶....^^"

只要在你要折行的那個位置，檢查前一個 字元 是否為 LeadByte ，如果是，表示這是一個中文，折行位置要往後移，或往前移來將這個中文折到下一行 這樣就好囉

您好， 使用以下我自創的函式，s 是要檢查的字串，index 是字元的位置， 傳回值 true 則表示應字元是中文字的第一個字元。 所以，如果傳回 true ，則 index 和 index 1 就組成一個中文字， 必須在 index 或 index 2 的位置開始截斷字串， 不能在 index 1 處截。 function TForm1.DetermineLeadingByte ( s : string; index : Integer) : Boolean; var i : Integer; begin result := false; if (s = '') or (s[index] < #128) or (index < 1) or (index > Length(s)) then exit; i := 1; while i <= index do begin if i < index - 2 then begin if s[i] < #128 then i := i 1 else i := i 2; end else break; end; if i = index - 2 then begin if s[i] > #127 then result := true else result := s[i 1] < #127; end else if i = index - 1 then result := s[i] < #127 else if i = index then result := true; end;

var s:string; ws:widestring; i,x,last:integer; ln:integer; //長度 begin s:='1234567890一二三四五六七八九十時'; ws:=s; last:=1; //最左方定位 x:=1; //參考折行 ln:=5; //長度 for i:=1 to length(ws) do begin if length(ws[i])>=2 then // 中文 inc(x) else // 英文 inc(x); if (x >= ln) and ((x mod 2) = 0) then begin memo1.Lines.Add(copy(ws,last,x-1)); x:=1; last:=i 1; end; if i=length(ws) then memo1.Lines.Add(copy(ws,last,x-1));//未達折行的長度 end;