Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.011 c
1-72793
Fishka
2004-01-08 13:30
2004.01.23
WordApplication в Win98 и в XP


14-72869
Gero
2004-01-05 07:45
2004.01.23
Запись реестра в TTreeView


1-72784
Марат
2004-01-13 11:57
2004.01.23
Button1


14-72902
Игорь Шевченко
2004-01-01 00:36
2004.01.23
Наталия, с днем рождения!


3-72671
Igor_Sams
2003-12-25 16:17
2004.01.23
Сохранение набора данных в файл





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский