Delphi Pointer & Co - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

Pointer & Co

Ein Thema von gibb · begonnen am 3. Mär 2010 · letzter Beitrag vom 16. Mär 2010

Vorheriger Beitrag

Nächster Beitrag

guinnes

Registriert seit: 28. Feb 2007
Ort: Bottrop
265 Beiträge

Delphi 5 Enterprise

#16

Re: Pointer & Co

4. Mär 2010, 15: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