Найти все числа в строке "54пкен65рпа65не-65пгне"

@kentaw · Регистрация: 24.02.2009

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

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
 s,m:string;
begin
 m:='';
 s:=edit1.Text;
 for i:=1 to length(s) do
  if s[i] in ['0','1','2','3','4','5','6','7','8','9']
    then
     m:=m+s[i]
    else
     begin
      Memo1.Lines.Add(m);
      m:='';
     end;
end;

этот код неработает

@lexus_ilia · 18.05.2009, 03:30

Предлагаю такой алгоритм (код писать не буду):
1)Идём от начала строки ищем первую попавшуюся цифру.
2)Нашли цифру, запомнили позицию.
3)Ищем первую попавшуюся не цифру.
4)Запомнили позицию.
5)Вырезаем с позиции первой цифры, до следующей позиции-1 и вот у Нас первое число.

Ну а все условия допишите сами.
З.Ы. Не забудьте показать на форуме то, что у Вас получилось, Нам интересно посмотреть на Ваш труд.

@unick12345 · 18.05.2009, 12:54

твой else тебе все и портит. он берет первую цифру в мемо а потом если по строке находит еще переписывает ее. и последний результат выводит в мемо

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	18.05.2009, 03:30	2
	Предлагаю такой алгоритм (код писать не буду): 1)Идём от начала строки ищем первую попавшуюся цифру. 2)Нашли цифру, запомнили позицию. 3)Ищем первую попавшуюся не цифру. 4)Запомнили позицию. 5)Вырезаем с позиции первой цифры, до следующей позиции-1 и вот у Нас первое число. Ну а все условия допишите сами. З.Ы. Не забудьте показать на форуме то, что у Вас получилось, Нам интересно посмотреть на Ваш труд. 0

@unick12345 1856 / 1178 / 190 Регистрация: 27.03.2009 Сообщений: 4,558
	18.05.2009, 12:54	3
	твой else тебе все и портит. он берет первую цифру в мемо а потом если по строке находит еще переписывает ее. и последний результат выводит в мемо 0