i use this code for insert the records in a .dat file:
type TMyRecord = record Name: string; Surname: char; end; var Members: array[1..50] of TMyRecord;
and this code for read:
var F : file of TMyRecord; i : integer; begin AssignFile(F,'members.dat') ; Rewrite(F) ; try for j:= 1 to 50 do Write (F, Members[j]) ; finally CloseFile(F) ; end; end;
How can i add and read image or other resource on this .dat file?
var Member: TMyRecord F : file of TMyRecord; begin AssignFile(F,'members.dat') ; Reset(F) ; try while not Eof(F) do begin Read (F, Member) ; showmessage(member.name); showmessage(member.surname); end; finally CloseFile(F) ; end; end;
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
25 Experts available now in Live!