Как узнать номер последней строки Memo

@97mik · Регистрация: 08.04.2009

Студворк — интернет-сервис помощи студентам

Подскажите как узнать в memo1 номер последней строчки ???

@саша40 · 21.07.2013, 18:35

Сообщение от 97mik

Подскажите как узнать в memo1 номер последней строчки ???

если для программы:

Delphi
1
ShowMessage('Номер:' + IntToStr(Memo1.Lines.Count));

ну а если для пользователя:

Delphi
1
ShowMessage('Номер:' + IntToStr(Memo1.Lines.Count-1));

@97mik · 22.07.2013, 11:03 **[ТС]**

Можно ли сделать чтобы одна строка в memo не превышала 20 символов? То есть при вводе, если строка более 20 символов, то в неё писать ничего нельзя, только в другие.

@1988Олег1988 · 22.07.2013, 12:41

Можно, например в событии перед вводом текста, считать число символов в строке, если число превышает то совершаем действие... (например вставляем символ #13 и все перескочет на след строку)

@volvo · 22.07.2013, 13:17

97mik, можно, наконец, узнать, почему ты поиском не пользуешься?
Ограничение длины строки в TRichEdit

@97mik · 22.07.2013, 13:46 **[ТС]**

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

97mik, можно, наконец, узнать, почему ты поиском не пользуешься?

Пользуюсь, но ничего не нахожу.

Добавлено через 9 минут
UI, А как ещё узнать номер строки на которой находится каретка?

Добавлено через 3 минуты
И чтобы оно это делало только если memo передан фокус.

@volvo · 22.07.2013, 13:52

Сообщение от 97mik

А как ещё узнать номер строки на которой находится каретка?

По ссылке написано, LineNum - это именно номер строки с кареткой.

Сообщение от 97mik

чтобы оно это делало только если memo передан фокус.

Если Memo не в фокусе, оно не будет получать OnKeyPress, так что и тут всё нормально.

@97mik · 22.07.2013, 13:54 **[ТС]**

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

Если Memo не в фокусе, оно не будет получать OnKeyPress, так что и тут всё нормально.

А если я например передам фокус и ничего не буду вводить, то оно и не определит.

@volvo · 22.07.2013, 14:03

А что событие OnKeyDown должно определить, если ты ничего не будешь вводить? Нормально объяснить, чего надо, можешь? Не знаешь про событие OnEnter, что-ли?

@SysUnit · 22.07.2013, 18:58

97mik,
В приложении проект, который решает Вашу задачу.

С уважением, SysUnit.

@volvo · 22.07.2013, 19:12

SysUnit, этот код TC-у приводили почти 3 года назад, если что... В 14-ом посте.

@SysUnit · 22.07.2013, 19:33

UI,

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

этот код TC-у приводили

Что такое TC? Поясните - я не в теме.
Весь код:

Delphi
1
2
mmoText.SelectAll;
mmoText.CopyToClipboard;

Мне его продиктовал КО, возможно, что кому - то ещё он его тоже продиктовал

С уважением, SysUnit.

@Puporev · 22.07.2013, 19:35

ТС=топик-стартер=автор темы

@SysUnit · 22.07.2013, 20:47

Puporev, спасибо!

@97mik · 27.07.2013, 13:05 **[ТС]**

Ещё несколько вопросов по Memo:
1) Как узнать количество символов в Memo с новыми (даже пустыми строками) включительно?
2) При написании

Delphi
1
memo1.lines.add('text');

оно пишет текст и переводит каретку на новую строку, как сделать чтобы каретка не переводилась?
3) Когда в memo написано много текста и стоит вертикальный скролл, то он всегда внизу, как сделать чтобы он был в начале?

@FIL · 27.07.2013, 13:40

1

Delphi
1
n := Length(Memo1.Text);

2

Delphi
1
Memo1.Text := Memo1.Text + 'Text';

3

Delphi
1
Memo1.SelStart := 1;

@97mik · 27.07.2013, 14:00 **[ТС]**

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

3

Delphi
1
Memo1.SelStart := 1;

Что-то не работает.

И Memo1.text не находит.

@FIL · 27.07.2013, 14:12

Код покажи, где не работает.
И кто не находит Memo1.text?

@97mik · 27.07.2013, 14:33 **[ТС]**

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

Код покажи, где не работает.

Ну прописываю, строки добавляются, а ползунок всё равно снизу.

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

И кто не находит Memo1.text?

Не правильно написал, всё работает, только когда в memo перехожу на новую строку, то оно считает это за 2 символа.

@FIL · 27.07.2013, 14:38

Сообщение от 97mik

Ну прописываю, строки добавляются, а ползунок всё равно снизу.

Значит не там прописываешь.

@97mik · 27.07.2013, 14:44 **[ТС]**

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

Значит не там прописываешь.

А где надо?

Новые блоги и статьи Все статьи Все блоги /
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879

	Как узнать номер последней строки Memo 03.09.2010, 16:32. Показов 7011. Ответов 50 Метки нет (Все метки) Подскажите как узнать в memo1 номер последней строчки ??? 0

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
	22.07.2013, 11:03 [ТС]
	Можно ли сделать чтобы одна строка в memo не превышала 20 символов? То есть при вводе, если строка более 20 символов, то в неё писать ничего нельзя, только в другие. 0

@1988Олег1988 3 / 0 / 1 Регистрация: 22.07.2013 Сообщений: 32
	22.07.2013, 12:41
	Можно, например в событии перед вводом текста, считать число символов в строке, если число превышает то совершаем действие... (например вставляем символ #13 и все перескочет на след строку) 0

@volvo Супер-модератор 33467 / 21566 / 8249 Регистрация: 22.10.2011 Сообщений: 37,021 Записей в блоге: 12
	22.07.2013, 13:17
	97mik, можно, наконец, узнать, почему ты поиском не пользуешься? Ограничение длины строки в TRichEdit 1

@volvo Супер-модератор 33467 / 21566 / 8249 Регистрация: 22.10.2011 Сообщений: 37,021 Записей в блоге: 12
	22.07.2013, 14:03
	А что событие OnKeyDown должно определить, если ты ничего не будешь вводить? Нормально объяснить, чего надо, можешь? Не знаешь про событие OnEnter, что-ли? 1

@volvo Супер-модератор 33467 / 21566 / 8249 Регистрация: 22.10.2011 Сообщений: 37,021 Записей в блоге: 12
	22.07.2013, 19:12
	SysUnit, этот код TC-у приводили почти 3 года назад, если что... В 14-ом посте. 1

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	22.07.2013, 19:35
	ТС=топик-стартер=автор темы 0

@SysUnit 36 / 33 / 1 Регистрация: 11.01.2013 Сообщений: 388
	22.07.2013, 20:47
	Puporev, спасибо! 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	27.07.2013, 14:12
	Код покажи, где не работает. И кто не находит Memo1.text? 1