小弟有個問題 想請教一下各位先進... 若是有一串字串 如 delphi is good delphi ktop com tw 小弟想以每10個字元為一組把此字串拆開 並且不能把整個字切斷 若是遇到文字還沒中斷 必須往前找到空白再斷句 如上面的文字若直接拆開應該是 delphi is good delph i ktop com tw 而我想達到的效果則是 delphi is good delphi ktop com tw 請問該如何解決呢?

procedure TForm1.Button1Click(Sender: TObject);
var
 A,B:String;
begin
 Memo1.Clear;
 A:='delphi is good delphi ktop com tw';
 B:=WrapText(A, #13#10, [' '],10);
 Memo1.Lines.Add(B);
end;
 

結果： delphi is good delphi ktop com tw 網海無涯，學無止境!

感謝qoo1234兄的指導唷 可以了