Memo nesnesindeki çok satırlı metni tek satır yapma?

[DraGonS]

arkadaşlar programımda memo nesnesindeki çok satırlı metni database me (kendi yazdığım yalnız sadece tek satır kabul ediyor) tek satır halinde eklemek istiyorum ve gerektiğindede memo nesnesine çok satırlı hale geri çevirmek istiyorum nasıl apabilirim. Yardımcı olursanız sevinirim..


Tşkler..

[t-hex]

Memoda yazılı olan ifade aslında tek bir stringdir.
Her satır #13(Carriage Return) + #10(Line Feed) karakterlerinden itibaren ayrılır

Kod: Tümünü seç

var
  str : string;
begin
  Str := memo.Lines.Text // tek string halinde 
  memo.Lines.Text := str; // satırlara bölünmüş şekilde
end;

Örnek2

Kod: Tümünü seç

  memo1.lines.text := 'a'#13#10'b'#13#10'c';

Örnekteki kod memoda 3 satır olarak görünür.

[DraGonS]

bu cevabın içinde çoook teşekkür ederim..