i:=i+1 или Inc(i)

[Krasiosoft]

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

Сделайте обертку, проблем-то.

В это проблем точно нет. Просто думал, может такая уже есть.

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

В догонку: Задачка №5

При выполнении UniqueString копирование строки в новую область памяти "урежет" хвост, из-за чего и получим результирующую экономию в те самые 30%-50%.

Честно говоря, я не понял как это будет экономить память.

Было:

var
  S: String;
...
    S := S + {...};
    writeln(S);
...

А так будет экономия в 30%-50%:

var
  S, D: String;
...
    S := S + {...};
     
    D := S;
    UniqueString(D);
    writeln(D);
...

[BDA]

Krasiosoft, там есть ответ (если вдруг пропустили) - http://www.gunsmoker.ru/2010/12/5.html.

[Slym]

Не получилось

[Arigato]

Сообщение от Чудо-программист

Он что, умел развертывать процедуру?

А это разве процедура в привычном виде? Если так, то реализуйте на Турбо Паскале процедуру типа write, где произвольное число аргументов и произвольные типы данных у этих аргументов.

[Чудо-программист]

Эмм... согласен

[Krasiosoft]

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

Krasiosoft, там есть ответ (если вдруг пропустилли) - http://www.gunsmoker.ru/2010/12/5.html.

Смотрел, но не понял.

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

Функция UniqueString перевыделяет кусок памяти конкретно под длину строки. Что память под строку выделяется с запасом, это и так понятно, но не на столько же (30%-50%). К тому же, почему после обычного присвоения строк не происходит то же самое?