Как узнать номер последней строки 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

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

А где надо?

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

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

	Как узнать номер последней строки Memo 03.09.2010, 16:32. Показов 7041. Ответов 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 Супер-модератор 33478 / 21576 / 8250 Регистрация: 22.10.2011 Сообщений: 37,034 Записей в блоге: 12
	22.07.2013, 13:17
	97mik, можно, наконец, узнать, почему ты поиском не пользуешься? Ограничение длины строки в TRichEdit 1

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

@volvo Супер-модератор 33478 / 21576 / 8250 Регистрация: 22.10.2011 Сообщений: 37,034 Записей в блоге: 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,978
	27.07.2013, 14:12
	Код покажи, где не работает. И кто не находит Memo1.text? 1