|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
16.04.2019, 12:20 | #11 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
во-первых, не используйте глобальных переменных, если не знаете зачем они нужны и не можете обосновать, зачем именно здесь глобальная переменная и почему нельзя её заменить на локальную.
во-вторых, ну и что Вы пытаетесь в строке, в которой есть один пробел? Какие слова там появятся? И откуда? Самозарождение слов и двух пробелов? в-третьих, для чего Вы прочитали текстовый файл в Мемо? Просто так? Или Вы собирались обрабатывать прочитанный текст? в-четвёртых, Вы сразу не ту задачу решаете. Вам нужно удалить слова, которые начинаются на одну и ту же букву, а Вы пытаетесь найти (??? удалить) слова, которые начинаются на первую букву первого слова. Разницу видите? Или пояснить на примере? |
16.04.2019, 12:20 | #12 |
Пользователь
Регистрация: 09.03.2018
Сообщений: 77
|
Если я убираю эту строку: st:=' '+st; выдаёт ошибку: Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 0045EF57' in module 'Project1.exe'. Read of address 00000000'. Process stopped. Use Step or Run to continue.
|
16.04.2019, 12:23 | #13 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
так Вы ещё пару пробелов добавьте. Может оно само и заработает.
Цитата:
перечитайте выше мой пост #11 подумайте, что не так и что надо исправить. |
|
16.04.2019, 12:24 | #14 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,760
|
А вы подумайте, что произойдет тут:
Код:
|
16.04.2019, 12:50 | #15 |
Пользователь
Регистрация: 09.03.2018
Сообщений: 77
|
Вот я сделал, оно удаляет все слова, которые начинаются на 1 букву первого слова:
Код:
|
16.04.2019, 20:23 | #16 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,620
|
На первом проходе определить повторяющиеся первые буквы слова, для чего, к примеру, завести массив структур {первый_символ char; число_повторений int} Потом уж по этому массиву удалять провинившихся слов.
Ввод буквы делать не надо, она сама определится по результатам первого прохода. Последний раз редактировалось digitalis; 17.04.2019 в 09:34. |
17.04.2019, 08:31 | #17 |
Пользователь
Регистрация: 09.03.2018
Сообщений: 77
|
Ну и как это сделать? Просто я не шарю в delphi7. Пожалуйста, скиньте готовый код. Просто это последняя задача в контрольной. Помогите её сделать и я покину это форум на полгода.
Последний раз редактировалось Enotik_1998; 17.04.2019 в 09:55. |
17.04.2019, 09:14 | #18 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,620
|
Не, мне лень. Ишшо вникать, как там разбивка текста на слова... Ну его в качель.
Неверов сделает, он это любит. |
17.04.2019, 10:08 | #19 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Ну коль делфи, то и его возможности, а не просто паскалевские циклы)
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
17.04.2019, 10:57 | #20 |
Регистрация: 17.04.2019
Сообщений: 8
|
спасибо
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа со строками в delphi7: преобразовать переменную типа char в строку и наоборот | Enotik_1998 | Компоненты Delphi | 2 | 12.04.2019 10:55 |
Работа со строками в delphi7 | Enotik_1998 | Компоненты Delphi | 16 | 11.04.2019 14:14 |
Работа со строками в delphi7 | Enotik_1998 | Компоненты Delphi | 0 | 10.04.2019 13:31 |
Работа со строками в delphi7 | Enotik_1998 | Компоненты Delphi | 2 | 08.04.2019 11:39 |
Беда со строками в delphi7 | pimple2006 | Общие вопросы Delphi | 16 | 02.12.2012 21:58 |