RichEdit

ضع على الفورم edit و richedit و buttun

---

السطر الاول = 0

procedure TForm1.Button1Click(Sender: TObject);

var i,j,k : integer;

begin

j:=0;

k:=StrToInt(edit1.Text);

for i :=0 to k-1 do begin

j:= j + Length(RichEdit1.Lines)

end;

j:= j + (k*2);

RichEdit1.SelStart:=j;

RichEdit1.SelLength:= Length(RichEdit1.Lines[k]);

RichEdit1.SetFocus;

end;

شكراً جزيلاً (f)(f)(f)

يا اسماعيل ما بتعرف شلون تعلم سطر في الRichedit كنت تسألني في الكلية