Comparing functions

[Razor]

Zitat von Muetze1:

Delphi-Quellcode:

procedure GetPCIRDWord(dwBus, dwDev, dwFunc, offs: byte; var pdata: Cardinal); 
function GetPCRD(Bus, Dev, Func, Reg : byte): dword;

dwBus = Bus
dwDev = Dev
dwFunc = Func
offs = Reg div 4
pData = result

Delphi-Quellcode:

procedure SetPCIRDWord(dwBus, dwDev, dwFunc, offs: byte; pdata: Cardinal);
procedure SetPCRD(Bus, Dev, Func, Reg : byte; value : dword);

dwBus = Bus
dwDev = Dev
dwFunc = Func
offs = Reg div 4
pData = value

Well so it goes like this then

Delphi-Quellcode:

var
pdata:cardinal;
begin
GetPCIRDWord(0,24,$03,$E4,pdata)
form1.caption:=pdata //???