Обсуждение "Многократного удаления из строки", Разделено Опции

[Client]

[вставка]
Я (Lapp) вклинился сюда, чтоб привести ссылку на ту тему в FAQ, о которой идет речь:
Многократное удаление символов из строки
[конец вставки]

Дело в том, что Delete - это не мгновенная операция

Эм... я вот не нашел исходник этой процедуры и не знаю насколько она "не мгновенная". А move - уже не в счет? Хотя, видимо, тоже долго работает...

[TarasBer]

Как нельзя?!

procedure print_arr(const arr: array of integer; n: integer);
var i: integer;
begin
  write('<', n:2, '> ');
  for i := 0 to pred(n) do write(arr[i]:3);
  writeln;
end;

const
  size = 10;
  s = -56;

var
  arr: array[s .. s+size-1] of integer;
  real_size: integer;

  i, j: integer;
  b: boolean;

begin
  randomize;

  real_size := size+s-1;
  for i := s to real_size do
  begin
    arr[i] := random(3);
  end;

  print_arr(arr, real_size-s+1);

  j := Low(arr);
  for i := Low(arr) to real_size do
    if arr[i] <> 0 then { Good(X) => (X <> 0) }
    begin
      arr[j] := arr[i];
      Inc(j);
    end;
  real_size := j - 1;

  print_arr(arr, real_size-s+1);
end.