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

解決

みけにゃん  URL  2002-10-29 18:07:21  No: 1848  IP: [192.*.*.*]

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

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

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

>

編集    削除
にしの  2002-10-29 18:18:01  No: 1849  IP: [192.*.*.*]

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

編集    削除
みけにゃん  URL  2002-10-29 20:34:45  No: 1850  IP: [192.*.*.*]

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

編集    削除
にしの  2002-10-29 21:15:03  No: 1851  IP: [192.*.*.*]

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

編集    削除
hatena  2002-10-29 22:32:53  No: 1852  IP: [192.*.*.*]

こんな感じですか？
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  IP: [192.*.*.*]

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

編集    削除