|
|
|
Регистрация Восстановить пароль |
|||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
13.12.2009, 15:37
|
#1 |
|
Пользователь
Регистрация: 09.05.2009
Сообщений: 83
|
Memo + text
Парни помогите, как сделать. Мне нужно чтобы когда в компоненте memo текстовой информации набивалось больше чем на 300 кб присходила процедура. Как распознать сколько кб тестовой информации находится в компоненте memo?
|
|
|
|
13.12.2009, 15:42
|
#2 |
|
Форумчанин
Регистрация: 22.02.2009
Сообщений: 875
|
1 символ = 1 байт
1 кб = 1024 байт 300 кб = 307200 байт = 307200 символов Проверяйте в onChange все строки в цикле, проверяйте длину каждой строки функцией Length, суммируйте длины каждой строки, а потом сверяйте с числом 307200, если больше или равно, то выполняйте нужную вам процедуру.
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.
|
|
|
|
|
13.12.2009, 16:16
|
#3 |
|
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
а не проще ли Length(Memo1.Text) проверять? (если служебные символы (переводы строк) мешают точности, тогда можно их отминусовать: длина в символах = Length(Memo1.Text)-(Memo1.Lines.Count*2)
|
|
|
|
|
| Опции темы | Поиск в этой теме |
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| text.pascal | xartion | Помощь студентам | 2 | 28.05.2009 16:25 |
| Перевод из Memo по английскому в Memo по русскому | Sanek777 | Общие вопросы Delphi | 5 | 26.09.2008 00:17 |
| y=Edit1->Text ??? | m.a.x.i.m | Помощь студентам | 8 | 31.03.2008 11:29 |
| Text -> Hex | AnK0r | Общие вопросы Delphi | 3 | 07.12.2007 20:36 |
| В Memo сделать так, чтобы текст был разного цвета, разноцветный memo | Artem | Компоненты Delphi | 3 | 07.09.2007 13:40 |
