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

[kirsan007]

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

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

Пасиб, твой код был самым стоящим. Но всё равно если после перехода на новую строку перейти к предыдущей и отредактировать её то можно более 45 символов ввести.

[MyLastHit]

if Length(memo1.Lines[memo1.Lines.count-1]) = 45 then
 memo1.Lines.Add('');

??
Но только при возврате косяки могут быть. Но их зарихтовать можно, если сесть и подумать.
Слушай, а какая тебе разница, код тебе кидают или алгоритм? Проще пареной репы алгоритм в код переделать.

[kirsan007]

Ну я дошел до

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

На новую строку переносит. Но опять же проблема с редактирование предыдущих строк.

[evg_m]

Для НЕПОСЛЕДНЕЙ строки, а точнее НЕПОСЛЕДНЕЙ позиции в строке надо смотреть (искать начало строки) не только назад(seltext -45)

1. Берем последние 45 знаков (selStart Copy)

но и вперед.и учbтывать ОБЩУЮ длину строки. (от #13 до#13). Доработка алгоритма и кода остается для самостоятельной работы.

[kirsan007]

Мало что понял.. ну да ладно.
Сузил мемо + увеличил шрифт.. ну и пойдёт.
Всем спасибо.

[custanator]

KeyPress
if length(Memo1.Text) mod 45+2 = 0 then (2 на спец символы)
begin
Memo1.Lines.Add('');
end;

[evg_m]

Memo1.Lines.Add('');

Добавит пустые строки в конце
НО никак не повлияет на ранее введенные неверные(>45) строки.
или при вводе не в конец текста.

if length(Memo1.Text) mod 45+2 = 0

А если у человека есть 45 (45+2) строк по одному символу.
то тоже надо добавить?