Поиск чисел в memo

@Laou · Регистрация: 27.12.2017

Author24 — интернет-сервис помощи студентам

Дан текст в memo, нужно найти числа и вывести их в другое memo. Кто-нибудь может помочь с кодом? Искал такое, не нашёл

@Puporev · 19.02.2018, 17:44

Сообщение от Laou

Искал такое, не нашёл

Значит ил плохо искал или врешь. Что за текст в Мемо, как слова отделены?

@qwertehok · 19.02.2018, 17:45

числа отделены пробелами? запятыми? числа какие - целые?

Сообщение от Laou

Искал такое, не нашёл

удаляй все что не числа, остальное перенести

@Laou · 19.02.2018, 17:46 **[ТС]**

Простой текст, как тот, что я сейчас пишу. Разделитель - пробел

@AlexSky-coder · 19.02.2018, 17:58

Пофиг на разделитель.

Delphi

procedure TForm1.btn1Click(Sender: TObject);
var   I:Integer;
      s:string;
begin
for i:=1 to Length(mmo1.Text) do begin
if (mmo1.Text[i]>='0')and(mmo1.Text[i]<='9') then s:=s+mmo1.Text[i]
  else if s<>'' then begin
       mmo2.Lines.Add(s);
       s:='';
       end;
end;
end;

@Laou · 19.02.2018, 18:15 **[ТС]**

Спасибо)

@Puporev · 19.02.2018, 18:26

Сообщение от SkyLion27

Пофиг на разделитель.

А если аб12дл15дл, то выведет 1215, но такого числа в тексте нет, как нет и чисел вообще.

@qwertehok · 19.02.2018, 18:28

нормально выведет

@AlexSky-coder · 19.02.2018, 18:30

Сообщение от Puporev

А если аб12дл15дл, то выведет 1215, но такого числа в тексте нет, как нет и чисел вообще.

Все там норм.

@Laou 1 / 1 / 0 Регистрация: 27.12.2017 Сообщений: 15
		1
	Поиск чисел в memo 19.02.2018, 17:40. Показов 1479. Ответов 8 Метки нет (Все метки) Дан текст в memo, нужно найти числа и вывести их в другое memo. Кто-нибудь может помочь с кодом? Искал такое, не нашёл 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.02.2018, 17:44	2
	Сообщение от Laou Искал такое, не нашёл Значит ил плохо искал или врешь. Что за текст в Мемо, как слова отделены? 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,130 Записей в блоге: 3
	19.02.2018, 17:45	3
	числа отделены пробелами? запятыми? числа какие - целые? Сообщение от Laou Искал такое, не нашёл удаляй все что не числа, остальное перенести 0

@Laou 1 / 1 / 0 Регистрация: 27.12.2017 Сообщений: 15
	19.02.2018, 17:46 [ТС]	4
	Простой текст, как тот, что я сейчас пишу. Разделитель - пробел 0

@Laou 1 / 1 / 0 Регистрация: 27.12.2017 Сообщений: 15
	19.02.2018, 18:15 [ТС]	6
	Спасибо) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.02.2018, 18:26	7
	Сообщение от SkyLion27 Пофиг на разделитель. А если аб12дл15дл, то выведет 1215, но такого числа в тексте нет, как нет и чисел вообще. 1

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,130 Записей в блоге: 3
	19.02.2018, 18:28	8
	нормально выведет 1

@AlexSky-coder Да так, от скуки захожу. 141 / 120 / 44 Регистрация: 25.06.2017 Сообщений: 365 Записей в блоге: 3
	19.02.2018, 18:30	9
	Сообщение от Puporev А если аб12дл15дл, то выведет 1215, но такого числа в тексте нет, как нет и чисел вообще. Все там норм. Миниатюры 1

Поиск чисел в memo

Решение