Memo1.Lines.Delete(); ve Memo1.Item.Delete()

[İsmail_ycl]

Selam millet
Sorun1
Procedure T form1.Buttom1Click(Sender:Topject);
Begin

Memo1.Lines.Add( Edit1.tex+''+ Edit2.text+''+ Edit3.text ) ;

end;

Procedure TForm1.Button2Click(Sender:Topject);
Begin

Memo1.Lines.Delete(INDEX_OBJECT veya INDEX_CONTAYNER);

end;


Button2deki Durum Memo1de listelenen bilgileri yukardan aşşagıya doğru siliyor ama ben Maus ile seçilmesini ve seçileni silmesini istiyorum

INDEX_OBJECT VE INDEX CONTAYNER HAKKINDA BİLGİ VEREBİLİRMİSİNİZ

Sorun2
Artı Birde Memo1.Item.Add (Edit kutuları); ve
Memo1.Item.Delete(ItemIndex);
şeklinde önceleri kullana biliyordum ama şimdi nedense kullanamıyorum

soru

Memo1 nasıl sütunlara böle bilirim

Örneğin Edit 1 kutusundaki bilgiler memo1in 1.stununa Edit2 Memonun 2.sütununa eklemek istiyorum

Abiler ablalar kardeşler,
Bana bu konular hakkında yardım edenler için şimdiden tşk ler

[mrmarman]

Selam.

- Her iki sorun da pek açık değil. Verdiğin örneklerden yola çıkarak cevaplamaya çalışayım.

- Soru1 için; Mouse ile hangi satır seçili ise o satır silinsin istiyorsan önce hangi satır olduğunu bulman lazım. Ondan sonra o satırı silebilirsin.

Kod: Tümünü seç

Var
  SatirNo : Integer;
begin
  SatirNo := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.Selstart, 0);
  Memo1.Lines.Delete( SatirNo );
end;

- Soru2 için; TMemo ile işlem yaparken Item değil Line değerlendirilir. TListBox, TComboBox vb. gibi yapılar ile karıştırıyorsunuz.

- Soru3 için; Kullanıcı serbest giriş yapması zorunlu değilse, yani örneklerde verdiğiniz gibi siz her Item'i eklenmesini sağlıyorsanız ve kullanıcı sadece seçip işlem yapmak durumundaysa; istediğiniz tarzda sütunlara bölünmüş liste için TMemo yerine TListView'i vsReport modunda kullanın.

Başarılar...