brianm
asked on
How Can I See the Data
How can I assign the Data in (var Rec) to a Normal var Type and modify if.
Function TFile.FBlockRead(Var Buf; Size: Cardinal): Cardinal;
begin
If Assigned(fOnIo) then OnIo(Self);
(*$IfDef Win32 *)
Size:=FileRead(FHandle,Buf ,Size*RecL en);
Result:=Size div RecLen;
(*$Else *)
BlockRead(f,Buf,Size*RecLe n,Size); FBlockRead:=Size div RecLen;
(*$EndIf *)
end;
Thank You
Function TFile.FBlockRead(Var Buf; Size: Cardinal): Cardinal;
begin
If Assigned(fOnIo) then OnIo(Self);
(*$IfDef Win32 *)
Size:=FileRead(FHandle,Buf
Result:=Size div RecLen;
(*$Else *)
BlockRead(f,Buf,Size*RecLe
(*$EndIf *)
end;
Thank You
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
No comment has been added lately, so it's time to clean up this TA.
I will leave a recommendation in the Cleanup topic area that this question is:
split points between raidos and Madshi
Please leave any comments here within the next seven days.
PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER!
Thanks,
geobul
EE Cleanup Volunteer
I will leave a recommendation in the Cleanup topic area that this question is:
split points between raidos and Madshi
Please leave any comments here within the next seven days.
PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER!
Thanks,
geobul
EE Cleanup Volunteer
This old question needs to be finalized -- accept an answer, split points, or get a refund. For information on your options, please click here-> http:/help/closing.jsp#1
EXPERTS:
Post your closing recommendations! No comment means you don't care.