Delphi World - Получить количество ссылок AnsiString
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Получить количество ссылок AnsiString

Оформил: 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 World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования