꾸벅 먼저 감사드리고요 ^^

일반 Text 화일이야 그냥 오픈해서 원하는 부분 쪼게오면 되는데
binary는 그러면 이상한 문자만 불러와 지네요... --;;;

쪼개려는 화일이 확장자가 std 인데...

Header 정보가

REC_LEN = unsigned short
REC_TYP = unsigned char
REC_SUB = unsigned char (10)

binary 화일 불러오는 법점 부탁드립니다.

아래는 text불러오기 참조

  type
  sRec = Record
    REC_LEN : integer;
//    REC_TYPE : ^integer;
//    REC_SUB : ^integer;
  end;

var
  Form1: TForm1;
  sFile : File of sRec;
  sr : sRec;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

  if OpenDialog1.Execute then begin
    AssignFile(sFile, OpenDialog1.FileName);

    Reset(sFile) ;


    for i := 1 to 1 do begin
      Read(sFile, sr);
      ListBox1.Items.Add(intToStr(sr.REC_LEN));
    end;
  end;

  FileClose(fd);
end;