Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Kazax_Misha
4 / 4 / 3
Регистрация: 15.04.2013
Сообщений: 228
1

Удалить пробелы в Memo, сделанные клавишей Tab

29.11.2014, 14:30. Просмотров 679. Ответов 3
Метки нет (Все метки)

Написал процедурку для удаления пробелов в строке Memo. Она видит пробелы, сделанные клавишей "Пробел"(Space), но пробелы, сделанные клавишей "Tab" не видит (которые были образованные автоматически при переносе из ворда в txt). Как удалить эти самые "Tab"-овские пробелы? Заранее спасибо.
Вот процедура:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
  
   c := 0;
   str := memo3.text;
// Удаляем первый пробел
   if str[1]=' ' then delete(str,1,1);
// Удаляем все лишние пробелы в строке
   for i := 1 to Length(str) do
     begin
      if str[i]=' ' then delete(str,i,1);
       stt := copy(str, i, 1);
         if (stt = ' ') and (c >= 1) then
           begin
              str2 := str2;
              c := c + 1;
           end
             else if (stt = ' ') and (c = 0) then
               begin
                 c := c + 1;
                 str2 := str2 + stt;
               end
                   else if (stt <> ' ') then
                     begin
                      c := 0;
                      str2 := str2 + stt;
                     end
     end;
 // Удаляем пробел в конце строки
   i2:=length(str2);
   if str2[i2]=' ' then delete(str2,i2,1);
   memo4.text := str2;
//===========================================
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2014, 14:30
Ответы с готовыми решениями:

В поле memo удалить все лишние пробелы
Добрый вечер.Не знаю как удалить лидирующие, завершающие пробелы в поле memo и...

Delphi 7 memo удалить личные пробелы NUL
Всем привет: Помогите пожалуйста как удалить личные пробелы из всех строк (NUL)...

пробелы в memo
Нужно сделать отступ с заданы количеством пробелов в Memo. зарание благодарен

Удалить пробелы в TStringList
в стринглист непрерывным потоком поступают данные- temp.Add(s); затем выводим...

Как удалить пробелы в Edit?
Здравствуйте, мне нужно удалить пробелы в Edit, но не все. Только вначале и в...

3
northener
пофигист широкого профиля
3429 / 2328 / 631
Регистрация: 15.07.2013
Сообщений: 13,796
29.11.2014, 14:33 2
Лучший ответ Сообщение было отмечено Kazax_Misha как решение

Решение

Ищи и удаляй символы #9
1
Avazart
Эксперт С++
7760 / 5665 / 555
Регистрация: 10.12.2010
Сообщений: 25,684
Записей в блоге: 17
29.11.2014, 14:46 3
Символ табуляции, если я не ошибаюсь #9
И для замены есть такая функция StringReplace()
0
Puporev
Модератор
55478 / 42579 / 29428
Регистрация: 18.05.2008
Сообщений: 100,728
29.11.2014, 15:03 4
Удалять проще с конца
Delphi
1
2
for i :=  Length(str) downto 1 do
if str[i] in [#9,#13] then delete(str,i,1);
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2014, 15:03

Удалить все пробелы из текста
Удалить все пробелы из текста. Текст: ПРЕДСЕДАТЕЛЬ НЕ НА ТО, ЧТОБЫ ТОЛЬКО...

Удалить из строки все пробелы
удалить из строки все пробелы

Удалить из строки лишние пробелы
Здравствуйте. Это мне нужно для экзамена. Сделать нужно уже сегодня( Кто может...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru