Уроки по Delphi



         

If IOResult<>0 then Exit;


Write(f,Form1.Top);

Write(f,Form1.Left);

Write(f,Form1.Width);

Write(f,Form1.Height);

CloseFile(f);




Содержание  Назад  Вперед