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

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

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

Ответ
 
Опции темы
Старый 25.09.2018, 19:41   #1
kostya_hor
Форумчанин
 
Регистрация: 23.05.2018
Сообщений: 57
Репутация: 10
Вопрос Из заданной строки символов удалить символы

Помогите пожалуйста решить задачу.Она выглядит так:
С заданной строки символов удалить символы, отличные от русских букв и пробелов.
kostya_hor вне форума   Ответить с цитированием
Старый 25.09.2018, 20:24   #2
kostya_hor
Форумчанин
 
Регистрация: 23.05.2018
Сообщений: 57
Репутация: 10
По умолчанию

вот ответ кому надо
procedure TForm5.Button1Click(Sender: TObject);
var
i:Integer;
s:string;
begin
s := Edit1.Text;
for i:=length(s) downto 1 do
if not(s[i] in[ 'А'..'п','р'..'я',' ']) then delete(s,i,1);
Memo1.Text := (s)
end;

end.
kostya_hor вне форума   Ответить с цитированием
Старый 25.09.2018, 20:38   #3
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,613
Репутация: 5352
По умолчанию

Цитата:
Сообщение от kostya_hor Посмотреть сообщение
вот ответ кому надо
в современных версиях Delphi (старше Delphi 2009: Delphi XE xx) этот код работать не будет.
Там строка Unicode, операции с множествами не будут работать корректно.
Serge_Bliznykov вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[C#] Разработать программу, которая для заданной строки s удаляет все символы х. Ирина1304 Помощь студентам 0 13.12.2016 16:47
Удалить из байтовой строки символы GordonG Assembler 1 18.05.2013 16:10
Удалить символы из строки develsnik Общие вопросы Delphi 22 02.04.2013 03:50
C++ Удалить в строке символов все символы в скобках вместе с самими скобками Chopper Помощь студентам 0 27.12.2012 23:19
Удалить из строки все символы типа #10 #9 и т.д. TwiX Общие вопросы Delphi 10 01.12.2009 20:21


20:50.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru