(Gast)
n/a Beiträge
|
Re: Comparing functions
5. Nov 2007, 08:58
As you can see here i was experimenting something and the below looked like is it gonna happen but should i worry about warning?
Delphi-Quellcode:
procedure tmainfrm.amd64x2start;
var
C0:string;
GetInstance:tomcdrv;
pdata: DWord;
begin
GetInstance.IPCIIORef.GetPCIRDWord(0,24,$03,$E4,pdata);
GetInstance.IPCIIORef.SetPCIRDWord(0,24,$03,$E4, pdata and not (1 shl 2));
GetInstance.IPCIIORef.GetPCIRDWord(0,24,$03,$E4,pdata);
C0:=Format('%d °C',[(pdata shr 16 and $FF)-49]);
RzLabel99.caption:=C0;
//But then i get [Warning] Temperatures.inc(117): Variable 'GetInstance' might not have been initialized
Or.....
Delphi-Quellcode:
procedure tmainfrm.amd64x2start;
var
C0:string;
pdata: DWord;
begin
OMCDRV.tGetPCIRDWord(0,24,$03,$E4,pdata);
OMCDRV.tSetPCIRDWord(0,24,$03,$E4, pdata and not (1 shl 2));
OMCDRV.tGetPCIRDWord(0,24,$03,$E4,pdata);
C0:=Format('%d °C',[(pdata shr 16 and $FF)-49]);
RzLabel99.caption:=C0;
//But then i get [Fatal Error]Internal error: BA1993 or [Fatal Error] Internal error: L1333
|
|
Zitat
|