procedure Tear(s:string);
var ws:WideString; i:integer;
begin
   ws:=s;
   for i:=1 to length(ws) do
     showmessage(ws[i]);
end;

 function LimitSrtLength20(s:string):string;
 var i :integer;
 begin
  if length(s) > 20 then
  begin
   i := 1;
   while i < 20 do
   if IsDBCSLeadByte(Byte(s[i])) then i := i  2
    else i := i 1;       if (i = 20) and IsDBCSLeadByte(Byte(s[i])) then 
    result := Copy(s,1,19)
   else result := Copy(s,1,20);      end else result := s; 
 end;    

引言: 站長大大您好.. 就像是一個跑馬燈.. 有好幾幕(好幾個edit)可以輸入.. 現在就是要開啟user已編的檔案(ex文字檔.).. 然後將文字拆解成固定長度..依序填入edit中.. thx...!

var ts:TStringList; S,s0:String; ws:widestring; i:integer;
begin
  ts:=TStringList.create;
  s:='我1e和我的我的和我的我1e和我的我的和我的';
  ws:=s;
  s0:='';
  for i:=1 to length(ws) do
  begin
    if length(s0 ws[i])>20 then  
    begin
      ts.add(s0);
      s0:=ws[i];
    end
    else  s0:=s0 ws[i];
  end;
  ts.add(s0);
  ts.free;
end;

引言: if (i = 20) and IsDBCSLeadByte(Byte(s[i])) then result := Copy(s,1,19) else result := Copy(s,1,20); 上面那一段是在看i如果是全形就把i:=i 2，可是下面又設當i=20，這樣不是等於上面的就沒有作用了嗎?..還是我的理解有誤，煩請大大解惑..

引言: 不好意思...我是個魯肉腳.. 就是 if length(s0)=20 then memo3.lines.add(s0); 這樣就可以了.. ................................. 謝謝各位大大解惑..感激不盡... ................................. 新手多加油，加油努力中 < >< > < face="Verdana, Arial, Helvetica"> 很好 您自己也有努力喔 if length(s0)=20 then 這樣還是會有問題 有時候一個Edit可能只能裝19個Byte因為下一個是中文 只得輸出到下一個Edit 我想您應該如此寫比較好

var ts:TStringList; S,s0:String; ws:widestring; i:integer;
begin
  ts:=TStringList.create;
  s:='我1e和我的我的和我的我1e和我的我的和我的';
  ws:=s;
  s0:='';
  for i:=1 to length(ws) do
  begin
    if length(s0 ws[i])>20 then  
    begin
      ts.add(s0);
      s0:=ws[i];
    end
    else  s0:=s0 ws[i];
  end;
  ts.add(s0);

  edit1.text:=ts[0];
  edit2.text:=ts[1];
  edit3.text:=ts[2];      ts.free;
end;

～～～Delphi K.Top討論區站長～～～