如何在 Delphi 中對 email 消息體使用 TMemo

Question

我有一個 TMemo object，其中包含大約 30 行（一些文本，一些空白行）的文本，代表我希望應用程序發送的 email 的消息正文。 在下面的代碼中，我將 TMemo object 中的文本傳遞給IdMessage1.Body.Text （Indy 10），但我生成的 email 消息正文似乎只是一個連續的換行。 我想查看包含一些空白行的間距。 如果我從 TMemo 的 Lines 參數中復制內容並將其粘貼到文本編輯器中，我可以在行尾看到 CR 和 LF。

CR & LF 在此翻譯中是否被剝離，我是否應該為此使用不同的組件而不是 TMemo，或者我是否將 TMemo 中的行錯誤地傳遞給IdMessage1.Body.Text ？

IdMessage1.Body.Text := EmailBodyMemo.Text;
IdMessage1.ContentType := 'text/html';

Answer 1

TMemo.Text屬性將整個內容作為單個string返回，每行之間沒有插入任何“軟”（自動換行）換行符，只有“硬”換行符（顯式CR / LF字符）。

改用這個：

IdMessage1.Body.Text := EmailBodyMemo.Lines.Text;

Lines.Text返回一個string ，每行由Lines.LineBreak分隔（在 Windows 上默認為CRLF ）。

或者更好的是，改用這個：

IdMessage1.Body := EmailBodyMemo.Lines;

這與這樣做相同：

IdMessage1.Body.Assign(EmailBodyMemo.Lines);