İnce bir memo ayarı :)

[s1lv3r]

memo1 satırları şu şekilde ;

x44a
af556a
asf56
sdfg4
sfg14c
sd8g7
sdgs21s
sdgfss8
54dfg8x
56sdg8dx

öyle birşey yapmak istiyorumki butona bastığında bu satırlar edit1.text ye yan yana yazılacak ve edtin son hali şöyle olacak ;

x44aaf556aasf56sdfg4sfg14csd8g7sdgs21ssdgfss854dfg8x56sdg8dx

ve her butona basışımda memo daki satırlara göre edit1 yazılar yan yana gelecek nasıl yapabilirim

[serkan]

edit1.text:=memo1.lines.text
yazınca dediğin gibi olmuyormu zaten?

[s1lv3r]

edit1.text:=memo1.lines.text
yazınca dediğin gibi olmuyormu zaten?

onu denemiştim ama arada boşluk karakterleri gözüküyor bunları editten kaldırabilirmiyiz ?

[rsimsek]

Kod: Tümünü seç

var
  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];
end;

şeklindeki bir kod işini görür

[s1lv3r]

Kod: Tümünü seç

var
  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];
end;

şeklindeki bir kod işini görür

Boşlukları temizleyip ekledi fakat sanırım

Edit1.Text := Edit1.Text + Memo1.Text;

yukarıdaki koddan dolayı memoda her aşağı satır inişinde editi tekrar ekliyor ve o zaman çok karmaşık birşey çıkıyor

[s1lv3r]

yazdığınz kodun altına bir döngü daha ekledim ve istediğimi yaptım. tşkler

[rsimsek]

Başta Edit1.Text in boş olduğunu varsaydım, ya da Edit1.Text := ''; ile garantilenebilirdi.
İşlem tamamsa ne âlâ

[Glen]

For i := 0 to Memo1.Lines.Count -1 do
Edit1.text := Edit1.text + Trim(Memo1.Lines.Count);

da bir alternatif..

[aslangeri]

s.a.
@Glen o kod çalışıyormu?

[poshet303]

@Glen o kod çalışıyormu?

evet bunu bende merak ettim özellikle şu kısım

Kod: Tümünü seç

 Trim(Memo1.Lines.Count)

[rsimsek]

Sanırım eli sürçmüş Doğrusu;

Kod: Tümünü seç

For i := 0 to Memo1.Lines.Count -1 do
  Edit1.text := Edit1.text + Trim(Memo1.Lines[i]);

şeklinde olacaktı..