Memo hep son satırı okumak

[greenegitim]

Memoda kaç satır olduğu bulunulur items.count
örneğin 15 bulduk
bulunanyazi:=memo1.items.string[15];
bulunan yazının 0 ile 18 inci karakterler arası kopyalanır.

[unicorn64]

daha ne kadar açıklayıcı olunabilir ki, daha doğrusu anlamadığınız yer neresi?
söyleneni denediniz mi?

memo.items.count un satır sayısını verdiği söylenmiş,
memoda herhangi bir satırdaki verinin nasıl alınacağı söylenmiş,

size helva yapmak kalmış..

[esistem]

greenegitim in yazdıklarını bi daha oku istersen,

Memoda kaç satır olduğu bulunulur items.count
örneğin 15 bulduk
bulunanyazi:=memo1.items.string[15];
bulunan yazının 0 ile 18 inci karakterler arası kopyalanır.

yani,

Kod: Tümünü seç

var
x:integer
yazi:sting;
begin
x:=memo1.items.count;
yazi:=memo1.items.string[x];
yazi:=copy(yazi,0,18);
end;

[greenegitim]

ekran görüntüsü

buton click olayını

Kod: Tümünü seç

procedure TForm1.BitBtn1Click(Sender: TObject);
var
sayi:Integer;
begin
sayi:=Memo1.Lines.Count-1;
Edit1.Text:=IntToStr(sayi);
Edit2.Text:=Memo1.Lines.Strings[sayi];
Edit3.Text:=Copy(Edit2.Text,1,18)
end;