[dr. F.I.N.]

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

Один из вариантов:

Код:

  while True do
  begin
    if St[1] in ['0'..'9'] then
      St := Copy(St, 2, Length(St))
    else
      Break;
  end;

По-моему, не рационально Работать конечно будет. Я бы так поступил:

Код:

  i := 0;
  while (St[i] in ['0'..'9']) and (i < Length(St)) do Inc(i);
  if St[i] in ['0'..'9'] then
  St := Copy(St, i, Length(St) - i + 1)
  else
  St := '';