[sariman]

Как реализовать? помогите плз)

[angvelem]

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

Код:

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

[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 := '';

[angvelem]

Сообщение от dr. F.I.N.

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

Не вижу великой разницы.

[M.A.D.M.A.N.]

Юзайте RegExp.

[dr. F.I.N.]

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

Не вижу великой разницы.

Посмотри внимательно:
1.Если чтрока состоит только из цифр?
2.Зачем делать -дцать раз Copy?

Сообщение от M.A.D.M.A.N.

Юзайте RegExp.

По-моему, для такой задачи RegExp - жирновато будет.