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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 06.02.2010, 14:50   #1
BoriZZZ
Новичок
Джуниор
 
Регистрация: 06.02.2010
Сообщений: 1
Восклицание Кто поможет с курсовой работой?

В делфи на форме разместить 3 memo, где если написать текст 1 и 2 memo все повторяющиеся слова в первом memo будут удалятся из второго memo и удаленные слова будут заносится в третье memo! Ну, вроде, как-то так
BoriZZZ вне форума Ответить с цитированием
Старый 06.02.2010, 16:13   #2
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Мдя... Если это курсовая работа, то я - реинкарнация Ивана Грозного.
В чем проблема, чтобы это... Ээээ... реализовать?
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Старый 06.02.2010, 16:32   #3
ArtInt
Форумчанин
 
Аватар для ArtInt
 
Регистрация: 06.03.2009
Сообщений: 583
По умолчанию

Самое простое:
Предположим, что слова разделяются пробелом, тогда создаем переменные типа TStringList, заносим из Memo1 и Memo2 текст, разделителем (Delimiter) ставим пробел. Потом делаем поиск либо по циклу перебор, либо средставами поиска в TStringList. Если есть совпадение то добавляем слово, например, в стринговую переменную, либо можно сразу в Мемо3. А в переменной типа TStringList (Memo2) удаляем найденное слово (под данным индексом). Потом по окончанию присваиваем текст в Memo2.
P.S. Но, все, конечно, зависит от условий задачи. И если там слово определяется по-другому, то вполне возможно использовать другой алгоритм решения данной задачи.
Alex Cones прав для курсовой работы это слабовато, так что надо будет Вам придумать еще что-нибудь там.
Не стыдно чего-то не знать, стыдно не стремиться к знаниям.
ArtInt вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Кто поможет начинаещему!! OPF_Nik Свободное общение 1 09.11.2009 21:52
Кто поможет с задачей?? Vitruvian Паскаль, Turbo Pascal, PascalABC.NET 5 09.06.2009 14:28
Кто поможет студенту ?? Angelholy Помощь студентам 0 03.05.2009 14:07
кто поможет с {$I versions.inc} ? Above_men Помощь студентам 1 19.04.2009 12:39
Кто поможет??? sashahttp Общие вопросы Delphi 1 24.06.2008 09:15