Memo Bileşeni Yardım Lütfen!!!!

[Elektrıktekn]

Arkadaşlar merhaba Bir sorum olacak yardımlarınızı bekliyorum uzun süredir uğraşıyorum bir türlü çözemedim problemi sorum şu;

Memo Bileşenindeki satırlar halindeki Bilgiyi Edit içerisine Yan yana olarak alıyorum.Koduda siteden araştırıp buldum.

var
i: integer;
begin
for i := 1 to length(Memo1.Text) do
if not (Memo1.Text in [#10, #13, #32]) then // satır sonu, satır ilerlet ve boşluk haricindekileri..
Edit1.Text := Edit1.Text + Memo1.Text;



Fakat Butona her Tıkladığımda Editte Mevcut olan değerin Yanına yazıyor.Ben ise Editteki Bilginin Üzerine yazmasını istiyorum.Bana Yardımcı olursanız Çok sevinirim Teşekkürler.

[xozcanx]

Merhaba;
Öncelikle kodları Kod Bloğu içirisine alın daha anlaşılır olur.

Bu kod Sizin kodunuz!

Kod: Tümünü seç

var
i: integer;
begin
for i := 1 to length(Memo1.Text) do
if not (Memo1.Text[i] in [#10, #13, #32]) then // satır sonu, satır ilerlet ve boşluk haricindekileri..
Edit1.Text := Edit1.Text + Memo1.Text[i];

Buda Yeni Kodunuz.

Kod: Tümünü seç

var
i: integer;
metin:string;
begin
  metin:='';
  for i := 1 to length(Memo1.Text) do
  if not (Memo1.Text[i] in [#10, #13, #32]) then // satır sonu, satır ilerlet ve boşluk haricindekileri..
  metin:=metin+Memo1.Text[i];
  Edit1.Text  :=metin;
end;