Считывание из файла записи переменной длины

[royun]

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

Есть файл, содержащий следующий текст:

12-01-1800:151 721BWMTT B1 0 0 0 0 1 312 1 308 02BWMTT B1 61 0 0 0 0 0 0 0 03BWMTT B1 0 0 0 0 0 0 0 0
12-01-1800:151 721CCS7M2I1 0 0 0 0 02CCS7M2I1 0 0 0 0 0 0 4CCS7M2I1 0 8CCS7M2I1 0 0 1CCS7TTI1 0 900 0 0 0
12-01-1800:151 721BOMTS B1 0 0 0 0 6 284 1 36 02BOMTS B1 30 0 0 0 0 0 0 0 03BOMTS B1 0 0 0 0 0 0 0 4 4BOMTS B1 0 0 0 0 0 0 0 0 5BOMTS B1 0 0 0 0 0 0 8BOMTS B1 0 0 0 0 1BW51 B1 2 32 0 0 2 48 0 0 02BW51 B1 10 0 0 0 0 0 0 0 03BW51 B1 0 0 0 0 0 0 0 2

И есть код, который правильно считывает:

type
  TTgrp = record
  //постоянная часть
  Date : array[0..7] of Char;
  Time : array[0..4] of Char;
  DQ : array[0..2] of Char;
  VRPL : array[0..2] of Char;
  //переменная часть
  Index: Char;
  TGNO: array[0..5] of Char;
  Opmode: Char;
  Availability: Char;
  Counter1: array[0..6] of Char;
  Counter2: array[0..6] of Char;
  Counter3: array[0..6] of Char;
  Counter4: array[0..6] of Char;
  Counter5: array[0..6] of Char;
  Counter6: array[0..6] of Char;
  Counter7: array[0..6] of Char;
  Counter8: array[0..6] of Char;
  Counter9: array[0..6] of Char;
  end;

var
f: file;
Tgrp: TTgrp;
begin
if not OpenDialog1.Execute then exit;
AssignFile(f, Opendialog1.FileName);
Reset(f, sizeof(tgrp));
//while not EOF(f) do
//begin
      BlockRead(f, Tgrp,1);
      Edit1.Text:=Tgrp.Date;
      Edit2.Text:=Tgrp.Time;
      Edit3.Text:=Tgrp.DQ;
      Edit4.Text:=Tgrp.VRPL;
//    переменная часть
      Edit5.Text:=Tgrp.Index;
      if Tgrp.Index='1' then 
            begin
            Edit6.Text:=Tgrp.TGNO;
            Edit7.Text:=Tgrp.Opmode;
            Edit8.Text:=Tgrp.Availability;
            Edit9.Text:=Tgrp.Counter1;
            Edit10.Text:=Tgrp.Counter2;
            Edit11.Text:=Tgrp.Counter3;
            Edit12.Text:=Tgrp.Counter4;
            Edit13.Text:=Tgrp.Counter5;
            Edit14.Text:=Tgrp.Counter6;
            Edit15.Text:=Tgrp.Counter7;
            Edit16.Text:=Tgrp.Counter8;
            Edit17.Text:=Tgrp.Counter9;
            end
            .............
CloseFile(f);
end;

Для теста вывожу данные в Edit-ы. Проблема заключается в том, что в файле есть переменная часть. Не могу додуматься, как рассчитать длину переменной части.

[InternetStranger]

Я чего-то видимо недопонимаю. Проблема в том, что строки различной длины?

И есть код, который правильно считывает

Но ведь объявленная структура TTgrp сама по себе фиксированной длины. Значит правильно считывается только начало строки, а Counter1-9 ошибочны.
Насколько понимаю Вашу проблему, по-моему, BlockRead тут никак не поможет, придется читать целиком строку и парсить ее (безумно удобно с помощью explode).