The file is type 'File' var MF: File; bffer: array [0..127] of Byte; begin AssignFile(MF,fname); FileMode:=fmOpenWrite; Reset(MF,1); Blockwrite(MF,bffer,128); CloseFile(MF); end;
Do you reckon that would do it? 2008/12/19 Reenen Laurie <[email protected]>: > Yes... > > "Seek" the end of the file, and then write to the file... > > I think it's FileSeek these days. > > (that's if you binary file is a "file of TMyRecord") > > > On Fri, Dec 19, 2008 at 3:10 PM, Dave Coventry <[email protected]> wrote: >> >> Can one do this? >> >> I know that you can append test to the end of Text files, but can you >> tack on data to an existing file? >> _______________________________________________ >> Lazarus mailing list >> [email protected] >> http://www.lazarus.freepascal.org/mailman/listinfo/lazarus > > > > -- > o__ > ,_.>/ _ > (_)_\(_)_______ > ...speed is good > _______________ > I believe five out of four people have a problem with fractions. > > _______________________________________________ > Lazarus mailing list > [email protected] > http://www.lazarus.freepascal.org/mailman/listinfo/lazarus > > _______________________________________________ Lazarus mailing list [email protected] http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
