کار با memo

[space_]

سلام
می خوام بدونم چه جوری میشه توی دلفی واسه memo شرط گذاشت که تعدادخطاش از یه تعداد مشخص بیشتر نشه و اینکه چه جوری میشه آخرین لاین memo رو بدون اینکه بدونیم لاین چند هستش رو خوند

[hadisalahi2]

این کنترل یک رویداد داره به نام KeyPress که شما با هر بار فشردن یک کلید داخل اون این رویداد فراخوانی میشه.
با این یک خط:

Memo1.Lines.Count
میشه تعداد خط ها رو به دست آورد
حالا در یک If ساده اگه تعداد خطوط بیشتر از مقدار مورد نظر بود ، باید به جای Key مقدار #0 قرار بدی:
چیزی شبیه این:



procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if Memo1.Lines.Count>=10 then Key:=#0;
end;

[space_]

مرسی داداش اوکی بود
ولی قسمت دوم سوالم که چه جوری میشه تعداد لاین ها memo رو بدست آورد
و اینکه چه جوری میشه آخرین لاین memo رو بدون اینکه بدونیم لاین چند هستش رو خوند ، خیلی واسم مهمه

[hadisalahi2]

خوب وقتی بدونی چند خط داری
معلومه خط آخر کدومه دیگه
البته شماره خط ها از صفر شروع میشه و تعداد خط ها از 1
پس تعداد خط ها رو یکی کم کنی ، شماره خط آخر بدست میاد