[Kosten]

Привет всем..
Конечно, это лёгкая тема, но...тем не менее я не смог разобраться в ней самостоятельно...
Сам вопрос:
Дана строка длиной до 254 сиволов. Нужно удалить все знаки + перед символами, которые не являются цифрами.

[T-dayne]

Держи

Код:

for i:=1 to length(str) do
 begin
  if not (str[i] in ['1'..'9']) then
   begin
    if str[i-1]='+' then delete(str, i-1, 1);
   end;
 end;

[Kosten]

Спасибочки..

[T-dayne]

весы над сообщением...