Memoコンポート内にある複数行の文字列をそのままラベルに表示させるには？

カーク 2006-02-10 02:13:53 No: 19955

Memoコンポーネントで複数行にわたるテキスト文を入力し、
その内容をLabelコンポーネントにそのままの状態（改行された状態）で
表示するにはどうしたらいいのでしょうか？
改行コードをいくつか挿入しようとしたのですが、わからない状況です。

にしの 2006-02-10 02:20:27 No: 19956

普通にできますが、どのようにやったのでしょうか。
もしかして、
Label1.Caption := '';
for i := 0 to Memo1.Lines.Count - 1 do Label1.Caption := Label1.Caption + Memo1.Lines[i];
としていませんか？
Linesプロパティは、改行を含まない１行を返します。
もしこの方法を取るなら、Memo1.Lines[i] +#13#10;のように改行コードをつけないと改行されません。

単にMemo1の内容をLabelに移したいのであれば、
Label1.Caption := Memo1.Text;
でよろしいかと思います。
# 環境：Delphi7

カーク 2006-02-10 02:28:34 No: 19957

これでやったのですが、ダメでした
for i := 0 to MemoA.Lines.Count - 1 do
LabelA.Caption := LabelA.Caption + MemoA.Lines[i] + ＠＠＠;

＠＠＠＝Chr(13)+chr(10)、#13#10、Chr($D)+Chr($A)

Label1.Caption := Memo1.Text;
これでは改行はされていませんでした。

# 環境：Delphi5

HOta 2006-02-10 06:47:39 No: 19958

Label1.Caption := Memo1.Text;
で問題ないですよ。

にしの 2006-02-10 06:52:25 No: 19959

あと考えられるのは、AutoSizeがFalseになっているとか？