Чтение и пропуск строк в файле DELPHI 7

[Николай ПН]

Такая проблема, есть файл в котором через TAB записано:

#		t[min]		M.rot.sp.[Hz]	At.rot.sp.[Hz]	Act.curr[A]
 
0		0						
1		0.517		001500		001500		130
2		0.933		001500		001501		130
3		1.35		001500		001500		130
4		1.767		001500		001500		130
5		2.2		001500		001500		130
6		2.617		001500		001500		120
7		3.05		001500		001500		140
8		3.467		001500		001500		140
9		3.9		001500		001500		130
10		4.317		001500		001500		130

я хочу вывести все один из столбиков в memo. Вот код

procedure TForm1.bpClick(Sender: TObject);
var
  F: textfile;
  A,S,D,H,G,k: integer;
begin
  assignfile(F, 'TCP350_41.txt');
  reset(F);
    while not EOF(f) do
    begin
      read(F,A,S,D,H,G);
      mmoutput.Lines.Add(floattostr());
    end;
  closeFile(F);
end;

И вот беда программа не работает пока есть первые 3 строки, а когда их убрать из файла все работает.
Вопрос: Как сделать так, чтобы выводился любой столбик, но при этом текст не удалять. А чтобы сам файл оставался без изменений

[Don Karleone]

интересно, как вы хотите в целочисленную переменную А прочитать строку t[min].

Сообщение от Николай ПН

я хочу вывести все один из столбиков в memo.

поразборчивее можно...

[Николай ПН]

Сообщение от Don Karleone

интересно, как вы хотите в целочисленную переменную А прочитать строку t[min].

Ну да тут прошу прощения, это уже после всяких выдумок так осталось.
Пусть будет тип real.

mmoutput.Lines.Add(floattostr(A));

в данном случае у меня в memо выводиться

1
2
3
4
5
6
7
8
9
10

, но если первые 3 строки предварительно удалить. Зайдя в сам файл.
А как сделать без удаления. Чтобы файл оставался таким всегда, а результат все равно выводился

1
2
3
4
5
6
7
8
9
10

[Пепел Феникса]

попробуйте по экспериментировать с readln(F);
до чтения данных(то есть до того как читать данные вставьте три раза)
попробуйте

[Don Karleone]

Сообщение от Николай ПН

Ну да тут прошу прощения, это уже после всяких выдумок так осталось.
Пусть будет тип real.

Ну а как вы в тип реал прочитаете строку t[min]???? t[min] - это строка а не число!
Вам надо вывести только первый столбец в memo?

[Николай ПН]

Сообщение от Don Karleone

Ну а как вы в тип реал прочитаете строку t[min]???? t[min] - это строка а не число!
Вам надо вывести только первый столбец в memo?

любой из этих, только без этих элементов

#		t[min]		M.rot.sp.[Hz]	At.rot.sp.[Hz]	Act.curr[A]
 
0		0

[Don Karleone]

сделайте как написал Пепел Феникса. Поставьте перед while четыре readln(f);

[Николай ПН]

Спасибо, все работает.

[Николай ПН]

А если такие паразитые строки в середине файла?

					
1		0.517		001500		001500		130
2		0.933		001500		001501		130
3		1.35		001500		001500		130
4		1.767		001500		001500		130
5		2.2		001500		001500		130
6		2.617		001500		001500		120
#		t[min]		M.rot.sp.[Hz]	At.rot.sp.[Hz]	Act.curr[A]
 
0		0	
7		3.05		001500		001500		140
8		3.467		001500		001500		140
9		3.9		001500		001500		130
10		4.317		001500		001500		130

К примеру так. И не факт, что именно в этом месте.

[Don Karleone]

тогда считывайте из файла целую строку readln(f, st), где st: string;
а затем обрабатывайте эту строку, выризайте из нее числа.