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

[Iron Monk]

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

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

Извольте...

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

[Serge_Bliznykov]

Iron Monk, имхо, это код не сильно лучше.
Каждый вызов delete(tmp, 1, 1) приводит к тому, что в памяти выделяется память под новую строку, в созданную строку переписывается текст без удаляемого символа, потом старый tmp удаляется, и в переменную tmp (которая является УКАЗАТЕЛЕМ на строку) переписывается указатель на новую область памяти.
Это и есть та самая "bad practice".

Если Вам интересно, как написать "good" - то очень рекомендую разобрать алгоритм, предложенный StriderX в пост #2.
Обратите внимание, что при переборе строки она НЕ ИЗМЕНЯЕТСЯ (изменяется только счётчик, отсчитывающий, сколько пустых символ в начале строки подлежит удалению).
А потом мы сразу возвращаем ПОДСТРОКУ нужной длины (без пустых символов).
It's GOOD!

[Iron Monk]

Ок, без делита.

function TrimChar(const _Ch: Char; str: string): string;
var
tmp: string;
i  : integer;
begin
  tmp:= str;
  for i:= 1 to Length(tmp) do
    if  _Ch <> tmp[i] then
      begin
      Result:= Copy(tmp, i, Length(tmp));
      exit;
      end;
end;

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

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

Ок, без делита.

function TrimChar(const _Ch: Char; str: string): string;
var
tmp: string;
i  : integer;
begin
  tmp:= str;
  for i:= 1 to Length(tmp) do
    if  _Ch <> tmp[i] then
      begin
      Result:= Copy(tmp, i, Length(tmp));
      exit;
      end;
end;

Copy та же хня.

[Iron Monk]

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

Copy та же хня.

Но копируется только один раз. Идем дальше:

function TrimChar(const _Ch: Char; str: string): string;
var
tmp: string;
i  : integer;
begin
  tmp:= str;
  for i:= 1 to Length(tmp) do
    if  _Ch <> tmp[i] then
      Result:= Result + tmp[i];
end;

Или даже так:

function TrimChar(const _Ch: Char; const str: string): string;
var
i  : integer;
begin
  for i:= 1 to Length(str) do
    if _Ch <> str[i] then
      Result:= Result + str[i];
end;

[Serge_Bliznykov]

мне вариант с Copy (пост #13) понравился.

[Iron Monk]

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

мне вариант с Copy (пост #13) понравился.

Ну с Copy, говорят, не тру...

[Serge_Bliznykov]

Ну с Copy, говорят, не тру...

повторю, на мой взгляд - нормально!
Выделение памяти под Result и копирование туда подстроки (Copy) произойдёт один раз за вызов функции. Это нормально!

[Iron Monk]

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

повторю, на мой взгляд - нормально!
Выделение памяти под Result и копирование туда подстроки (Copy) произойдёт один раз за вызов функции. Это нормально!

Ну, тогда и переменную tmp можно убрать - ведь переданную в функцию строку мы только читаем.

[Serge_Bliznykov]

у, тогда и переменную tmp можно убрать - ведь переданную в функцию строку мы только читаем.

Конечно можно и нужно!