線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1449
推到 Plurk!
推到 Facebook!

自行Coding換行發生問題

答題得分者是:Stallion
熾冰
一般會員


發表:29
回覆:21
積分:10
註冊:2004-01-12

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-09-08 21:06:25 IP:218.175.xxx.xxx 訂閱
//---簡單自動換行的Function
function TForm1.AutoChgLine(s:String;i1:Integer):String;
Var
s1,s2:String;
begin
//
s1:=s;
While Length(s1)>0 do
begin
s2:=s2 #13 #10 Copy(s1,1,i1);
s1:=Copy(s1,i1,Length(s1));
end;
Result:=s2;
end;

{------------------------------------------------}
procedure TForm1.Button1Click(Sender: TObject);
begin
With Memo1 do
begin
Text:='台北市中和路';
Text:=Text #13 #10 AutoChgLine('台北市中和路',4);
end;
end;


以上執行結果 無法如預期顯示?
會出現亂碼
該如何處理才能正常顯示?
Stallion
版主


發表:52
回覆:1600
積分:1995
註冊:2004-09-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-09-08 22:37:25 IP:211.22.xxx.xxx 未訂閱
  
unit Unit1;

interface

uses
Dialogs, StdCtrls, StrUtils;

type
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
{ Private declarations }
function AutoChgLine(s:WideString;i1:Integer):WideString;
end;

var
s1,s2:WideString;
begin
s2 := '';
begin
s1 := RightStr( s1, Length(s1) - i1 );
Result:=s2;
end;

{------------------------------------------------}
procedure TForm1.Button1Click(Sender: TObject);
begin
begin
台北市中和路';
台北市中和路',4);
end;
end;

end.
編輯記錄
Stallion 重新編輯於 2007-09-08 22:38:27, 註解 無‧
Stallion 重新編輯於 2007-09-08 22:40:32, 註解 無‧
系統時間:2024-03-29 14:45:12
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!