Консультация № 72985
28.01.2007, 12:11
0.00 руб.
0 5 5
Здраствуйте Уважаемые эксперты,
Помогите мне решить простой вопрос, как можно сосчитать сколько символов введено в поле Мемо, желательно незаписуя содержимое Мемо в какой нибуть фаил?
Заранее Спасибо.
С уважением, Станислав.

Обсуждение

Неизвестный
28.01.2007, 12:18
общий
это ответ
Здравствуйте, Станислав!
{Все просто:}
var i:integer;
begin
i:=length(memo1.text);
end;
Неизвестный
28.01.2007, 12:19
общий
это ответ
Здравствуйте, Станислав!
Делается это очень просто. Если в кратце то что то вроде этого:
len := Length(Form1.Memo1.Text);
Неизвестный
28.01.2007, 12:29
общий
это ответ
Здравствуйте, Станислав!
function MemoCout(mmo : TMemo):Integer;
begin
if mmo.Lines.Count > 1 then
Result := Lenth(mmo.Text) - mmo.Lines.Count // Учитываем, что символы перевода строки считаются по 2 - "CR" "LF"
else
Result := Lenth(mmo.Text);
end;
Неизвестный
28.01.2007, 20:37
общий
это ответ
Здравствуйте, Станислав!
у мемо есть строки ты можешь в цикле виделять каждую строку и методом length(s) где s - некая строка определить ее размер, то есть колтчество символов в ней, а потом суммируй эти данные
Неизвестный
29.01.2007, 16:30
общий
это ответ
Length(Memo1.Lines.Text) вернет количество символов в мемо.
Форма ответа