Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 21.01.2013, 16:44   #1
lezgin
Пользователь
 
Регистрация: 23.01.2012
Сообщений: 19
По умолчанию нужно убрать пробелы

здрасте. у меня в edit1 любой текст . Как между этими словами убрать пробелы ?
lezgin вне форума
Старый 21.01.2013, 16:57   #2
FaTaL
Участник клуба
 
Аватар для FaTaL
 
Регистрация: 09.11.2007
Сообщений: 1,759
По умолчанию

Пройдись циклом по строке и если символ равен пробелу, то удали его и всё или используй функцию StringReplace
FaTaL вне форума
Старый 21.01.2013, 17:18   #3
lezgin
Пользователь
 
Регистрация: 23.01.2012
Сообщений: 19
По умолчанию

Цитата:
Сообщение от FaTaL Посмотреть сообщение
Пройдись циклом по строке и если символ равен пробелу, то удали его и всё или используй функцию StringReplace
А можно поподробнее? Например: у меня в edit есть текст любой например internet, net work. Как между ними убрать пробелы?
lezgin вне форума
Старый 21.01.2013, 17:22   #4
beegl
instagram
Участник клуба
 
Аватар для beegl
 
Регистрация: 24.05.2008
Сообщений: 1,453
По умолчанию

Код:
procedure TForm1.DelSpac;
var
  i: Integer;
begin
  if Length(str) = 0 then
  begin
    DelSpaces := str;
    Exit;
  end;
  for i := 1 to length(str) do
  begin
    if pos(' ', str) = 1 then
      delete(str, 1, 1)
    else
    begin
      DelSpaces := str;
      Break;
    end;
  end;
end;
Пример использования:
Код:
Str := DelSpaces(Str);
beegl вне форума
Старый 21.01.2013, 17:24   #5
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Код:
Str:=StringReplace(Str,' ','',rfReplaceAll);
Отлично заменит все из предыдущего поста (которое работать не будет).

Топикастеру - F1 никто не отменял
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 21.01.2013 в 17:27.
Аватар вне форума
Старый 21.01.2013, 21:26   #6
lezgin
Пользователь
 
Регистрация: 23.01.2012
Сообщений: 19
По умолчанию

не работает. другие способы нету да? Неужели это такая сложная функция. нигде не нашел ее
lezgin вне форума
Старый 21.01.2013, 21:34   #7
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Вы бы указали ошибки, которые выдаются при компиляции.
Попробуйте так (у меня работает):
Код:
Edit1.Text := StringReplace(Edit1.Text, ' ', '', [rfReplaceAll]);
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме
Старый 22.01.2013, 09:09   #8
FaTaL
Участник клуба
 
Аватар для FaTaL
 
Регистрация: 09.11.2007
Сообщений: 1,759
По умолчанию

Цитата:
Сообщение от lezgin Посмотреть сообщение
Неужели это такая сложная функция. нигде не нашел ее
Я же дал ссылку на описание этой функции в первом своём посте.
FaTaL вне форума
Старый 24.01.2013, 09:44   #9
XerSon
Форумчанин
 
Аватар для XerSon
 
Регистрация: 21.01.2008
Сообщений: 211
По умолчанию

Цитата:
Сообщение от FaTaL Посмотреть сообщение
Я же дал ссылку на описание этой функции в первом своём посте.
ы))) Если бы тебя кто нибудь услышал, прут в своем направлении и не оборачиваются!
XerSon вне форума
Старый 27.01.2013, 19:58   #10
mosq
Пользователь
 
Регистрация: 28.08.2009
Сообщений: 90
По умолчанию

Цитата:
Сообщение от lezgin Посмотреть сообщение
здрасте. у меня в edit1 любой текст . Как между этими словами убрать пробелы ?
Код:
while pos(' ',s)>0 do delete(s,pos(' ',s),1);
удалит все пробелы в строке s
mosq вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Убрать лишние пробелы ДмитрийРэй C# (си шарп) 1 22.05.2011 09:19
убрать лишнии пробелы мария2507 Microsoft Office Excel 12 14.04.2010 17:11
убрать пробелы zetrix Microsoft Office Excel 9 10.03.2009 10:03
Убрать пробелы из строки Neymexa Помощь студентам 2 09.12.2008 14:29
Убрать пробелы из строки Neymexa Общие вопросы по Java, Java SE, Kotlin 2 29.11.2008 11:03