[sariman]

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

[angvelem]

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

Код:

1 2 3 4 5 6 7

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

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

Код:

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

Код:

1 2 3 4 5 6

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]

Код:

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

[NumLock]

Код:

1 2 3 4 5 6 7 8 9

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

[sariman]

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