index_file_name:=xxx+'inx';
   data_file_name:=xxx+'.dat';
   if (f_size(index_file_name)<=4) or --> 이거하고..
      (not f_exist(data_file_name)) then begin
      del(data_file_name); del(index_file_name) --> del 이거하고..
      end;
   if f_exist(data_file_name) then begin
      message('기존의 자료를 읽고 있습니다...', $0e); gotoxy(56,25);
      already:=true;
      Tcount:=f_size(index_file_name) div 4 -1;
      assign(index_f, index_file_name); reset(index_f); read(index_f, count);
      assign(data_f, data_file_name); reset(data_f,1);
      count:=0;
      for n:=1 to Tcount do begin
          read(index_f, index);
          if index>=0 then begin
             inc(count);
             seek(data_f, index);
             blockread(data_f, buff, 36);
             number[count]^:=chr(buff[ 8] shr 4 + $30) + chr(buff[ 8] and $0f + $30) + '-' +
                             chr(buff[ 9] shr 4 + $30) + chr(buff[ 9] and $0f + $30) +
                             chr(buff[10] shr 4 + $30) + chr(buff[10] and $0f + $30);
             money[count]:=b_h(buff[34])*longint(10000) +
                           b_h(buff[35])*100 + b_h(buff[36]) --> 이쪽은 파일의 내용을 버퍼에 배열로 잡아 넣는 것인것 같은데.. 설명좀..
          end;
      end;
      seek(index_f, 0); write(index_f,count);
      close(index_f); close(data_f);
      show_max_n:=calc_start_n;
      show_data(show_max_n);
      message_2
      end


dat 파일과 inx 파일이 있는데.. 열어 보려고 하는데.. 깨져요.. 아시는분은 메일 아님 답변좀 달아 주세요..
dat 파일이나 inx 파일을 열수 있는 소스는 주심 좋구요.. 감사..