органичить строк в memo

[alman12]

Спасибо всем

так тоже можна сделать нашел в yandex

const
   MaxLineCount = 1;
 begin
   if Memo1.Lines.Count > MaxLineCount then
    Memo1.Perform(EM_UNDO, 0, 0);
  Memo1.Perform(EM_EMPTYUNDOBUFFER, 0, 0);
 end;

[Stilet]

так тоже можна сделать

Просто поверь: Тебе так делать не нужно.

[CrazyManR]

Сообщение от Stilet

Просто поверь: Тебе так делать не нужно.

Может так сойдет)

procedure TForm1.Memo1Change(Sender: TObject);
begin
if memo1.Lines.Count > 3 then memo1.WantReturns:=False else memo1.WantReturns:=True;
label1.Caption:=inttostr(memo1.Lines.Count);
end;