Memo Satır Kontrolu..

[s1lv3r]

Butona bastığımda memo içeriği dolacak fakat ben ilk 3 satır ve son 3 satırn memo1.text de gözükmesini istemiyorum. Yani ilk ve son 3 satır silinecek nasıl yapabilirim ?

[ulu coder]

Kod: Tümünü seç

var
  i:integer;
begin
  For i:=1 to 3 do begin
    Memo1.Lines.Delete(memo1.Lines.Count-1);
    Memo1.Lines.Delete(0);
  end;
end;

Kolay gelsin...

[s1lv3r]

Teşekkürler..

Peki memo1 satırlarında aynı olan satırların bir tanesini nasıl sildirebiliriz ? Büyük - küçük harf uyumu önemli yani A ile a aynı olarak algılamasın ?

[tuanna]

memo satırından bir kesit gönderirimisin

[s1lv3r]

xxx
XYx
ztx
xXx
ztz
xtX
ztx
xxt
zxt

burada aynı olan ztx var bunlardan bir tanesi silinecek ve arada boşluk olmayacak nasıl yapabilirim ?

[nitro]

Kardeş ilk önce memodakilerin unique ( eşi olmayan) olarak başka bir memoya aktarman lazım.

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
var
i,j :integer;
bulundu : boolean;
begin
for i:=0 to memo1.Lines.Count-1 do
  begin
  bulundu:=false;
  for j:=0 to memo2.Lines.Count-1 do
       begin
       if memo1.Lines[i]=memo2.Lines[j] then bulundu:=true;
       end;
  if bulundu=false then memo2.Lines.Add(memo1.Lines[i]);
  end;
end;

bu kod aktarma işin halleder, silmek istediğin satırlar için de @ulucoder arkadaşımızın verdiği kodu kullanabilirsin. kolay gelsin[/code]

[s1lv3r]

Teşekkürler.