|
Registriert seit: 28. Feb 2007
Ort: Bottrop
265 Beiträge
Delphi 5 Enterprise
|
Re: Pointer & Co
4. Mär 2010, 16:15
fillchar(buffer,1000,0); // Dein Buffer ist gar nicht so groß
RetVal.Temps = mMyArea.NumTemps
RetVal.Volts = mMyArea.NumVolts
RetVal.Fans = mMyArea.NumFans
For x = 0 To 32 Step 2
RetVal.Temp(x / 2) = mMyArea.Temps(x) / 100
RetVal.Fan(x / 2) = mMyArea.Fans(x)
RetVal.Volt(x / 2) = mMyArea.Volts(x) / 100
Next
ist eine VB -Schleife, die die Integer aus den einzelnen Feldern in Floats umrechnet, wobei die Schrittweite 2 ist, also nur 16 Werte übertägt
Glückauf
|