Pointer & Co

[gibb]

was mich sowieso auf einen Fehler gebracht hat

Delphi-Quellcode:

Function TReadSpeedfan.ReadSFData: Boolean;
var
  hSFMemory: HWND;
  SfAreaPtr: Pointer ;
  MyResultRecord: TResultIntRecord;
begin
  result:= False;
  hSFMemory := 0;
  SfAreaPtr := nil;
  try
    hSFMemory := OpenFileMapping(FILE_MAP_READ, False, 'SFSharedMemory_ALM');
    if HSFMemory <> 0 then begin
      SfAreaPtr := MapViewOfFile(hSFMemory, FILE_MAP_READ, 0, 0, 0);
      CopyMemory(Addr(FintData),SfAreaPtr,sizeof(MyResultRecord));
      result:= UpdateData;
    end;
  finally
    UnmapViewOfFile(SfAreaPtr);
    CloseHandle(hSFMemory);
  end;
end;

was aber schlussendlich dasselbe resultat zurückliefert

EDIT:

Wieso die Volts nicht stimmen konnten lag daran:

Delphi-Quellcode:

    For i:= 0 to FIntData.NumVolts -1 do  begin
      FstrData.Volts.Add('Voltage'+inttostr(i)+':'+FormatFloat('###,##', fintData.Volts[i]/100));
    end;

hatte da FormatFloat('###,##', fintData.Temp[i]/100)