You know you can buy Student Versions which are not so Expensive ?
You know you can buy Student Versions which are not so Expensive ?
You know you can buy Student Versions which are not so Expensive ?
Function ReadSingle(Offset:Integer; Var FileOffset:Integer):Single;
Var Address:^Single;
Begin
Address:=@FileData[Offset+FileOffset];
ReadSingle:=Address^;
Inc(FileOffset,4);
End;