Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Нужна помощь с ValueListEditor

Автор: weg 24.3.2010, 13:40

Привет программистам помогите плиз мне надо чтоб из Memo1 каждое слово вставлялось в ValueListEditor и количество этого слова встречающего в тексте т.е слово = количество.
вот функция подсчета количества всех слов мож кому поможет

Код


function GetWordsCount(const aMemo:TMemo):Integer;
var
  i:integer;
  s:string;
begin
  Result:=0;
  s:=AMemo.Lines.Text;
  s := s + ' ';
  with aMemo do
    if Length(s)>0 then
      begin
        for i:=1 to Length(s) do
        begin
          if s[i] in ['.',',','!',':',';','(',')'] then
            continue;
          if (s[i]=' ')and (s[i]=' ') then
          begin
            delete(s,i,1);
            inc(result);
          end;
        end;
      end;
end;

Автор: DarkProg 24.3.2010, 20:53

Значит обрисую на пальцах, а реализовывать уже как-нить сами пожалуйста иначе "центр помощи".
Значит есть такая функция pos ещё с Pascal осталась, она находит первое вхождение подстроки в строку(как работает будешь искать уже сам)
Значит берёшь первую строчку и присваеваем её значение некоторой переменной, далее ищем при помощи pos первый пробел, находим используем copy(тоже найдёшь в учебники по Pascal'ю как работает), то что выдернули copy проверяем последний символ, если запятая или точка или ещё какой знак препинания, то его удаляем функцией delete. Потом опять Delete, только удаляем из исходной строки все символы что выдернул copy и минус пробел.
Все функции что я указал описаны в любом нормальном учебнике по Pascal'ю, но вроде есть и в некоторых учебниках по Delphi, если нет учебников, то скачать никаких проблем не представляет - благо инет огромен.

Далее желательно видеть попытку реализации алгоритма smile

Автор: Keeper89 24.3.2010, 22:04

Хотелось бы знать, что за текст в Memo (как отделены слова друг от друга).

Автор: DarkProg 24.3.2010, 23:40

Цитата(Keeper89 @ 24.3.2010, 22:04

)

Хотелось бы знать, что за текст в Memo (как отделены слова друг от друга).

НУ судя по 14 строчке там запятые есть точки и ещё кое что а также прОбЕлы smile

Добавлено через 2 минуты и 53 секунды
А ещё мне очень нравится 16 строчка smile

P.S. модераторы не ругайте меня, а то день был длинным и теперь начинаю издеватьсяя над всеми

Автор: Keeper89 25.3.2010, 00:17

Цитата(DarkProg @ 24.3.2010, 23:40

)

НУ судя по 14 строчке там запятые есть точки и ещё кое что а также прОбЕлы

Что там судить, пусть ТС и скажет smile

Автор: weg 26.3.2010, 09:31

вот пытался написать ну чет не получается

Код


s:=Memo1.Lines.Text;
  s := s + ' ';
  n:=1;i:=2;k:=0;
  ValueListEditor3.Strings.Clear;
  while i<= length(s)  do
  begin
    if s[i]=' ' then
    begin
      sl:=copy(s,n,i-1);
      n:=i+1;
       if not ValueListEditor2.FindRow(sl,k) then
         ValueListEditor3.Strings.Add(sl+'=1')
      else
        begin
          k:=StrToInt(ValueListEditor3.Values[sl]);
          inc(k);
          ValueListEditor3.Values[sl]:=IntToStr(k);
        end;
    end;
    inc(i);
  end;