Выделение числа в строке

@Loyvsc · Регистрация: 19.05.2020

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

И снова, здравствуйте. Как выделить из строки (типа string) число? (Выделить и далее использовать)

~~Verevkin~~ · 07.10.2021, 20:46

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

Как выделить из строки (типа string) число?

Из какой именно?

@Loyvsc · 07.10.2021, 20:58 **[ТС]**

Допустим: в строку d введено выражение 'Автобус 1' и нужно вывести номер автобуса (т.е. 1).

Delphi

program p2;
{$APPTYPE CONSOLE}
uses
  sysutils;
var d:string;
begin
write('stroka 1: ');
readln(d);
end.

~~Verevkin~~ · 07.10.2021, 21:17

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

Допустим: в строку d введено выражение 'Автобус 1' и нужно вывести номер автобуса (т.е. 1).

А если введено 'Авто7бу6с 1ф-ъ.100500', чо на выходе быть должно?

@Loyvsc · 07.10.2021, 21:20 **[ТС]**

Все числа.

~~Verevkin~~ · 07.10.2021, 21:27

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

Все числа.

В каком виде?

@AzAtom · 07.10.2021, 21:28

Начиная с первой цифры и до конца этого числа (целого, без знака):

Delphi

function GetNum(s: string): string;
var
  i: integer;
begin
  i := 1;
  Result := '';
  while (Pos(s[i], '0123456789') = 0) and (i < Length(s)) do
    Inc(i);
  while (Pos(s[i], '0123456789') <> 0) and (i <= Length(s)) do begin
    Result := Result + s[i];
    Inc(i);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := GetNum(Edit1.Text);
end;

@Loyvsc · 07.10.2021, 21:31 **[ТС]**

Спасибо!

@Пытливый · 07.10.2021, 23:25

А ведь еще может быть "Автобус первого маршрута"

@Loyvsc 6 / 6 / 1 Регистрация: 19.05.2020 Сообщений: 212
		1
	Выделение числа в строке 07.10.2021, 20:32. Показов 945. Ответов 8 Метки нет (Все метки) И снова, здравствуйте. Как выделить из строки (типа string) число? (Выделить и далее использовать) 0

~~Verevkin~~ Заблокирован
	07.10.2021, 20:46	2
	Сообщение от Loyvsc Как выделить из строки (типа string) число? Из какой именно? 0

~~Verevkin~~ Заблокирован
	07.10.2021, 21:17	4
	Сообщение от Loyvsc Допустим: в строку d введено выражение 'Автобус 1' и нужно вывести номер автобуса (т.е. 1). А если введено 'Авто7бу6с 1ф-ъ.100500', чо на выходе быть должно? 0

@Loyvsc 6 / 6 / 1 Регистрация: 19.05.2020 Сообщений: 212
	07.10.2021, 21:20 [ТС]	5
	Все числа. 0

~~Verevkin~~ Заблокирован
	07.10.2021, 21:27	6
	Сообщение от Loyvsc Все числа. В каком виде? 0

@Loyvsc 6 / 6 / 1 Регистрация: 19.05.2020 Сообщений: 212
	07.10.2021, 21:31 [ТС]	8
	Спасибо! 0

@Пытливый 3586 / 2195 / 693 Регистрация: 29.05.2013 Сообщений: 9,374
	07.10.2021, 23:25	9
	А ведь еще может быть "Автобус первого маршрута" 0

Выделение числа в строке

Решение