Изменение порядка байт в файле

[Пепел Феникса]

блокнот к тому же плохо читает битовые файлы.

Допустим в файле 6 байт, а массив начинается с нуля. То есть [0..5]

кхм...
по коду...

procedure TForm1.Button1Click(Sender: TObject);
var
f:tfilestream;
a:array of byte;
i:integer;
begin
f:=tfilestream.Create('c:\my.file',fmOpenReadWrite);
setlength(a,f.size);//длина массива это размер файла(без вычитаний)
for i:=0 to f.Size-1{или Length(a)-1//про последний элемент дин массива не забываем} do
f.Read(a[i],1);
f.Size:=0;//тут поидее можно просто f.Position:=0; размер то файла не меняется
for i:=length(a)-1{аналогично про последний элемент} downto 0 do
f.Write(a[i],1);
setlength(a,0);
f.Free;
end;

поидее так...а то наткнемся на непонятные ошибки потом.