Como impedir que o Memo passe da linha 10, por exemplo...

Question

ol�,como fa�o para que o usu�rio digite somente at� a linha 10 do memo, ou seja, o memo s� ter� 10 linhas.valeu......

Beppe · Answer

uma solu�o simples seria, no OnChange:for I := Memo1.Lines.Count - 1 downto 10 do  Memo1.Lines.Delete(I);...

Giovani · Answer

n�o teria como a partir da linha 10 ficar read-only as demais linhas, para que o cara n�o digitasse mais nada. pois da maneira que vc colocou, as linhas seriam somente deletadas.valeu......

Dorivansousa · Answer

//no evento onchange do memo coloque:Var  I:Integer;  S:String;beginFor I:=1 to DbMemo1.Lines.Count doBeginif Length(DbMemo1.Lines)>=80 thenBegin  S:=DbMemo1.Lines;  DbMemo1.Lines.Append(Copy(S,80,Length(s)));End;End;// codigo acima o edit fica com oitenta caracteres por linha//e no on exit do memoif dbmemo1.Lines.Count>7 then  begin    ShowMessage(�O Campo Observa��o s� pode ter no M�ximo Sete linhas!�);    Dbmemo1.SetFocus;end;...

Giovani · Answer

galer�o, valeu pelas dicas, deu certo..........

F�rum Como impedir que o Memo passe da linha 10, por exemplo... #186853