type
pByteArray = ^TByteArray;
TByteArray = array[0..255] of byte;
procedure WriteByteFile(const FileName : string; const BA : TByteArray);
var TFS : TFileStream;
begin
TFS := nil;
try
TFS := TFileStream.create(FileName, fmCreate);
TFS.WriteBuffer(BA,SizeOf(TByteArray));
finally
TFS.Free;
end;
end;
utilisation :
procedure TForm1.FormCreate(Sender : TObject);
var TBA : TByteArray;
x : integer;
begin
for X := 0 to 255 do TBA[X] := 255;
WriteByteFile('c:\test.bin',TBA);
end;