Форум: "Основная";
Текущий архив: 2004.01.23;
Скачать: [xml.tar.bz2];

Вниз

Memo1   Найти похожие ветки 

← →
Cerber   (2004-01-12 12:23) [0]

Извените за ламерский вопрос но как узнать кло-во символов в TMemo.

---

← →
Kerk   (2004-01-12 12:24) [1]

Length(Memo1.Text)

---

← →
хамло   (2004-01-12 12:28) [2]

а #13#10 тоже считать за символы?

---

← →
Kerk   (2004-01-12 12:31) [3]

> хамло (12.01.04 12:28) [2]

а что это, если не символы? :)

---

← →
хамло   (2004-01-12 12:32) [4]

а в тетрадке в школе перевод строки тоже прорисовывали? )))

я к тому, что нужно ли это инициатору ветки? )

---

← →
Kerk   (2004-01-12 12:35) [5]

> хамло (12.01.04 12:32) [4]

ну тогда надо руками считать...
нечто подобное получится:
var
Count: DWORD;
const
StopList = [ #13,#10];
begin
Count := 0;
for i := 1 to Length(Memo1.Text) do
if not Memo1.Text[i] in StopList then Inc(Count);
end;

А символ табуляции нужно считать? ))

---

← →
Kerk   (2004-01-12 12:37) [6]

вместо
if not Memo1.Text[i] in StopList then Inc(Count);

надо
if not (Memo1.Text[i] in StopList) then Inc(Count);

---

← →
Cerber   (2004-01-12 17:42) [7]

Огромнеё всем спасибо.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.01.23;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c