[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 - жирновато будет.

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

Зато коротко и лаконiчно.

[PhoeniX]

Код:

St := Copy(St, 2, Length(St))

А чё, православный Delete уже не в моде?

[NumLock]

Код:

var
  s: String;
  i: Integer;
begin
  s:='123qwe';
  for i:=1 to Length(s) do if not (s[i] in ['0'..'9']) then Break;
  s:=PChar(@s[i]);
  ShowMessage('"'+s+'"'+#13#10+IntToStr(Length(s)));
end;

[sariman]

Спасибо всем!!!))))))