Składnia zmiennej bezwzględnej lokalnej na inną zmienną z pewnym przesunięciem

Question

Czy istnieje sposób, w jaki mogę zadeklarować zmienną o adresie bezwzględnym, który ma pewne przesunięcie względem zmiennej, do której się odnosi. Na przykład, zamiast:

function RefCount(const s: string): Integer; 
begin 
    Result := PInteger(Integer(s) - 8)^; 
end; 

jest jakiś sposób, że można zrobić:

function RefCount(const s: string): Integer; 
var 
    Count: PInteger absolute s {- 8 ?} ; 
begin 
    Result := Count^; 
end; 

(Przykładem jest tylko zilustrowanie, a nie koniecznie przydatne ..)

Answer 1

Nie, nie sądzę, że istnieje "rozszerzona składnia" słowa kluczowego absolute. Dokumentacja jest here i, o ile mi wiadomo, nie ma żadnych nieudokumentowanych funkcji związanych z tym słowem kluczowym.

Answer 2

Nie ma żadnej składni tego, o co prosisz.

Co można zrobić, jest jednak użyć arytmetyki wskaźników (jeśli używasz wersji obsługującej go), np:

function RefCount(const s: string): Integer; 
begin 
    if s <> '' then 
    Result := (PInteger(s) - 2)^; 
    else 
    Result := 0; 
end; 

Bardziej wiarygodny podejściem jest zamiast użyć typu StrRec rekord, który jest to, co faktycznie zawiera String wewnętrznie:

function RefCount(const s: string): Integer; 
begin 
    if s <> '' then 
    Result := (PStrRec(s) - 1)^.refCnt 
    else 
    Result := 0; 
end; 

Lub non wersja wskaźnik arytmetyka:

function RefCount(const s: string): Integer; 
begin 
    if s <> '' then 
    Result := PStrRec(LongInt(s) - SizeOf(StrRec))^.refCnt 
    else 
    Result := 0; 
end; 

BTW, począwszy od D2009 +, jednostka System ma własną funkcję StringRefCount(), która odtwarza liczbę referencyjną ciągu.