считывание с файла переменных типа datetime

[MOMOTOCHEK]

есть файл в котором первая строка -это время(например 11:30, 11:40 и т.д) следующие строки-это просто числа. как считать первую строку?
пробовала считать отдельно первую строку и остальные, а потом преобразовать первую строку в тип string, что бы потом в StringGride тоже выводило как 11:30.

f:textFile;
  t:TDateTime;
   s:single;
   K_V:integer;


 if OpenDialog1.Execute then
  begin
   assignfile(f,OpenDialog1.FileName);
   reset(f);

  K_v:=kill;
  while not eoln(f) do
  begin
    if vect=kill then
      readln(f,t)  --вот здесь выдает ошибку!
    else
      read(f,s);
  inc(k_v);
  end;

SetLength(exp,k_v);
  SetLength(exp[kill].Time,150);
  reset(f);

   for j:=kill to k_v-1 do
   begin
    SetLength(exp[j].A,150);
   end;

    reset(f);

    while not eof(f) do
    begin
    read(f,exp[kill].time[i]);
     for j:=kill+1 to K_V-1 do begin
       read(f,exp[j].A[i]);
     end;
    inc(i);
    end;

еще пробовала писать touble не помогло.

[phomm]

весь код , иначе ничего непонятно... или вообще весь проект с файлом ввода, тогда и будет о чем говорить

[Stilet]

readln(f,t) --вот здесь выдает ошибку!

А если прочитать как строку а потом функцией StrToTime преобразовать во время?

[Serge_Bliznykov]

есть файл в котором первая строка -это время

пример файлика дайте, тогда будет о чём поговорить предметно.

Сообщение от Stilet

если прочитать как строку а потом функцией StrToTime преобразовать во время?

+1
скорее всего, так и надо будет сделать. Только не забыть переопределить локальные установки разделителей часов, минут...

[MOMOTOCHEK]

Данные в файле, который нужно считать, в таком виде:

0:00 	98	55	64	120	80
0:30 	111	56	58	120	80
1:00	114	64	54	120	80
1:30	119	70	54	120	80
2:00	89	44	56	120	80

после считывания я их вывожу в StringGrid и на график по оси Х время.

type
 Data = record
 A:array of single;
 N:integer;
 time: array of double;
end;

var
  Form1: TForm1;
  kill:integer;
  exp:array of Data;
  K_V:integer;

procedure TForm1.Button3Click(Sender: TObject);
 var
  i,j,vect:integer;
  f:textFile;
  t:Tdatetime;
   s:single;
 
  begin

  if OpenDialog1.Execute then
  begin
   assignfile(f,OpenDialog1.FileName);
   reset(f);

  K_v:=kill;
  while not eoln(f) do
  begin
    if k_v=kill then
      readln(f,t)
    else
      read(f,s);
  inc(k_v);
  end;

  SetLength(exp,k_v);
  SetLength(exp[kill].Time,150);
  reset(f);

   for j:=kill to k_v-1 do
   begin
    SetLength(exp[j].A,150);
   end;

    reset(f);

    while not eof(f) do
    begin
    read(f,exp[kill].time[i]);
     for j:=kill+1 to K_V-1 do begin
       read(f,exp[j].A[i]);
     end;
    inc(i);
    end;

     for j:=kill to k_v-1 do
    begin
     Setlength(exp[j].A,i);
     exp[j].N:=i;
    end;

   // for i:=0 to   exp[kill].N-1 do
   //exp[kill].A[i]:=floattostr(exp[kill].time[i]);


  StringGrid1.ColCount:=4;
  StringGrid1.RowCount:=1+exp[0].N;
  StringGrid1.Cells[0,0]:='Time';
  StringGrid1.Cells[1,0]:='SAD';
  StringGrid1.Cells[2,0]:='DAD';
  StringGrid1.Cells[3,0]:='Pyls';

   for j:=kill to k_v-1 do
     for i:=0 to exp[j].N-1 do
    StringGrid1.Cells[j+1,i+1]:=FloatToStrF(exp[j].A[i],ffFixed,7,4);
  end;
  kill:=k_v;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[phomm]

это не чтение файла, это какой-то мрак, всё вперемешку.. см мой пост выше, даёшь проект, разберемся, ведь скорее всего неполадки с чтением Tdatetime из файла типа textfile, а может баги с переводом строк... или ещё что.. тебе лучше типизированный файл, вроде под пример данных которые ты написал подходит, заводи reсord для чтения, читай в массив этих записей, должно работать, ну или давай уже проект )) никто его себе не замутит ))