Code: Select all
procedure MemoryDallasWriteReal( EEdir : word ; dato: real);
var
dir : word;
ptr : ^real;
i : byte;
begin
dir := EEdir;
ptr := @dato;
for i := 1 to 4 do
begin
ReadDallasByte(dir,ptr^); // BYTE and BYTE
dir := dir + 1;
ptr := ptr + 1;
end;
end;
39 1009 Warning: Implicit typecast performed from "integral" to "real" MemoryDallas.mpas
and the function always return in dato = 32.
????
Same to the inverse function
Code: Select all
procedure MemoryDallasWriteReal( EEdir : word ; dato: real);
var
dir : word;
ptr : ^real;
i : byte;
begin
dir := EEdir;
ptr := @dato;
for i := 1 to 4 do
begin
WriteDallasByte(dir,ptr^);
dir := dir + 1;
ptr := ptr + 1;
end;
end;
Any idea or workaround?