如何從TBytes數組訪問DWORD？

Question

我有一個TBytes數組，我想像DWORD數組那樣訪問它，但我不想創建TBytes數組的新副本。我試圖對它進行類型轉換，但新變量的長度與舊的長度相同，而不是Length(TBytes)/4，因爲它應該是這樣。如果我想設置正確的長度，Delphi會複製它並且兩個數組之間的連接丟失。有可能使它工作？

Answer 1

您需要獲取指向數組數據的指針，然後對其進行類型轉換。只需對指針進行類型轉換不會改變您仍然指向一個字節數組的事實，這就是爲什麼長度相同。你必須通過4

除以數組長度手動計算的DWORD S上的號碼試試這個：

var 
    bytes: TBytes; 
    values, value: LPDWORD; 
    i, numValues: Integer; 
begin 
    // populate bytes as needed... 
    values := LPDWORD(bytes); 
    value := values; 
    numValues := Length(bytes) div sizeof(DWORD); 
    for I := 0 to numValues-1 do 
    begin 
    // use value^ as needed... 
    Inc(value); 
    end; 
end; 

或者，如果您使用的是德爾福2009+：

{$POINTERMATH ON} 

var 
    bytes: TBytes; 
    values: LPDWORD; 
    i, numValues: Integer; 
begin 
    // populate bytes as needed... 
    values := LPDWORD(bytes); 
    numValues := Length(bytes) div sizeof(DWORD); 
    for I := 0 to numValues-1 do 
    begin 
    // use values[i] as needed... 
    end; 
end;