radiobutton ve memo ile ilgili

[mcrea]

Merhaba...

2 adet radiobuttonum var
.Rus
.Alman

seklinde memo1 de ise Rusca veya Almanca yazan satırlar var.
memo2 de ise memo1 deki ile ilgili bilgiler var. Yani memo1 deki 5. satır ile memo2 deki 5.satır birbirleriyle alakalı

Rus yazan radiobuttonu seçtiğimde memo1de Almanca yazan satıların silinmesini istiyorum. Ayrıca bunlar berAber memo2deki aynı nolu satırında silinmesini istiyorum. Bunu nasıl yapabilirim?

Teşekkür Ederim

Alperen...

[hdayi]

Kod: Tümünü seç

    if RadioButton1.Checked then
    begin
        Memo2.Lines.Delete(Memo1.Lines.IndexOf('Rusça'));
        Memo1.Lines.Delete(Memo1.Lines.IndexOf('Rusça'));
    end;
    if RadioButton2.Checked then
    begin
        Memo2.Lines.Delete(Memo1.Lines.IndexOf('Almanca'));
        Memo1.Lines.Delete(Memo1.Lines.IndexOf('Almanca'));
    end;

Kolay Gelsin...

[Trial_Cooder]

3 Tane Memo'n Olsun Ve Memo2'ye Almanca Yazıları Yaz, Memo3'e Rusca Yazıları Yaz. 2 Tane Radio Button Koy (Caption'larını Ayarla) RadioButton1'in Change Olayına;

Kod: Tümünü seç

begin 
if RadioButton1.Checked then
  Memo1.Text := Memo2.Lines
else
Memo1.Text := Memo3.Lines;
end;

Tabiki Bu İki Tanede Böyle 2'den Fazla Seçenekte Yapman Gereken, Radio Button'larının Onclick'lerine;

Kod: Tümünü seç

 Memo1.Text := Memo2.Lines;  //Memo2'de Seçenekle İlgili Eylem, Yani Almanca Seçili İse Memo2'deki Almanca Yazıyı Memo1'e Kopyalar.

[tuanna]

bu tür işleri memolarla yapmak insanı kasar...
olmaz demiyorum...

bence yapacağın işle kullanacağın nesneleri uygun seç...