各位大大好~
問題如我標題所提,當我用copy在擷取中文時發生這樣的問題
我擷取的文字為"補發館際借書證手續費"

因為我想要把以上文字當作是我的按鈕caption,但文字太長了
所以我想讓他斷行顯示@@~成補發館際 借書證手續費
我程式如下
SpeedButton2.Caption:=copy(aSL2.Strings[1],1,8) #10#13 copy(aSL2.Strings[1],10,Length(aSL2.Strings[1]))
我想應該是中文換算字元的問題...是嗎?
請問哪位大大能幫幫我...要怎麼做才能達到我的要求
謝謝~

請參考
http://delphi.ktop.com.tw/board.php?cid=168&fid=914&tid=23509

copy之前先避開中文字

僅供參考
function CSubstr(str:string;var start:integer;len:integer):string;
var
i,strlen,x:integer;
tmpstr:string;
s:string;
begin
if Trim(str) <> '' then
begin
strlen:=start len;
tmpstr:='';
i:=start;
while(i begin
if(ord(str[i])>=127)then
begin
s:=copy(str,i,2);
tmpstr:=tmpstr s;
i:=i 2;
end
else
begin
tmpstr:=tmpstr copy(str,i,1);
inc(i);
end;
end;
start := i;
Result:=tmpstr;
end
else
begin
Result := '';
end;
end;