Скачать: CL | DM;

Перенос строки в Memo   Найти похожие ветки 

← →
paule ©   (2005-11-10 08:19) [0]

Необходимо, чтобы  первая строка в Memo была длиной  в 70 символов. Соответственно при вводе 71-ого необходимо чтобы курсор перескочил на другую строку. Делаю это так:

procedure TEl.PoruchKeyPress(Sender: TObject; var Key: Char);
var
k:integer;
begin
if (Length(Poruch.Lines.Strings[0])=70) and (Poruch.CaretPos.Y=0) then
 Key:=#10;
end;

Но проблема в том, что строка перескакивает, но 71-ый символ съедается. Оно и понятно почему.
Пробовал поставить Key:=#10+Key; Дельфя ругается...

Подскажите  как исправить проблему...

---

← →
ЮЮ ©   (2005-11-10 08:49) [1]

Можно попробовать символы первода добавить в конец Strings[0], не трогая сам Key.

З.Ы. А если часть текста ввести чкрез бувер обмена, то может статься, что
Length(Poruch.Lines.Strings[0]) станет сразу больше 70.

З.З.Ы. А что так и нужно - рвать слово посредине?

---

← →
paule ©   (2005-11-10 09:10) [2]

Ну по идее его пеернести надо по правилам... ну пока только задача стоит - обрезать. :)

---

← →
ShiFT   (2005-11-10 09:12) [3]

 if (Length(Memo1.Lines.Strings[0])=70) and (Memo1.CaretPos.Y=0) then
   Memo1.Lines.Strings[0] := Memo1.Lines.Strings[0] + #13#10;

так вроде не съедает

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.341 c