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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.09.2009, 15:43   #1
kate158
Форумчанин
 
Регистрация: 01.08.2008
Сообщений: 383
По умолчанию чистая строка компонента memo

как получить чистую строку из memo без пробелов и символа перехода на новую строку?
kate158 вне форума Ответить с цитированием
Старый 21.09.2009, 16:03   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Ну разве что пройтись в цикле по свойству Text и if IsCharAlphaNumeric(text[i]) then выдернуть символ в переменную.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 21.09.2009, 16:24   #3
Вадим Буренков
Участник клуба
 
Аватар для Вадим Буренков
 
Регистрация: 06.03.2009
Сообщений: 1,346
По умолчанию

Цитата:
как получить чистую строку из memo без пробелов
Может тебе надо trim использовать? Эта функция в sysutils возвращает строку без пробелов в начале и конце строки. Например строку
" Это просто строка "
Она превратит в строку
"Это просто строка".
Вадим Буренков вне форума Ответить с цитированием
Старый 22.09.2009, 09:22   #4
kate158
Форумчанин
 
Регистрация: 01.08.2008
Сообщений: 383
По умолчанию

У меня в мемо адреса файлов, лежащих в одной директории. Хочу пройтись циклом по всем этим адресам..только после каждого адреса символ пробела и перехода на новую строку.. а если все убрать получится одна большая строка. как мне быть?
kate158 вне форума Ответить с цитированием
Старый 22.09.2009, 11:54   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

ну, наверное, у Вас не адреса, а имена файлов..
и Вам надо в цикле пройтись по ним?
Memo1.Lines[I]
примерно вот так:
Код:
for i:=0 to to Memo1.Lines.Count - 1 do
  ShowMessage(IntToStr(i)+':'+trim(Memo1.Lines[I]));
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
2 компонента memo apocalypce Общие вопросы Delphi 10 03.09.2009 18:20
Перевод из Memo по английскому в Memo по русскому Sanek777 Общие вопросы Delphi 5 26.09.2008 00:17
Строка состаяния или загрузачная строка Sergeu Мультимедиа в Delphi 8 27.08.2008 10:32
В Memo сделать так, чтобы текст был разного цвета, разноцветный memo Artem Компоненты Delphi 3 07.09.2007 13:40