Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.12.2007, 13:31   #1
KAMENYKA
Пользователь
 
Аватар для KAMENYKA
 
Регистрация: 06.12.2007
Сообщений: 87
Вопрос Вопрос насчёт класса TStringList!!!

Люди помогите пожалуста! Надо переопределить метод класса чтобы написать код для подсчёта вхождения каждой строки (тобиш сколько раз повторяеться каждое слово) не могу понять какой метод надо переопределить для оптимального решения?? Если предоставите код буду очень презнателен)) Заранее спасибо!!!
KAMENYKA вне форума Ответить с цитированием
Старый 06.12.2007, 14:11   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Думаю стоит переопределить метод Add при его вызове проверять через IndexOf есть ли такая строка и увеличивать некий счетчик
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 06.12.2007, 14:22   #3
KAMENYKA
Пользователь
 
Аватар для KAMENYKA
 
Регистрация: 06.12.2007
Сообщений: 87
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Думаю стоит переопределить метод Add при его вызове проверять через IndexOf есть ли такая строка и увеличивать некий счетчик
Я предпологал это))) но немогу себе представить условие (if) на повторяющиеся строки! Может это будет выглядеть примерно так:
Код:
  for i:=0 to List.Count-1 do
     begin
       stroka:=list.Strings[i];
       if i<List.Count-1 Then
         Begin
           if stroka=List.Strings[i+1] Then Col:=Col+1 else
             Begin
               Memo1.Lines.Add(stroka + '=' + IntToStr(col));
               Col:=1;
             end;
         end
       else Memo1.Lines.Add(stroka + '=' + IntToStr(col));
     end;
Если неправ поправь меня)))!!

Последний раз редактировалось Alex21; 06.12.2007 в 14:32. Причина: код заключаем в теги - кнопка #code
KAMENYKA вне форума Ответить с цитированием
Старый 06.12.2007, 14:26   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
немогу себе представить условие (if) на повторяющиеся строки!
А Иф тут при чем? когда ты добавляеш строку методом add то тебе просто нужно вызвать метод IndexOf, который даст число положительное если такая строка существует.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 06.12.2007, 14:49   #5
KAMENYKA
Пользователь
 
Аватар для KAMENYKA
 
Регистрация: 06.12.2007
Сообщений: 87
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
А Иф тут при чем? когда ты добавляеш строку методом add то тебе просто нужно вызвать метод IndexOf, который даст число положительное если такая строка существует.
ИФ всётаки нужене))) всё я разобрался спасибо тебе огромное!!!
KAMENYKA вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
TStringList nimf Общие вопросы Delphi 5 15.11.2007 14:44
насчёт обучения steck Свободное общение 5 26.05.2007 07:53
Насчёт скина JoanM Win Api 5 16.04.2007 16:45
Вопрос насчёт домашних страниц браузера и Delphi evgenyan Работа с сетью в Delphi 5 01.03.2007 17:06
Вопрос насчёт процедуры. nemo.x Общие вопросы Delphi 13 24.02.2007 14:15