To limit the characters in a line of TMemo

[asdf]

In my project, I will let the user to describe in TMemo with the limit of 150 characers per line
but no limit of lines. How can I do that ?

And what is the technique to pick up each sentence from such Tmemo ?

[TurboRascal]

A quick and simple way to limit typed text:

Code: Pascal  [Select][+][-]

1. procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: char);
2. begin
3.   if (Length(Memo1.Text) >= 150) and (key <> #08) then
4.    key := #0
5. end;      

While cursor and delete keys work when blocked, backspace (#08) does not so I added a check for it too.

This however is far from perfect and some more work is required; the problem is that you can paste text at will. To use this properly, you should either disable pasting or check what is being pasted...

[asdf]

The user may enter data into TMemo in many lines.
But in each line, I would like to limit only 150 characters.

[typo]

See this:

http://www.lazarus.freepascal.org/index.php/topic,10691.0.html