Текущий архив: 2004.01.23;
Скачать: CL | DM;
Вниз
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.019 c
