Удаление повторяющихся нулей

[artemavd]

Добрый вечер! Если есть, например, число 001237, то как из него удалить "00", чтобы осталось 1237? А если число 000123, то чтобы осталось 123. Если 012382, то осталось 12382.

[Пепел Феникса]

ну судя по проблеме у вас строка, просто:

function TrimStartZero(s:string):string;
var i,j:integer;
begin
 i:=0;
 for j:=1 to Length(s) do if (s[j]='0') then inc(i) else break;
 if(i>0)then Delete(s,1,i);
 Result:=s;
end;

примерно так.

[Аватар]

Если заведомо в строке все цифры и их не больше 9 то еще проще:

Result:=IntToStr(StrToInt(s));

[Пепел Феникса]

проще, но я не уверен что быстрее.

[Аватар]

Сообщение от Пепел Феникса

проще, но я не уверен что быстрее.

Нужно эксперимент провести

Добавил. На 10.000.000 обращений получил по 1-му варианту 00:00:02.777, по 2-му 00:00:02.137 - практически без разницы

[Mad_Cat]

Если есть, например, число 001237, то как из него удалить "00", чтобы осталось 1237?

while pos('0',s)=1 do
delete(s,1,1);

[chertovich]

while (Length(s) > 0) and (s[1] = '0') do delete(s, 1, 1);

Считаем производительность
Или немного измененный код Пепел Феникса:

var
  c, Len: Integer;
begin
  c := 0;
  Len := Length(s);
  for I := 1 to Len do
  begin
    if s[I] = '0' then
      Inc(c)
    else
      Break;    
  end;
  if c > 0 then
    Result := Copy(S, c + 1, Len - c)
  else
    Result := s;
end;

[_Engine_]

А я, пожалуй, вариант с процедурой предложу

procedure TrimStartZero(var S: String);
var I : Integer;
begin
  for i := 1 to length(S) do
    if S[i] <> '0' then
    begin
      Delete(S, 1, i-1);
      Break;
    end;
end;

[Вадим Мошев]

Сообщение от Аватар

Если заведомо в строке все цифры и их не больше 9 то еще проще:

Result:=IntToStr(StrToInt(s));

Мне кажется, не сработает такой вариант.

По замыслу, если на вход поступает 10000, то на выходе должно быть 1, так?
Однако, если мы применим алгоритм в таким данным, на выходе мы получим то же, что и на входе (10000).

[Аватар]

Ну если пошла такая драка, то показую результаты теста на 1.000.000 обращений (насчет 10.000.000 в #5 загнул, процедуру из #8 не тестировал)

#2   - 00:00:2.371
#3   - 00:00:2.059 очень удивился, что самый быстрый способ
#6   - 00:00:3.495
#7.1 - 00:00:3.213
#7.2 - 00:00:2.387

По замыслу, если на вход поступает 10000, то на выходе должно быть 1, так?
Однако, если мы применим алгоритм в таким данным, на выходе мы получим то же, что и на входе (10000).

Речь идет о незначащих нулях