Уроки по Delphi


         

If IOResult<>0 then Exit;


Write(f,Form1.Top);

Write(f,Form1.Left);

Write(f,Form1.Width);

Write(f,Form1.Height);

CloseFile(f);



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