Memo Bileşeninde İstenilen Kaydı Silmek

[Y a V u Z]

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
var
  i,x :integer;
begin
for i:=0 to memo1.Lines.count do
begin
if i div 10 >= 1 then
begin
Memo1.Lines.Delete(i);
end;

Arkadaşlar memoda 10. satırdan sonrasını sildirmek istiyorum ama bir türlü yapamadım bu kodun neresinde yanlışlık var ? yardımcı olursanız çok sevinirim. Şimdiden Teşekkürler.

[cecihan]

ben c++builder ile yazdığım için for döngüsünde syntax hatası yapmış olabilirim.
procedure TForm1.Button2Click(Sender: TObject);
var
i,x :integer;
begin
for i:=memo1.Lines.count-1 to 9 do
begin
Memo1.Lines.Delete(i);
end;

[Lord_Ares]

ben c++builder ile yazdığım için for döngüsünde syntax hatası yapmış olabilirim.
procedure TForm1.Button2Click(Sender: TObject);
var
i,x :integer;
begin
for i:=memo1.Lines.count-1 to 9 do// burayı for i:=9 to memo1.lines.count-1 do şeklinde değiştir.
begin
Memo1.Lines.Delete(i);
end;

ufak bir şeyi gözden kaçırmışsınız, 10. satırdan sonrakini silmek istemiş. vermiş olduğunu, ilk satırdan 10 cu satıra kadar siler. ilgili düzeltmeyi yaparsanız sevinirim.

[cecihan]

yok benim niyetim memoda 15 satır varsa 15inciden(memo.lines.count-1) geri giderek 10. satıra kadar en son kaydı silerek yukarı doğru çıkmaktı(ki bu şekilde arada satır sildiğimizde alt satır üste çıkacağı içinde karışıklığı idare etmemizde gerekecekti.). sadece for döngüsünde -1 artmasını delphi iyi bilmediğim için yazamadım. onun dışında bence mantığımda sorun yoktu. bu açıdan bakarmısınız tekrar source'a.

[Battosai]

for i:=memo1.Lines.count-1 downto 9 do üst değerden aşağı döngülerde downto kullanılır

[varyemez]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
 var
x :integer;
begin
x:=memo1.Lines.Count-1;
while x>9 do
begin
Memo1.Lines.Delete(x);
x:=x-1;
end;

end;

memo kayıt uzunluğunu döngü içine alamazsınız. çünkü her silinişte bir azalıyor. ilk değeri x olarak saptayın

[SimaWB]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  while Memo1.lines.Count > 10 do
    Memo1.Lines.Delete(Memo1.lines.Count-1);
end;

[conari]

ilk 10 satırı başka bir memoya alıp göstermek daha mantıklı gibi.

[Y a V u Z]

Arkadaşlar çok sağolun ellerinize sağlık bütün yorumları okudum... İlk simaWB 'nin verdiği kodu denedim ve oldu hepinize ayrı ayrı teşekkürler ama simaWB 'ye bir fazla teşekkür ederim