菜鸟遇到很难的问题,翻了好多书都没找到希望高手进来帮忙.重谢


interface
uses
   Classes;
type
TBuf=array[0..255] of Byte;
const
Buf256_0:TBuf=(
$4D,$5A,$50,$00,$02,$00,$00,$00,
$04,$00,$0F,$00,$FF,$FF,$00,$00,
$B8,$00,$00,$00,$00,$00,$00,$00,
$40,$00,$1A,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$01,$00,$00,
$BA,$10,$00,$0E,$1F,$B4,$09,$CD,
$21,$B8,$01,$4C,$CD,$21,$90,$90,
$54,$68,$69,$73,$20,$70,$72,$6F,
$67,$72,$61,$6D,$20,$6D,$75,$73,
$74,$20,$62,$65,$20,$72,$75,$6E,
$20,$75,$6E,$64,$65,$72,$20,$57,
$69,$6E,$33,$32,$0D,$0A,$24,$37,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00
);
var
  fs : TFileStream;
  buf : array[0..255] of Byte;
  
  buf[0] := ...  fs := TFileStream.Create( 'c:\main.exe', fmCreate );
  fs.write( buf[0], sizeof(Byte)*256 );
  fs.Free;
var
  fs : TMemoryStream;
  buf : array[0..255] of Byte;
  
  buf[0] := ...  fs := TMemoryStream.Create;
  fs.write( buf[0], sizeof(Byte)*256 );
  fs.savetofile(...);
  fs.Free;
------------------------------------------------------------
Buf256_0:TBuf=(
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00
................................
buf : array[0..255] 这是怎么写进去的 ?我想把一个dpr文件写成象他这种Buf256_0:TBuf=(
$00,$00,$00,$00,$00,$00,$00,$00,
格式需要怎么做?如果高人不明白我这些话是什么意思就请留下QQ.麻烦你们了.我语言表达能力比较差.我是巨菜希望高人指点最好留下QQ..非常感谢...