|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.09.2018, 18:41 | #1 |
Пользователь
Регистрация: 23.05.2018
Сообщений: 58
|
Из заданной строки символов удалить символы
Помогите пожалуйста решить задачу.Она выглядит так:
С заданной строки символов удалить символы, отличные от русских букв и пробелов. |
25.09.2018, 19:24 | #2 |
Пользователь
Регистрация: 23.05.2018
Сообщений: 58
|
вот ответ кому надо
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. |
25.09.2018, 19:38 | #3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
[C#] Разработать программу, которая для заданной строки s удаляет все символы х. | Ирина1304 | Помощь студентам | 0 | 13.12.2016 15:47 |
Удалить из байтовой строки символы | GordonG | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 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 19:21 |