Типизированный файл (Delphi)

[celvin]

Есть некий файл, хранящий даты. Например, 08.01.2013. Каждая строка новая дата. Всего их 10. Нужно даты из файла загрузить в массив, например, по нажатию кнопки. Делаю так:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  Data: File of TDateTime;
  T: array[0..9] of TDateTime;
begin
  AssignFile(Data,'Дата.txt');
  if FileExists('Дата.txt') then
  begin
    Reset(Data);
    for i:=0 to 9 do
      Read(Data, T[i]);
    CloseFile(Data);
  end;
end;

Но в массиве Т получаю, не то, что надо. Например, дата 08.01.2013 в массиве должна храниться как число 41282, а вместо этого получаю 1,5700932743e-76. Что я не так делаю?

[s-andriano]

Дата должна храниться в виде целого числа, а у Вас, судя по записи, число с плавающей точкой.

[celvin]

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

[eval]

TDateTime это число а не строка и файл ваш не тот что вы думаете.
И возьмите xml, работы на пять минут с обедом.

[NewLamer&Programer]

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

Нужно даты из файла загрузить в массив, например, по нажатию кнопки.

procedure TForm1.Button1Click(Sender: TObject);
Var SL: TStringList;
begin
SL:= TStringList.Create;
if FileExists('Дата.txt') then
SL.LoadFromFile('Дата.txt');
...
SL.Free;
end;