BlockWrite Проверьте правильность, пожалуйста.

[Alex Cones]

В первый раз общаюсь с этой функой. Скажите пожалуйста, правильно ли я записываю палитры? (все по очереди в один файл)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ExtDlgs;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ImArr: Array[0..26] of ShortString =
  ('ABTD','ABTL','CLSD','CLSL','DDPD','DDPL','DOWN','DUPD','DUPL',
   'HLPD','HLPL','HSTD','HSTL','LEFT','MIDDLE','MNMD','MNML','RIGHT',
   'SAYD','SAYL','STND','STNL','UDPD','UDPL','UP','UUPD','UUPL');
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
 X,Y:SmallInt;
 I:Byte;
 J:Byte;
 N:Array[0..15] of Integer;
 F:File;
begin
AssignFile(F,'Palette.pal');
Rewrite(F,SizeOf(Integer)*16);
For J := 0 to 26 do
begin
 Image1.Picture.LoadFromFile(ImArr[J]+'.bmp');
For I:=0 to 15 do N[I] := 5;
 For Y:=0 to Image1.Height - 1 do // отсюда
  For X:=0 to Image1.Width -1 Do
   Begin
   I:=0;
   While N[i]<> Image1.Canvas.Pixels[X,Y] do
    If N[i] = 5 Then N[i] := Image1.Canvas.Pixels[X,Y] Else
     Inc(I);
   End; // до сюда код правильный, который просто заполняет N[0..15]
   Memo1.Clear;
For I := 0 to 15 do Memo1.Lines.Add(IntToHex(N[I],6));

BlockWrite(F,N,1);
End;
CloseFile(F);

end;

end.

[raxp]

//использование
BlockWrite(F, N, sizeof(n));

тут ошибки:

BlockWrite(F,N,1);
End;
CloseFile(F);

...может так
End;
BlockWrite(F,N,1);
CloseFile(F);

нет, может вынести за цикл?

[Alex Cones]

нет, может вынести за цикл?

Содержимое N меняется с каждым циклом, поэтому необходимо записывать данные, пока они не изменились (т.е. не открылось новое изображение с новой палитрой).

BlockWrite(F, N, sizeof(n));

Не совсем ясно, почему неправильно Rewrite(F,SizeOf(Integer)*16); Ведь N - массив из интеджера, размером в 16.

[raxp]

Содержимое N меняется с каждым циклом

тогда

BlockWrite(F, N[i], 1);

UPD
--------
...вообще лучше сделать структуру и грузить ее из/в файл:

type
  //FILE STRUCT-
  TKN=record
   Nn: Array[0..15] of integer;
  end;
  tint=record
   IMG: Array[0..26] of TKN;
  end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
const  ImArr: array[0..26] of string= ('1','1','1','1','1','1','1','1','1','1',
                                       '1','1','1','1','1','1','1','1','1','1',
                                       '1','1','1','1','1','1','1');
Var
 X,Y:SmallInt;
 I:Byte;
 J:Byte;
 N:Array[0..15] of Integer;
 F:File;
 //
 fDAT: TMemoryStream;
 int : tint;
begin
 Memo1.Clear;
 fDAT:= TMemoryStream.Create;

 For J := low(ImArr) to high(ImArr) do begin
  Image1.Picture.LoadFromFile(ImArr[J]+'.bmp');
  For I:=0 to 15 do N[i] := 5;
  For Y:=0 to Image1.Height - 1 do // отсюда
  For X:=0 to Image1.Width -1 Do Begin
   I:=0;
   While N[i]<> Image1.Canvas.Pixels[X,Y] do
    If N[i] = 5 Then N[i] := Image1.Canvas.Pixels[X,Y] Else
     Inc(I);
  End;


  For I := 0 to 15 do begin Memo1.Lines.Add(inttostr(j)+ '- ' +IntToHex(N[i],6));
   int.IMG[j].Nn[i]:= N[i] // заполняем
  end
 End;

 fDAT.Write(int, SIZEOF(int));
 fDAT.SaveToFile('1.dat');
 fDAT.Free
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
 I:Byte;
 J:Byte;
 //
 fDAT: TMemoryStream;
 int : tint;
begin
 Memo2.Clear;
 //
 fDAT:= TMemoryStream.Create;
 fDAT.LoadFromFile('1.dat');
 fDAT.Read(int, SIZEOF(int));

 For J := 0 to 26 do
  For I := 0 to 15 do memo2.Lines.Add(inttostr(j)+ '- ' +IntToHex(int.IMG[j].Nn[i],6));

 fDAT.Free
end;