Tmemo - перенос строк при вводе.

[kirsan007]

В общем, подскажите, как организовать перенос строк при вводе текста в мемо.

Допустим если вписал в мемо 40 символов тебя перекинуло на новую строку и ты продолжаешь писать с новой строки.

[evg_m]

memo.wordwrap:=false or true;

[kirsan007]

Спасибо кэп. Но я вроде попросил перенос после определенного кол-ва символов.
В моем случае этих символов должно быть 45.

[Пепел Феникса]

значит обрабатывайте событие OnKeyPress

[kirsan007]

Я и спрашиваю как это сделать =(
Помогите, КОДОМ.

[evg_m]

решение зависит от того что именно надо.
1. преобразовать УЖЕ введенный текст так чтобы все строки Б=45
2. контроль ввода (б45) для ТЕКУЩЕЙ строку.

n:=memo.selstart;
s:=copy(memo.text,n-45,45);
// здесь надо помнить что при первом вводе унас НЕТ 45 знаков в мемо.
n:=pos(#13,s);
if n<=0 then begin
 memo.seltext:=#13;
 memo.selstart:=selstart+1;
end;

[kirsan007]

Мне необходимо ВО ВРЕМЯ ВВОДА перекидывать на новую строку если ты ввел более 45 символов.

[kirsan007]

Могу анимацию сделать чтоб наглядно показать..

[kirsan007]

В обработчик Memo1KeyPress вписал

if Length(memo1.Lines[0]) = 45 then begin
 memo1.Lines.Add('');

В итоге после ввода 45 символов перекидывает на новую строку
И затем после каждого введеного символа идет переход на новую строку т.к
Length(memo1.Lines[0]) уже равен 45 вследствии чего выполняется переход.

Как это обойти?

[evg_m]

1. Берем последние 45 знаков (selStart Copy)
2. ищем среди них начало строки(#13) (pos)
3. если есть вставляем в текущую позицию начало строки (seltext)
4. сдвигаем текущую позицию (selstart)
Это алгоритм. КОД был выше.