Цитата(DL36 @ Nov 6 2008, 10:10)

Я работал в дельфи 3,4,5 а сейчас работаю на С и жалею времени потраченного на дельфи.
Вы вот специалист в дельфи подскажите как решается проблема с указателями
Вот уж действительно жалко, время потрачено, а решения проблемы нет. Но причем тут дельфи? Я передавал указатели так
Type
PUsr_Keys_Info = ^TUsr_Keys_Info;
TUsr_Key_Info = Packed Record
Num : Array [0..10] Of Char;
Status : Word;
END;
TUsr_Keys_Info = Array[0..15] OF TUsr_Key_Info;
VAR
Data : Cardinal;
pKeysInfo : PUsr_Keys_Info;
nKeySlots : Word;
pGetDrvInfo : FUNCTION( pKeysInfo : PUsr_Keys_Info;
pKeySlots : PWord ) : Word; StdCall; {Описание функции в DLL}
implementation
PROCEDURE FormCreate(Sender: TObject);
begin
inherited;
Data := LocalAlloc(LMEM_FIXED, SizeOf( TUsr_Keys_Info ) );
pKeysInfo := LocalLock( Data );
…
CheckOper( pGetDrvInfo( pKeysInfo, @nKeySlots )); //Вызываем функцию и передаем указатель
end;