Проблема с record,string,TFileStream

[AngelOfDeath]

В чём ошибка данного кода?
Пытаюсь записать Caption формы в dat файл
И при считывании из файла caption становиться пустым

unit Unit2;

interface

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

type
FormOptionInt=record
  left,Top:Integer;
end;


type
formOptionStr = record
  FormCaption, edittext:string;
end;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
Form2.Caption:=Edit1.Text;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
var
FOS:formOptionStr;
FOI:FormOptionInt;
F:TFileStream;
begin
FOI.left:=Form2.Left;
foi.Top:=Form2.Top;
FOS.FormCaption:=Form2.Caption;
fos.edittext:=Edit1.Text;
F:=TFileStream.Create('FOI.dat',fmCreate);
f.Write(Foi,SizeOf(FOI));
f.Free;
F:=TFileStream.Create('FOS.dat',fmCreate);
f.Write(Fos,SizeOf(FOS));
f.Free;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
FOI:FormOptionInt;
FOS:formOptionStr;
F:TFileStream;
begin
if FileExists('FOI.dat') then
begin

 F:=TFileStream.Create('FOI.dat',fmOpenRead);
 f.Read(FOI,Sizeof(foi));
 f.Free;
 Form2.Left:=Foi.left;
 Form2.Top:=FOI.Top;
end;
if FileExists('FOS.dat') then
begin
  F:=TFileStream.Create('FOS.dat',fmOpenRead);
  f.Read(FOS,SizeOf(Fos));
  f.Free;
  Form2.Caption:=FOS.FormCaption;
  Form2.Edit1.Text:=FOS.edittext;
end;
end;

end.

[N!ckeL]

 F:=TFileStream.Create('FOI.dat',fmOpenRead);   
 f.Read(FOI,Sizeof(foi));

FOI-в этот момент пустая (то есть = 0, поэтому читаются 0 байт..) так же как и FOS, нужно записать их размер при уничтожении формы в отдельный файл, а потом загружать. Можно сделать так:

unit Unit2;   
  
interface   
  
uses   
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   
  Dialogs, StdCtrls;   
  
type   
FormOptionInt=record   
  left,Top:Integer;   
end;   
  
  
type   
formOptionStr = record   
  FormCaption, edittext:string;   
end;   
  
type   
  TForm2 = class(TForm)   
    Edit1: TEdit;   
    Button1: TButton;   
    procedure FormClose(Sender: TObject; var Action: TCloseAction);   
    procedure FormCreate(Sender: TObject);   
    procedure Button1Click(Sender: TObject);   
  private  
   sizeFOI, sizeFOS:integer; //размеры FOI и FOS
    { Private declarations }   
  public   
    { Public declarations }   
  end;   
  
var   
  Form2: TForm2;   
  
implementation   
  
{$R *.dfm}   
  
procedure TForm2.Button1Click(Sender: TObject);   
begin   
Form2.Caption:=Edit1.Text;   
end;   
  
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);   
var   
FOS:formOptionStr;   
FOI:FormOptionInt;   
F:TFileStream;   
begin   
FOI.left:=Form2.Left;   
foi.Top:=Form2.Top;   
FOS.FormCaption:=Form2.Caption;   
fos.edittext:=Edit1.Text;   
F:=TFileStream.Create('FOI.dat',fmCreate);   
f.Write(Foi,SizeOf(FOI));   
f.Free;   
F:=TFileStream.Create('FOS.dat',fmCreate);   
f.Write(Fos,SizeOf(FOS));   
f.Free; 

sizeFOS:=sizeof(FOS); //записываем
sizeFOI:=sizeof(FOI);
  f:=tstringlist.Create;
  f.Add(inttostr(sizeFOS));
  f.Add(inttostr(sizeFOI));
  f.SaveToFile('data.dat');
  f.Free;
  
end;   
  
procedure TForm2.FormCreate(Sender: TObject);   
var   
FOI:FormOptionInt;   
FOS:formOptionStr;   
F:TFileStream;
S:tStringList;   
begin   

f:=tstringlist.Create; //читаем
  f.LoadFromFile('data.dat');
  sizeFOS:=strtoint(f[0]);
  sizeFOI:=strtoint(f[1]);
  f.Free;

if FileExists('FOI.dat') then   
begin   
  
 F:=TFileStream.Create('FOI.dat',fmOpenRead);   
 f.Read(FOI,Sizeof(foi));   
 f.Free;   
 Form2.Left:=Foi.left;   
 Form2.Top:=FOI.Top;   
end;   
if FileExists('FOS.dat') then   
begin   
  F:=TFileStream.Create('FOS.dat',fmOpenRead);   
  f.Read(FOS,SizeOf(Fos));   
  f.Free;   
  Form2.Caption:=FOS.FormCaption;   
  Form2.Edit1.Text:=FOS.edittext;   
end;   
end;   
  
end.

Вообще чем ini файлы не нравятся?

[AngelOfDeath]

FOI считываеться нормально
Вот с FOS проблемы
Щас попробую твой способ

[N!ckeL]

ОШИБСЯ:
f:=tstringlist.Create; //читаем
f.LoadFromFile('data.dat');
sizeFOS:=strtoint(f[0]);
sizeFOI:=strtoint(f[1]);
f.Free;

[AngelOfDeath]

Да ещё и переменная не f, а s

s:=tstringlist.Create; //читаем
s.LoadFromFile('data.dat');
sizeFOS:=strtoint(s[0]);
sizeFOI:=strtoint(s[1]);
s.Free;

-------------------------------------------------------------------

Твой код неработает

[evg_m]

# FormOptionStr = record
# FormCaption, edittext:string;
# end;
#

Здесь в record хранятся ССЫЛКИ а не строки и
и соответственно идет запись ссылок (адресов) строк
Sizeof(fos) =8

record s1: string[20]; s3: string[100] end;
здесь уже сами строки и sizeof(fos)=20+100

[AngelOfDeath]

2evg_m спасибо
Я так и думал))
Вот это работает:

type
formOptionStr = record
  FormCaption, edittext:string[200];
end;

Тему можно закрыть