Oppure

Loading
19/04/12 10:20
simone
Ho trovato alcune funzioni che sembrano fare al caso mio, ma non so come recuperare il risultato delle funzioni.
Queste sono le funzioni:

type
MBFS = array [0..3] of byte; { MBF Single Precision }
MBFD = array [0..7] of byte; { MBF Double Precision }
IEEES = array [0..3] of byte; { IEEE Single Precision }
IEEED = array [0..7] of byte; { IEEE Double Precision }

public
function CvMBFS (const MBF: MBFS): Single; { convert MBF single to IEEE single }
function MkMBFS (const Value: Single): MBFS; { convert IEEE single to MBF single }
function CvMBFD (const MBF: MBFD): Double; { convert MBF double to IEEE double }
function MkMBFD (const Value: Double): MBFD; { convert IEEE double to MBF double }
end;


procedure TForm1.Button1Click(Sender: TObject);
VAR
num1, num2, num4: double;
num3: MBFD;
begin
num1:= StrToFloat(edit1.Text);
num3 := MkMBFD(num1);
num2:=num3[0];
edit2.Text:=FloatToStr(num2);
end;

Così riesco a leggere un valore in MBF e convertirlo in IEE.
Ma se volessi leggere o scrivere un file .DAT in questo formato, non saprei come fare.
Qualcuno mi può aiutare, grazie.





Ultima modifica effettuata da simone 20/04/12 6:30
aaa