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

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

Форум программистов > Центр помощи > [Delphi] Работа с текстом

Автор: Виктория01 26.11.2009, 00:47

Подскажите, пожалуйста, задачку....

Дано фрагмент текста. Сформировать текст, в котором все слова должны быть изменены на кол-во букв в этом слове. Все знаки препинания оставить на местах.

ПОЖАЛУЙСТА помогите............

Автор: Данкинг 26.11.2009, 00:58

Что именно не получается? Алгоритм подсказать? А если "сделайте за меня, я ничего не понимаю" - это в "центр помощи".

Автор: Snowy 26.11.2009, 11:38

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: Frees 26.11.2009, 11:54

кидаем на форму Tmemo и кнопку
щелкаеш по кнопки и пишеш

Код


var
  source, dest: string;
  i, c: integer;
begin
  source := Memo1.lines.text;
  for i := 1 to Length(source) do
  begin
     if source[i] in [',','.',#13,#10,' ','-'] then
     begin
       if c <> 0 then 
       begin
         dest := dest + IntToStr(c);
         c := 0;
       end;   
       dest := dest + source[i] 
     end
     else
     begin
        c := c + 1;
     end;
  end;
  Memo1.lines.text := dest;
end;