Delphi - WrapTextをRichEdit.Lines.Textのように動作させる方法

Question

私はTRichEditを使ってテキストを編集します。私は、スクロールバーがないようにコントロールの端に自動的にテキストをラップするWordWrapを有効にしています。 RichEditの幅は80列に収まるように設定されています。

ワードラップは、単語間に時折スペースがある限り、この動作をうまくシミュレートします。しかし、あなたが非常にloooooooooooooooooongの単語RichEditのラップを持っている場合、自動的にそれを壊すし、WordWrapはしません！

もし私が今これらの折り返し線にアクセスしたいのであれば、RichEdit.Lines.Textでそれを得ることができます。これは自動的にCRLFを80列目に置くことになります。私がRichEdit.Textを使うと、WordWrapに適したCRLF

私はすでに試してみましたが、それは小さな関数ではありませんでしたが、TRichEditのラッピング関数を使用する方法があるかもしれませんか？私は隠されたRichEditを作成するアイデアを持っていますが、ワードラッピングを行うために幅を計算しなければならないので、この種のことは愚かなようです。

質問 - それ以外の場合は折り返すことができない長い単語をWordWrapで強制的に切断する方法はありますか？したがって、単語の長さが170文字の場合、3行の80 + 80 + 10にラップされますが、前と後の行を入力する前に単語の世話をしますか？

Answer 1

サイズのためにこれを試してみてください上：

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char); 
const 
    MAX_LENGTH = 80; 
var 
    nLineCount: integer; 
    sCurrentLine: string; 
begin 
    for nLineCount := 0 to RichEdit1.Lines.Count - 1 do 
    begin 
    // no space in this line 
    if (pos(' ',RichEdit1.Lines.Strings[nLineCount]) = 0) then 
    begin 
     if (length(RichEdit1.Lines.Strings[nLineCount]) > MAX_LENGTH) then 
     begin 
     // hold the whole line 
     sCurrentLine := RichEdit1.Lines.Strings[nLineCount]; 
     // the current line, make the max value 
     RichEdit1.Lines.Strings[nLineCount] := copy(sCurrentLine,1,MAX_LENGTH); 
     // build the next line 
     RichEdit1.Lines.Add(
     copy(sCurrentLine,MAX_LENGTH + 1,1)); 
     end; 
    end; 
    end; 
end;