 |
|
Модераторы: Snowy, MetalFan, bems, Poseidon |
 
|
|
Помогите со строками... Delphi 7 
| Denwer |
|
|||
 Шустрый  Профиль Группа: Участник Сообщений: 91 Регистрация: 19.6.2007 Где: Харьков Репутация: нет Всего: нет |
Есть слова в Memo1.
Нужно преобразовать таким образом чтобы остались в словах только первые вхождения каждой буквы; Результат вывести в Memo2. Например такие слова (azzzzzzzz, azzbbzzzzaaaa, aaaaabbbbbb) должно вывести az, azb, ab. |
|||
|
||||
Загрузка ...
| source777 |
|
|||
 Эксперт Профиль Группа: Завсегдатай Сообщений: 1878 Регистрация: 12.3.2007 Репутация: нет Всего: 56 |
Ну, и в чём проблема, где твой код?
-------------------- Если бы программистам платили за то, чтобы убирать код из программы вместо того, чтобы добавлять его, программы были бы намного лучше © Николас Негропонте |
|||
|
||||
| tommy256 |
|
|||
 Новичок Профиль Группа: Участник Сообщений: 27 Регистрация: 28.11.2007 Репутация: нет Всего: нет |
Если следующий символ равен предыдущему, то ты его не пишешь, иначе ты записываешь в новую строку
 |
|||
|
||||
| Denwer |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 91 Регистрация: 19.6.2007 Где: Харьков Репутация: нет Всего: нет |
Вот код, который был предназначен для того чтобы пройтись по мемо и вывести слова повторяющиеся только по одному разу.
Я там добалил пару строк, не дело не в этом. Он выводит буквы в столбик, вот в чём беда.
Это сообщение отредактировал(а) Denwer - 14.1.2008, 22:20 |
|||
|
||||
| tommy256 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 27 Регистрация: 28.11.2007 Репутация: нет Всего: нет |
в отдельную переменную записывай s2:=' '; s2:=s2+s[i] а потом только аж пишешь Memo2.Lines.Add(s2)
Ты получается записывал по одному символу в строку, и получась как бы таблица  Это сообщение отредактировал(а) tommy256 - 14.1.2008, 22:38 |
|||
|
||||
| Denwer |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 91 Регистрация: 19.6.2007 Где: Харьков Репутация: нет Всего: нет |
Блин, не хочет...
|
|||
|
||||
| tommy256 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 27 Регистрация: 28.11.2007 Репутация: нет Всего: нет |
Ну попробуй так:
|
|||
|
||||
| Denwer |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 91 Регистрация: 19.6.2007 Где: Харьков Репутация: нет Всего: нет |
Буду пробовать... Алгоритм интересный
Эта задача как бы требует вывести из слова все неповторяющиеся буквы, и так можно сказать. |
|||
|
||||
| tommy256 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 27 Регистрация: 28.11.2007 Репутация: нет Всего: нет |
Задачи стандартные
в Универах такое дают  |
|||
|
||||
| Denwer |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 91 Регистрация: 19.6.2007 Где: Харьков Репутация: нет Всего: нет |
Дело в том учусь заочно... Хрен кто что объяснит
Приходиться выживать... |
|||
|
||||
| tommy256 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 27 Регистрация: 28.11.2007 Репутация: нет Всего: нет |
P.s учусь стационарно, фик кто что объяснит
Тут есть люди которые в сто раз знают лучше преподов. Vingrad'y Respect Сорри за  |
|||
|
||||
| MetalFan |
|
|||
 Аццкий Сотона Профиль Группа: Комодератор Сообщений: 3815 Регистрация: 2.10.2006 Где: Moscow Репутация: 22 Всего: 128 |
можно на регулярках попробовать
 -------------------- There are always someone smarter than you... |
|||
|
||||
|
|
| Правила форума "Delphi: Для новичков" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Для новичков | Следующая тема » |
[ Время генерации скрипта: 0.0974 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |