Структура

[Superlotles]

Cтруктура ошибок не выдает,но и не записывает размеры окна. Где ошибка ???

type
PWindowsSize=^WindowsSize;
WindowsSize=record
Left,width,top,height:integer;
end;

  TForm1 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ws:PWindowsSize;
  f:TFileStream;

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

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

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

f.Free;

end;
end.

[mMAg]

ws.Left:=Form1.Left;
ws.Width:=Form1.Width;
ws.Top:=Form1.Top;
ws.height:=Form1.Height;

ws^.Left:=Form1.Left;
ws^.Width:=Form1.Width;
ws^.Top:=Form1.Top;
ws^.height:=Form1.Height;

возможно нужно в таком духе писать.
Да, и еще, в файл вы записываете указатель на запись, а не саму запись. Вам точно это нужно?

[Superlotles]

Ты правильно указал на ошибки(в книге потом нашел), но все-равно структура не получается. Почему-то файл не создается, но ошидок не выдает! В чем может быть проблема ???

[Пепел Феникса]

а стоит ли через указатель делать?

[Superlotles]

Да, я специально через него делаю в учебных целях , но делал и без указателя и тоже почему-то файл не создавался

[spamer]

Superlotles Ваш пример с Библии Делфи. Так вот, вы внимательно посмотрите на код в книге.

unit MainModule;

interface

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

type
  PWindowsSize = ^ WindowsSize;
  WindowsSize = record
   Left, Top, Width, Height:Integer;
  end;


  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
var
 ws:PWindowsSize;
 fs:TFileStream;
begin
 ws:=New(PWindowsSize); // Выделяем память
 if FileExists('size.dat') then
  begin
   fs:=TFileStream.Create('size.dat', fmOpenRead);
   fs.Read(ws^, sizeof(ws^));
   fs.Free;

   Left:=ws.Left;
   Top:=ws.Top;
   Width:=ws.Width;
   Height:=ws.Height;
  end;
 Dispose(ws); // Уничтожаем память
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
 ws:PWindowsSize;
 f:TFileStream;
 Str:String;
begin
 ws:=New(PWindowsSize); // Выделяем память
 ws.Left:=Left;
 ws.Top:=Top;
 ws.Width:=Width;
 ws.Height:=Height;

 f:=TFileStream.Create('size.dat', fmCreate);
 f.Write(ws^, sizeof(ws^));
 f.Free;
 Dispose(ws); // Уничтожаем память
end;

end.