Определение количество символов в строке, и самих строк.

[Патрон]

Помогите пожалуйста.
Я пишу блокнот, и дело дошло до символов. Смысл такой: Определение количество символов в строке, и самих строк.
Написал переменную:

resourcestring
  sModified = 'Безымянный';
  sColRowInfo = 'Строка: %3d   Кол-во: %3d';

И обработчик на Timer:

procedure TForm1.Timer2Timer(Sender: TObject);
var
  CharPos: TPoint;
begin
  SetModified(Memo1.Modified);
  CharPos.Y := SendMessage(Memo1.Handle, EM_EXLINEFROMCHAR, 0,
    Memo1.SelStart);
  CharPos.X := (Memo1.SelStart -
    SendMessage(Memo1.Handle, EM_LINEINDEX, CharPos.Y, 0));
  Inc(CharPos.Y);
  Inc(CharPos.X);
  StatusBar1.Panels[3].Text := Format(sColRowInfo, [CharPos.Y, CharPos.X]);
end;

Проблема такая: Memo1 не считает строки, он их записывает в количество символов. А компиляция проходит успешно. В чем дело? Заранее благодарю.

[Stilet]

Проблема такая: Memo1 не считает строки,

Неправда: Memo1.Lines.Count даст тебе количество строк начиная с нуля.
Ну а кол-во символов в i-той строке это : =Length(Memo.Lines[i]);

[Патрон]

Тогда почему количество строк все время стоит на 1 ???
Например написал я слово "Привет": 7 символов, нажимаю Enter и кол-во строк изменяется на 9 ?

[Stilet]

Понятия не имею.
Когда я пишу в мемо ченить типа:
Да
привет
как дела?

код

procedure TForm1.Memo1Change(Sender: TObject);
begin
caption:=inttostr(Memo1.Lines.Count);
end;

Выдает мне цифру 3

[B_N]

Во-первых, EM_EXLINEFROMCHAR относится к richedit'у.
Во-вторых есть EM_GETLINECOUNT.

[Патрон]

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

Во-первых, EM_EXLINEFROMCHAR относится к richedit'у.
Во-вторых есть EM_GETLINECOUNT.

Я знаю, я в строке USES прописал RICHEDIT

А может чтонибудь блокировать эту функцию? Может просто из-за этого? я уже 5 дней сижу и думаю, уже голова раскалывается

[B_N]

Сообщение от Патрон

Я знаю, я в строке USES прописал RICHEDIT

А TMemo с каких пор richedit'ом стал?

[Патрон]

Stilet, спасибо за функцию, но мне нужно чтобы считались не только строки но и кол-во символов в ней

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

А TMemo с каких пор richedit'ом стал?

Он не становился, просто EM_EXLINEFROMCHAR как ты уже сказал относится к RICHEDIT'у.
А другой способ пересчета я не знаю)

[B_N]

Сообщение от Патрон

Он не становился, просто EM_EXLINEFROMCHAR как ты уже сказал относится к RICHEDIT'у.
А другой способ пересчета я не знаю)

Ещё раз объясняю: EM_EXLINEFROMCHAR поддерживает richedit, обычный Edit Control возвращает в ответ на него 0. Позиция каретки берется так: строка через EM_LINEFROMCHAR, символ в строке через конечную позицию в EM_GETSEL и вычитание её из EM_LINEINDEX.

[Stilet]

но мне нужно чтобы считались не только строки но и кол-во символов в ней

А ты повнимательнее почитай что я написал, и увидиш прямой ответ на этот вопрос