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

[Аватар]

function TrimCharM(const _Ch: Char; str: PChar): PChar;
begin
  while str^<>#0 do begin
    if str^<>_Ch then Break;
    Inc(str);
  end;
  Result:=str;
end;

[Iron Monk]

Зачем так усложнять?

function TrimChar(const _Ch: Char; str: PChar): PChar;
begin
     while str^ = _Ch do inc(str);
     Result:= str;
end;

[Аватар]

Ну да, так еще компактней и это намного быстрей всех выше предложенных вариантов , но преобразование при вызове String в PChar и наоборот скорее всего съест почти все достижения

[Iron Monk]

А как такая функция? Сильно не тру?

function TrimChar(const _Ch: Char; const str: string): string;
var
i: integer;
begin
     i:= 1;
     while str[i] = _Ch do inc(i);
     Result:= AnsiMidStr(str, i, Length(str)+1-i);
end;

[Аватар]

AnsiMidStr в конечном счете Cору и WHILE медленнее FOR (хотя здесь это и не важно видимо), да еще пустая строка или из одних _Ch. Короче плохо

[Iron Monk]

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

AnsiMidStr в конечном счете Cору и WHILE медленнее FOR (хотя здесь это и не важно видимо), да еще пустая строка или из одних _Ch. Короче плохо

Да, пустой ввод с такой функцией придется обрабатывать...

[Iron Monk]

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

Сильно грешно резалт плюсовать?
То что высекает все _Ch пока не смотреть)))

[Аватар]

Сильно грешно резалт плюсовать?

Каждый раз выделение памяти под новую строку, освобождение ранее использованной, перемещение данных

[StriderX]

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

Каждый раз выделение памяти под новую строку, освобождение ранее использованной, перемещение данных

Очень многое будет зависеть от менеджера памяти. На ПК можно практически что угодно творить, заметная разница будет с мобильной платформой.

[Iron Monk]

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

Каждый раз выделение памяти под новую строку, освобождение ранее использованной, перемещение данных

Ну, тогда без одного Copy не обошлось...

function TrimCharM(const _Ch: Char; const str: string): string;
var
PStr: ^string;
i: integer;
begin
     i:=1;
     PStr:= @str;
     while Pstr^[i] = _Ch  do inc(i);
       Result:= Copy(Pstr^, i, Length(Pstr^));
end;