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

[VadEr]

Всем привет!

Помогите, пожалуйста разобраться. Есть текстовый файл, который содержит строики чисел разделенные пробелами и требуется занести их в массив. И все бы хорошо, но в конце каждой строки (после последнего числа) имеются пробелы. В результате чтение становится не корректным. Каким образом мне исправить положение?

Ниже представленный код нормально работает, если в конеце строк не имеются пробелы(табы):

var
i, j, q :integer;
mas :array of array of integer;
...

i := 0; j := 0;
  while not eof(f) do
  begin
     Inc(i);
     Setlength(mas, i);
     while not eoln(f) do
     begin
        read(f, q);
        Inc(j);
        Setlength(mas[i-1], j);
        mas[i-1][j-1] := q;
     end;
     readln(f);
     j := 0;
  end;

Второй вопрос: как мне проверить в этом цикле - пустая ли строка? А то получается, если строка пустая, то формируется новый элемент в динамическом массиве.

[Tirendus]

Можно посмотреть на этот текстовик? Немного не понятно как всё-таки разделяются строки

[VadEr]

Все разобрался, в Delphi есть функция SeekEoln(f), которую надо было использовать вместо eoln(f).