![]() |
|
#10
|
||||
|
||||
![]() Цитата:
Код:
//Сохранить var FS: tfilestream; begin FS := TFileStream.Create( 'vkladki.opt', fmCreate ); FS.WriteComponent( PageControl1 ); FS.Free; end; //Загрузка var FS: tfilestream; begin FS := TFileStream.Create( 'vkladki.opt', fmOpenRead ); PageControl1 := FS.ReadComponent( PageControl1 ) as TPageControl; FS.Free; end; Помогаю за Спасибо ![]() |