Форум: "Начинающим";
Текущий архив: 2005.11.27;
Скачать: [xml.tar.bz2];
Вниз
Перенос строки в 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.11.27;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.021 c
