Длина всех символов в многострочном Edit

@aex · Регистрация: 06.03.2014

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

Добрый день!
у меня есть многострочный Edit:

Кликните здесь для просмотра всего текста

Delphi
1
2
3
4
5
6
7
8
9
CreateWindow('edit',
                       '',
                       WS_VISIBLE or WS_CHILD or ES_MULTILINE or WS_BORDER or WS_VSCROLL or WS_HSCROLL,
                       x+385*(i-12),y+20,
                       365,230,
                       hWnd,
                       18,
                       hInstance,
                       nil);

Мне нужно узнать длину всех символов, что есть в Edit.
Пытался сделать через EM_LINELENGTH и EM_GETLINECOUNT.
Но EM_LINELENGTH работает не так, как я думал.

Кликните здесь для просмотра всего текста

Delphi
1
2
3
4
5
procedure AddString(hWnd: THandle; id: integer; str: mas_char);
begin
  SendMessage(GetDlgItem(hWnd,id),EM_SETSEL,-1,-1);
  SendMessage(GetDlgItem(hWnd,id), EM_REPLACESEL, 0, lParam(@str));
end;

Кликните здесь для просмотра всего текста

Delphi
1
2
3
4
5
6
7
8
9
  AddString(hWnd, 18, 'aa'#13#10);
  AddString(hWnd, 18, 'aaa'#13#10);
  AddString(hWnd, 18, 'aaaa'#13#10);
  AddString(hWnd, 18, 'aaaaa'#13#10);
 
  i:=SendMessage(GetDlgItem(hWnd, 18), EM_LINELENGTH , 0, 0);
  MessageBox(0, PChar(IntToStr(i)), '-', 0);
  i:=SendMessage(GetDlgItem(hWnd, 18), EM_LINELENGTH , 1, 0);
  MessageBox(0, PChar(IntToStr(i)), '-', 0);

Собственно, для любой строки получаю 2.
Подскажите, пожалуйста, в чём может быть проблема?
Или это можно сделать как-то проще?

@cotseec · 16.11.2014, 14:45

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

Собственно, для любой строки получаю 2.
Подскажите, пожалуйста, в чём может быть проблема?

если в первую строку ввести не два символа, а больше, то и получать будете всегда это число

EM_LINELENGTH message

Remarks
Use the EM_LINEINDEX message to retrieve a character index for a given line number within a multiline edit control.

получите верный номер строки, а потом скармливайте его EM_LINELENGTH

@aex · 16.11.2014, 16:16 **[ТС]**

cotseec, спасибо, сделал.

Кликните здесь для просмотра всего текста

Delphi
1
2
3
4
5
6
7
  count:=SendMessage(GetDlgItem(hWnd, 3), EM_GETLINECOUNT, 0, 0);   //Количество строк
  bias:=SendMessage(GetDlgItem(hWnd, 3), EM_LINEINDEX, count-1, 0); //Смещение в символах (k-1)-й строки                        
  len:=SendMessage(GetDlgItem(hWnd, 3), EM_LINELENGTH, bias, 0);    //Длина (k-1)-й строки
 
  bias:=bias-(count-1)*2;  //убираем переносы
  res:=bias+len;
  MessageBox(0, PChar(IntToStr(res)), 'Результат', 0);

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .