各位前輩
請教一個問題
我有一個字串 '北市八德路4段768巷1弄20號12F'
要把他填入 ',,,,,,,,,,'
但規則是每個逗點內最多只能填11個位元
結果就會是 '北市八德路4,段768巷1弄2,0號12F,,,,,,,,'
謝謝

程式上是可以做到每11位元組塞入逗號,但需考量到中文字被截斷的可能,需要再調程式碼,備註部份就是判斷是否為中文字,需自行調整
procedure TForm1.Button1Click(Sender: TObject);
const
addr1='北市八德路4段768巷1弄20號12F';
addr2='台中市文心路一段11號4樓';
var
p,len:Integer;
Rearrage:string;
Result:string;
begin
p:=1;
len:=6;
result:='';
Rearrage:=addr2 StringOfChar(' ',80-length(addr2));
while (p len) begin
// if ord(addr2[p len])>=127 then
// Inc(len)
// else
// len:=6;
// if ord(addr1[p])>=127 then
// inc(p);
result:=result copy(Rearrage,p,p len) ',';
p:=p len;
end;
result[length(result)]:=' ';
ShowMessage(result);
end;

謝謝大大
但是在while這段會出錯
請大大指點一下

while 那一行改成(＜半形的小於被蓋掉了)
while (p len)＜length(addr2) do