Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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;