[NoSilence]

Добрый день.

Очень часто вижу в исходниках обработку строк в виде:

Код:

p:= PChar(line);
while p^ <> #0 do begin
  if p^ ...
  inc(p);
end;

Есть ли реальные преимущества перед обычным циклом типа:

Код:

for i:= 1 to len do begin
  if line[i] ...
end;

?

[Alegun]

Цикл while удобен тем, что у него можно управлять шагом итерации т.е. возможно пропустить\прокрутить нужное колво символов в строке, for последователен и в этом его минус

[Bargest]

А еще удобно тем, что если продолжать расценивать P как PChar, то он в каждый момент времени указывает заодно и на всю оставшуюся строку от текущего символа до конца. В некоторых случаях может быть полезно.

[Freeman]

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

Цикл while удобен тем, что у него можно управлять шагом итерации т.е. возможно пропустить\прокрутить нужное колво символов в строке

Эта особенность незаменима при написании различных парсеров, начиная от раскодировки UTF-8 и заканчивая лексическим анализом в компиляторе.

[NoSilence]

А я предполагал, что есть какой-то профит в быстродействии. Не всегда ведь строчка из 10 символов.

Вот еще что интересует:
Есть строчка "123456789", необходимо преобразовать в "3456789".
Через Copy, Delete понятно, а вот через ссылку как?

Если я просто укажу теперь ссылку на символ "3", то что произойдет с "12"?
Или же скопирую память Move'ом в позицию "1", то что с "9"?

Всё это нужно подчищать? Или же, если изначально была объявлена переменная типа string, то это сделает менеджер памяти?

[Freeman]

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

А я предполагал, что есть какой-то профит в быстродействии.

Выигрыш в быстродействии теоретический, за счет отказа от индексной адресации и (в теории) уменьшения надобности в регистрах для хранения отдельно начала строки и отдельно индекса.

Код:

function Rewind(Source: string): string;
var
  Src, Dst: PChar;
  L: Integer;
begin
  if Source <> '' then
  begin
    L := Length(Source);
    SetLength(Result, L); // выделение памяти
    Src := Pointer(Source);
    Dst := @Result[L];
    while Src^ <> #0 do
    begin
      Dst^ := Src^;
      Inc(Src);
      Dec(Dst);
    end;
  end
  else
    Result := ''; // nil в nil
end;

[icWasya]

Выигрыш в быстродейсвиив том, что за кодом

Код:

Src[i]

стоит проверка на выход за границу массива, а за кодом

Код:

Dst[i]:=что-то

, стоит, кроме того проверка, что на строку есть ровно одна ссылка, и если это не так, производится создание новой строки.
Если Вы гарантируете невыход за границу массива и единственность указателя на строку, то можно обойтись и

Код:

Src^

[Freeman]

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

стоит проверка на выход за границу массива

Только при {$R+}, иначе при выходе за границы такой же AV, как и при разыменовании PChar.

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

Если Вы гарантируете невыход за границу массива и единственность указателя на строку

Как уже говорил, данный способ чаще всего используется в парсерах, где исходная строка лишь читается и остается неизменной, число ссылок на нее не имеет значения. А если строка только что создана в самой функции, как в случае с результатом функции Rewind, ссылка на нее пока одна, и писать в нее можно безбоязненно.

[madMonia]

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

А я предполагал, что есть какой-то профит в быстродействии. Не всегда ведь строчка из 10 символов.

Профит есть, но незначительный, лучше на него не полагатся.

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

Если я просто укажу теперь ссылку на символ "3", то что произойдет с "12"?

Если вы просто переназначите Pchar с ячейки, содержащей "1", на ячейку, содержащую "3", то ячейки "1" и "2" останутся в памяти, пока строка не уничтожится. Далее все зависит от как строка создавалась и очищается.

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

Или же скопирую память Move'ом в позицию "1", то что с "9"?

Если вы скопируете Move'ом, то у вас получится строка "345678989"

Чтобы изменить длину строки вам нужно создать другую строку, в нее скопировать нужное содержимое из исходной, и почистить старую строку. Это если вы работаете через PChar и GetMem. Если вы используете String то можно просто SetLength обойтись