Получить количество ссылок AnsiString

Delphi , Синтаксис , Текст и Строки

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

function GetAnsistringRefcount(const S: string): Cardinal;
 asm
   or eax, eax
   jz @done
   sub eax, 8
   mov eax, dword ptr [eax]
 @done:
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 var
   S1, S2: string;
 begin
   memo1.lines.Add(Format('Refcount at start: %d',
     [GetAnsistringRefcount(S1)]));
   S1 := StringOfChar('A', 10);
   memo1.lines.Add(Format('Refcount after assignment: %d',
     [GetAnsistringRefcount(S1)]));
   S2 := S1;
   memo1.lines.Add(Format('Refcount after S2:=S1: %d',
     [GetAnsistringRefcount(S1)]));
   S2 := S1 + S2;
   memo1.lines.Add(Format('Refcount after S2:=S1+S2: %d',
     [GetAnsistringRefcount(S1)]));
 end;

Это фрагмент кода на языке Delphi, демонстрирующий, как получить счетчик ссылок для объекта AnsiString с помощью встроенной ассемблерной программировки.

Вот подробное описание того, что код делает:

• Функция GetAnsistringRefcount принимает строку на вход и возвращает ее счетчик ссылок в виде типа Cardinal.
• Внутри функции используется встроенная ассемблерная программировка для доступа к счетчику ссылок строки. Ассемблерный код загружает адрес строки в регистр EAX, затем вычитывает 8 из него (поскольку счетчик ссылок хранится на offset 8 от начала строки). Наконец, он перемещает полученное значение в регистр EAX.
• В процедуре Button1Click создается несколько строк и манипулируются ими для демонстрации изменения счетчика ссылок.
• Код использует функцию Format для печати счетчика ссылок для каждого шага в контроле памяти. * Вывод этого кода будет следующим:

Refcount at start: 0
Refcount after assignment: 1
Refcount after S2:=S1: 1
Refcount after S2:=S1+С2: 1

Это показывает, что счетчик ссылок initially равен 0, затем увеличивается до 1 при присваивании строки значения. Когда другая переменная присваивается тому же значению, счетчик ссылок не изменяется. Однако когда строка конкатенируется с самой собой, счетчик ссылок остается на уровне 1. * Обратите внимание, что этот код является специфичным для Delphi и использует встроенную ассемблерную программировку, которая может не быть совместима с другими компиляторами или платформами.

В статье описывается функция GetAnsistringRefcount, которая возвращает количество ссылок на строку типа AnsiString, и ее использование в примере на Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Текст и Строки ::