Cú pháp cho biến cục bộ tuyệt đối đối với biến số khác với một số bù đắp

Question

Có cách nào để tôi có thể khai báo một biến với địa chỉ tuyệt đối có một số thay đổi cho biến mà nó đề cập đến không. Ví dụ, thay vì:

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

là có một cách nào đó mà tôi có thể làm:

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

(Ví dụ là để minh họa mà thôi, nó không nhất thiết phải là hữu ích ..)

Answer 1

Không, tôi không nghĩ có 'cú pháp mở rộng' của từ khóa absolute. Tài liệu là here và, theo như tôi biết, không có các tính năng không có giấy tờ liên quan đến từ khóa này.

Answer 2

Không có cú pháp cho những gì bạn yêu cầu.

gì bạn có thể làm, tuy nhiên, là sử dụng con trỏ số học (nếu bạn đang sử dụng một phiên bản hỗ trợ nó), ví dụ:

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

Một cách tiếp cận đáng tin cậy hơn là sử dụng các loại StrRec kỷ lục thay vào đó, mà là những gì một String thực sự chứa nội:

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

Hoặc, phiên bản con trỏ số học phi:

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

BTW, bắt đầu bằng D2009 +, đơn vị System có chức năng StringRefCount() riêng để truy xuất số tham chiếu của chuỗi.