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

[Client]

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

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

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

[volvo]

TarasBer, насколько я вижу,

j := Low(S); 
for i := Low(S) to LS do
  if Good(S[i]) then begin 
    S[j] := S[i];  
    Inc(j);
  end;
LS := j;

Это для статического массива, у которого полезная длина хранится в отдельной переменной.

может привести к неправильному результату:

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;

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

  i, j: integer;
  b: boolean;

begin
  real_size := size;
  for i := 1 to size do
  begin
    arr[i] := i mod 2;
  end;

  print_arr(arr, real_size);

  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;

  print_arr(arr, real_size);
end.

Running "f:\programs\pascal\tst_fq.exe "
<10>   1  0  1  0  1  0  1  0  1  0
< 6>   1  1  1  1  1  0

Казалось бы чего проще, LS := j - Low(S)? Но только это не решит проблемы. Массивы могут индексироваться не только с 1, 2, и так далее. А и с 0, и с (-1). А при первом отрицательном индексе (при цикле до LS) будет Range-Check Error. Я бы предложил:

j := Low(S); 
for i := Low(S) to High(S) do
  if Good(S[i]) then begin 
    S[j] := S[i];  
    Inc(j);
  end;
LS := j - Low(S);

Сообщение отредактировано: volvo - 6.11.2010 17:28