ايران ويج

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

پاسخ سوال اول

کد: 
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;

پیروز باشید.

spase

veyskarami