کار با memo

[spase]

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

[veyskarami]

پاسخ سوال اول

کد:

procedure TForm1.Memo1Change(Sender: TObject);
const
MaxLine = 10;
var
Count:integer;
begin
Count:=memo1.Lines.Count;
if memo1.Lines.Count = MaxLine+1 then memo1.Lines.Delete(Count-1);
end;

پاسخ سوال دوم

کد:

procedure TForm1.Button1Click(Sender: TObject);
var
EndLine:integer;
begin
EndLine:=Memo1.Lines.Count-1;
edit1.Text:=memo1.Lines[EndLine];
end;

پیروز باشید.