C++과 같은 Delphi 템플릿?

Question

제발, 누구든지 나를 위해이 코드를 변환 할 수 있습니까?

나 C++에 대해 많이 모르는, 그래서 델파이로 C++에서이 코드를 변환해야합니다

template <typename DestType, typename SrcType> 
DestType* ByteOffset(SrcType* ptr, ptrdiff_t offset) 
{ 
     return reinterpret_cast<DestType*>(reinterpret_cast<unsigned char*>(ptr) + offset); 
} 

감사합니다 ...

Answer 1

그것은, 변환 실제로 매우 간단하지만, 당신은 델파이에서 템플릿을 사용할 수 없습니다. 포인터에 오프셋을 추가하는 것 뿐이지 만 오프셋은 포인터 기본 형식의 배수가 아닌 바이트 단위로 지정됩니다.

그래서

PIMAGE_NT_HEADERS(PAnsiChar(DosHeader)+DosHeader.e_lfanew) 

좀 더 예에

ByteOffset<IMAGE_NT_HEADERS>(DosHeader, DosHeader->e_lfanew) 

변환 : 등등

ExportDirectory := PIMAGE_EXPORT_DIRECTORY(PAnsiChar(DosHeader)+ 
    NtHeader.OptionalHeader. 
    DataDirectory[IMAGE_DIRECTORY_ENTRY_EXPORT].VirtualAddress); 

functions := PDWORD(PAnsiChar(DosHeader)+ExportDirectory->AddressOfFunctions); 

하고 있습니다.

type 
    ByteOffset<DestType, SrcType> = class 
    public 
    type 
     PSrcType = ^SrcType; 
     PDestType = ^DestType; 

    class function At(ptr: PSrcType; offset: NativeInt): PDestType; 
    end; 

class function ByteOffset<DestType, SrcType>.At(ptr: PSrcType; offset: NativeInt): PDestType; 
begin 
    Result := PDestType(PByte(ptr) + offset); 
end; 

:

Answer 2

델파이 제네릭은 C++ 템플릿에 가장 가까운 equivilent 예입니다.

var 
    I: Integer; 
    W: PWord; 
begin 
    I := $11223344; 
    W := ByteOffset<Word, Integer>.At(@I, 2); 
end;