Загрузка - Выгрузка структуры из dat файла

[delphinewerklin]

Пишу программу, в которой необходимо при нажатии кнопки нужно будет сохранять информацию из эдитов в структуру, а структуру в dat - файл. А при открытии окна - загружать в структуру из dat - файла данные, а затем выводить в поля ввода. Чтобы было понятнее - это окно настроек одного проекта. Только проблема: ошибок в коде нет, но поля ввода либо вообще ничего не отображают при загрузке, либо всякую дрянь. Писал программму на основе главы из "Библии Дельфи" об использовании структур и записи в файл.

 unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  People = record
   FirstName: string;
   SecondName: string;
   age: integer;
   end;


  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


  var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 pep: People;
 fs: TFileStream;
begin
 
 pep.FirstName:=Edit1.Text;
 pep.SecondName:=Edit2.Text;
 pep.age:=StrToInt(Edit3.Text);
 
 fs:=TFileStream.Create('C:\sunny.dat', fmCreate);
 fs.Write(pep, sizeof(pep));
 fs.Free;

end;

procedure TForm1.FormShow(Sender: TObject);
var
 pep: People;
 fs: TFileStream;
begin
 
 if FileExists('C:\sunny.dat') then
 begin 
  fs:=TFileStream.Create('C:\sunny.dat', fmOpenRead);
 fs.Read(pep, sizeof(pep));
 fs.Free;
 
 Edit1.Text:=pep.FirstName;
 Edit2.Text:=pep.SecondName;
 Edit3.Text:=IntToStr(pep.age);
 end;
end;

end.

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[mihali4]

ошибок в коде нет, но поля ввода либо вообще ничего не отображают при загрузке, либо всякую дрянь

Ну, ежели

else
  fs:=TFileStream.Create('C:\sunny.dat', fmCreate);
 fs.Read(pep, sizeof(pep));

то там и будет непонятно что...

[delphinewerklin]

Исправил, но не заработало.

[SnX]

Нужно определять строки фиксированной длинны.

type
  People =packed record
   FirstName: string[50];
   SecondName: string[50];
   age: integer;
   end;

[delphinewerklin]

Спасибо большое, помогло.