左端に引用符をつけるには？

解決

みけにゃん URL 2002-10-29 18:07:21 No: 1848

連続の質問で申し訳ないのですがメールの返信時に
左端に引用符の>が入っていますがどうすれば引用符を
つけることが出来るのでしょうか？

公式のAnsiQuote〜関数を試してみたのですが
以下のように出力されてしまいます。

>テストメッセージ。
あいうえお。
かきくけこ。
さしすせそ。

にしの 2002-10-29 18:18:01 No: 1849

単純に、各行に'>'を足すだけです。
たとえば、TStringList型であれば、
for i := 0 to StringList.Count - 1 do StringList[i] := '>' + StringList[i];
こんな感じ。

みけにゃん URL 2002-10-29 20:34:45 No: 1850

えっとメインフォームのTMemoに表示された文章を
メール送信用のフォームのTMemoにコピーする際に
引用符>をつけるのでStringListは使えないかなぁって思います。

にしの 2002-10-29 21:15:03 No: 1851

TMemoのLinesはTStringsですので、TStringListでキャストしてやれば同じことが出来ます。

hatena 2002-10-29 22:32:53 No: 1852

こんな感じですか？
for i := 0 to Memo1.lines.Count - 1 do Form2.Memo1.Lines.Add('>' + Memo1.lines[i]);

みけにゃん URL 2002-10-29 23:01:24 No: 1853

hatenaさんの内容を試したところ引用符がちゃんと文章の
左端に付くようになりました。ありがとうございました。