Как в цикле отбросить впереди стоящие нули

[StE111]

Добрый день Господа программисты! подскажите пожалуйста как отбросить впереди стоящие нули, например: 0012 впереди стоящие нули отбрасываем получаем 12 или 0103 на выходе должно получится 103.
Я написал примерно вот такой код но он не робит:

 if (length(edNumTyre.Text) = 4) then
  begin
    strNumTyre:= edNumTyre.Text;
    for i:= 0 to 3 do
    begin
      if (strNumTyre[i] <> '0') then
      begin
        xTyre:= copy(strNumTyre, i, 4 - i);
        dgTyres.DataSource.DataSet.Locate('ID_TYRES',edNumTyre.Text,
                                  [loCaseInsensitive, loPartialKey]);
        Exit;
      end;
    end;

  end;

[StriderX]

Если делфи современный, то

s := s.TrimLeft(['0']);

Если нет, то переписать под себя:

function TStringHelper.TrimLeft(const TrimChars: array of Char): string;
var
  I, L: Integer;
begin
  L := Self.Length;
  I := 0;
  while (I < L) and (CharInArray(Self[I], TrimChars)) do
    Inc(I);
  if I > 0 then
    Result := Self.SubString(I)
  else
    Result := Self;
end;

[StE111]

Благодарю за ответ! я разобрался вот код:

  if (length(edNumTyre.Text) = 4) then
  begin
    strNumTyre:= edNumTyre.Text;
    for i:= 1 to 4 do
    begin
      if (strNumTyre[i] <> '0') then
      begin
        xTyre:= copy(strNumTyre, i, 5 - i);
        dgTyres.DataSource.DataSet.Locate('ID_TYRES', xTyre,
                                  [loCaseInsensitive, loPartialKey]);
        Exit;
      end;
    end;
  end;

[Iron Monk]

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

Благодарю за ответ! я разобрался вот код:

  if (length(edNumTyre.Text) = 4) then
  begin
    strNumTyre:= edNumTyre.Text;
    for i:= 1 to 4 do
    begin
      if (strNumTyre[i] <> '0') then
      begin
        xTyre:= copy(strNumTyre, i, 5 - i);
        dgTyres.DataSource.DataSet.Locate('ID_TYRES', xTyre,
                                  [loCaseInsensitive, loPartialKey]);
        Exit;
      end;
    end;
  end;

Фигасе...
Так не проще?

procedure TrimChar(const _Ch: Char; var str: string);
begin
      while  Length(str) > 0 do
      if str[1] = _Ch then delete(str, 1, 1) else exit;
end;

[Человек_Борща]

Все ещё проще: IntToStr(StrToInt('0000000000000001 03')) => '103'

[Iron Monk]

Сообщение от Человек_Борща

Все ещё проще: IntToStr(StrToInt('0000000000000001 03')) => '103'

Зато универсальность пропала)))

[Аватар]

Все ещё проще

Простота кажущая - значащая часть может просто не впихнуться в integer. И, да, универсальность

[Человек_Борща]

Простота кажущая - значащая часть может просто не впихнуться в integer. И, да, универсальность

Не прокатит, обрезание уже встроено.
Хоть ты 00000000000000000000000000000000000 00000000000000000000000000000000000 0000000000000000000567567 впихни в StrToInt оно все равно выдаст 567567.

И, да, универсальность

Мне лаконичность кода в пользу быстродействия, нравится больше чем захламленность в пользу уникальности кода.

[Аватар]

00011111111111

[StriderX]

Сообщение от Iron Monk

Фигасе...
Так не проще?

procedure TrimChar(const _Ch: Char; var str: string);
begin
      while  Length(str) > 0 do
      if str[1] = _Ch then delete(str, 1, 1) else exit;
end;

Считается "bad practice" в смысле дёрганья менеджера памяти - надо, чтобы у него было как можно меньше телодвижений. Сейчас пошла мода на immutable строки, считайте, что никакой делит выполнить в принципе нельзя ибо запрещены изменения источника - только создать копию (а собирательствами должен заниматься какой-нибудь TStringBuilder). Поэтому все алгоритмы переписываются в расчете на работу с immutable.