Чтение файла в Delphi

[Siammi]

Здравствуйте!

У меня есть файл. Вот на него ссылка: http://dl.dropbox.com/u/280706/bul_hip_art.spo

Информация к файлу: Данные представлены последовательно тремя отсчетами в формате long по трем каналам
(t - указатель чтения потока данных из файла):

red = bufstream[t]; //канал красного
fon = bufstream[t+1]; //канал фона
ired = bufstream[t+2]; //канал инфракрасного

Помогите, пожалуйста, прочитать данные из файла с помощью Delphi и создать по одному массиву чисел на каждый канал.

Заранее спасибо.

[Прик]

var
  arRed, arFon, arIRed : array of Longint;

procedure TForm1.Button1Click(Sender: TObject);
var
  F : File;
  Buf : array[0..2] of Longint;
  NRead : Integer;
begin
{$I-}
  AssignFile(F, ExtractFilePath(Application.Exename)+'bul_hip_art.spo');
  try
    Reset(F, 1);
{$I+}
    if IOResult <> 0 then Exit;

    repeat
      BlockRead(F, Buf, SizeOf(Buf), NRead);
      if NRead > 0 then begin
        SetLength(arRed, Length(arRed)+1);  arRed[High(arRed)] := Buf[0];
        SetLength(arFon, Length(arRed)+1);  arFon[High(arRed)] := Buf[1];
        SetLength(arIRed, Length(arRed)+1); arIRed[High(arRed)] := Buf[2];
      end;
    until NRead = 0;

  finally
    CloseFile(F);
  end;  
end;

[mss]

Проще пареной репы:

type
  TMyData = packed record
     Red, Back, IR: Long;
  end;
  PMyArray = ^TMyArray;
  TMyArray = array[0..0] of TMyData;
var
  ms: TMemoryStream;
..
  ms := TMemoryStream.Create;
  ms.LoadFromFile('MyFile');
// обращение к i-му отсчету  
  for i := 0 to ms.Size div SizeOf(TMyData) - 1 do begin
    PMyArray(ms.Memory)[i].Red
    PMyArray(ms.Memory)[i].Back
    PMyArray(ms.Memory)[i].IR
 end;

[Прик]

Позвольте полюбопытствовать, что за конструкция такая

    PMyArray(ms.Memory)[i].Red;

которую компилятор не понимает?

[mss]

> которую компилятор не понимает

Конструкция приведена для головы, а не для компилятора.
А компилятор, разумеется, ожидает обращения к полю конкретно для записи или для чтения.

Додуматься до

SomeValue := PMyArray(ms.Memory)[i].Red; // чтение поля
PMyArray(ms.Memory)[i].Red := SomeValue; // запись поля

это, конечно, очень сложно)