[Lotles]

Код:

type
TWindowsSize=record
Left,width,top,height:integer;
end;
  TFileStream1=class(TFileStream);
  TForm1 = class(TForm)
var
  Form1: TForm1;
  ws:TwindowsSize;
  f:TFileStream1;
implementation

{$R *.dfm}


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ws.Left:=Form1.Left;
ws.width:=Form1.Width;
ws.top:=Form1.Top;
ws.height:=Form1.Height;
f:=TFileStream1.Create ('C:\Documents and Settings\Сергей\Рабочий стол\666.dat',fmCreate);
f.Write (ws,sizeof(ws));
f.Free;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
if FileExists ('C:\Documents and Settings\Сергей\Рабочий стол\666.dat') then
begin
f:=TFileStream1.Create('C:\Documents and Settings\Сергей\Рабочий стол\666.dat',fmOpenRead);
f.Read(ws,sizeOf(ws));
f.Free;
end;

Left:=ws.Left;
Height:=ws.height;
Top:=ws.top;
Width:=ws.width;
end;
end.;) 

Admin: Пользуемся тегами!

Она ошибок не выдает, но и не записывается. В чем проблема ?

[lmikle]

1. Зачем перекрывать TFileStream, если ты не изменяешь его. Этот класс вообще трогать не надо. Надо просто пользоваться экземпляром этого класса.
2. Попробуй воспользоваться методом WriteBuffer.