Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 10.04.2019, 14:31   #1
Enotik_1998
Форумчанин
 
Регистрация: 09.03.2018
Сообщений: 54
Репутация: 10
По умолчанию Работа со строками в delphi7

Здравствуйте. Нужна помощь с задачей: Дан текст. Удалить все слова, которые начинаются на одну и ту же букву.
Как сделать ввод буквы s типа char, с которой нужно удалить, в компонент в delphi7, допустим в edit?
И вывод строки st в listbox же так осуществляется: ListBox1.Items.Add(st)?
Вот исходный код:
Код:
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
st:=' '+st;
repeat
i:=pos(' '+s,st);
inc(i);
if i<>1 then
repeat
delete(st,i,1);
until (st[i]=' ')or(i=length(st)+1);
until  i=1;
ListBox1.Items.Add(st);
end;
Enotik_1998 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа со строками в delphi7 Enotik_1998 Компоненты Delphi 2 08.04.2019 12:39
Работа с массивами в delphi7 Enotik_1998 Компоненты Delphi 4 19.03.2019 12:56
Беда со строками в delphi7 pimple2006 Общие вопросы Delphi 16 02.12.2012 21:58
Работа с матрицами (норма матрицы, работа со строками) Neitrosha Помощь студентам 1 26.11.2010 21:19


20:15.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.