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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 04.02.2016, 12:01   #1
mitiay
Форумчанин
 
Регистрация: 16.01.2011
Сообщений: 288
По умолчанию Удалить все после запятой в memo

Подскажите как удалить все что находится после запятой в memo(в каждой строчке)
А еще лучше в стринг лист, и потом сохранить результат
Спасибо!
mitiay вне форума Ответить с цитированием
Старый 04.02.2016, 12:13   #2
Iron Monk
Форумчанин
 
Аватар для Iron Monk
 
Регистрация: 05.10.2007
Сообщений: 478
По умолчанию

Код:
var
  i: Integer;
begin
  for i:= 0 to Memo1.Lines.Count - 1 do
  Memo1.Lines[i]:= Copy(Memo1.Lines[i], 1, Pos(',', Memo1.Lines[i]));
end;
Iron Monk вне форума Ответить с цитированием
Старый 04.02.2016, 12:17   #3
mitiay
Форумчанин
 
Регистрация: 16.01.2011
Сообщений: 288
По умолчанию

Цитата:
Сообщение от Iron Monk Посмотреть сообщение
Код:
var
  i: Integer;
begin
  for i:= 0 to Memo1.Lines.Count - 1 do
  Memo1.Lines[i]:= Copy(Memo1.Lines[i], 1, Pos(',', Memo1.Lines[i]));
end;
А можете подсказать, как удалить включая символ ,
mitiay вне форума Ответить с цитированием
Старый 04.02.2016, 12:18   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Код:
  for i:= 0 to Memo1.Lines.Count - 1 do begin
    j:=Pos(',', Memo1.Lines[i]);
    if j>0 then Memo1.Lines[i]:= Copy(Memo1.Lines[i], 1, j-1);
  end;
Для StringList аналогично. Сохранить SaveToFile
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 04.02.2016, 12:20   #5
Iron Monk
Форумчанин
 
Аватар для Iron Monk
 
Регистрация: 05.10.2007
Сообщений: 478
По умолчанию

Цитата:
Сообщение от mitiay Посмотреть сообщение
А можете подсказать, как удалить включая символ ,
Memo1.Lines[i]:= Copy(Memo1.Lines[i], 1, Pos(',', Memo1.Lines[i]) - 1);
Iron Monk вне форума Ответить с цитированием
Старый 04.02.2016, 12:23   #6
mitiay
Форумчанин
 
Регистрация: 16.01.2011
Сообщений: 288
По умолчанию

Можно еще вопрос ?)) А как теперь удалить все ДО запятой включая ее
mitiay вне форума Ответить с цитированием
Старый 04.02.2016, 12:24   #7
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

После какой по счёту запрятой в строке начинать обрезание?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 04.02.2016, 12:26   #8
mitiay
Форумчанин
 
Регистрация: 16.01.2011
Сообщений: 288
По умолчанию

после первой
mitiay вне форума Ответить с цитированием
Старый 04.02.2016, 12:26   #9
Iron Monk
Форумчанин
 
Аватар для Iron Monk
 
Регистрация: 05.10.2007
Сообщений: 478
По умолчанию

Цитата:
Сообщение от mitiay Посмотреть сообщение
Можно еще вопрос ?)) А как теперь удалить все ДО запятой включая ее
Код:
Memo1.Lines[i]:= Copy(Memo1.Lines[i], Pos(',', Memo1.Lines[i]) + 1, MaxInt);
Iron Monk вне форума Ответить с цитированием
Старый 04.02.2016, 12:32   #10
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Толсто намекну, вкуда копать...

284943.jpg
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Удалить все, что после символа fijiisland Microsoft Office Excel 8 31.03.2017 16:04
Как удалить все строки кроме первой, после автофильтра myosotis Microsoft Office Excel 2 30.01.2013 19:31
Делфи. Удалить все лова после 5-го serhan Помощь студентам 3 09.02.2012 13:40
как удалить знаки после запятой ukrman Microsoft Office Excel 11 03.02.2012 17:22
Разделение чисел на до запятой и после запятой msser Microsoft Office Excel 8 23.10.2009 11:57