Изтегляне на настройките на програмата от файл
Само полезни материали
Основен акционер в Alibaba стана най-богатият човек в Китай
статии
Microsoft започна тестване частен офис 16
статии
Експертите са установили, вратички в Windows 8.1 за сигурност
статии
В метрото в Москва ще бъде единна мобилна мрежа
статии
иБей ще приема Bitcoin
статии
Vivitek въведе "училище" проектор D755WTIR
статии
В Twitter е имало бутона "Купи"
статии
"Yandeks.Novosti" вече могат да се видят на iPhone
статии
Много хора се чудят как да направят това ще е програма, написана на Delphi при затваряне запазва настройките си за даден файл и при отваряне се да ги заредите от там. В действителност, тя е много проста, тук е един пример, в който програмата, когато излизате запазва своя размер и позиция на прозорци на екрана във файл и след това да тичам възстановява състоянието, в което е бил към момента изход. Пусни Delphi, да създадете нов проект, ние ще работим с формата и ние ще се нуждаят от две събития е OnShow и OnClose ги създават. Първото събитие ще бъде, както следва:
процедура TForm1.FormShow (Sender: TObject);
Var е: файл на цяло число; // файл променлива от тип число
I: цяло число; // променлива tselochistennaya
започвам
AssignFile (е, 'pos.ini');
// Изключване контрол грешка
Reset (е);
// Включване на проверка за грешки
ако IOResult<>0 след излизане;
Вижте (F, I); // чете от стойността на файла
Form1.Top:=i; // най-горната позиция на прозореца
Вижте (F, I);
Form1.Left: = I; // лявата позиция на прозореца
Вижте (F, I);
Form1.Width: = I; // ширина на прозореца
Вижте (F, I);
Form1.Height: = I; // височината на прозореца
CloseFile (е);
приключи;
Тук, когато стартирате програмата зарежда желаните настройки от файлови pos.ini, разположени в същата папка като самата програма.
Накрая втория случай, тя ще се нарича при затваряне на програмата и да запишете настройките във файл.
процедура TForm1.FormClose (Sender: TObject; Var действие: TCloseAction);
Var е: файл на цяло число; // файл променлива от тип число
започвам
AssignFile (е, 'pos.ini'); // файл за свързване път низ променлива файл
// Изключване контрол грешка
Препишете (е);
// Включване на проверка за грешки
ако IOResult<>0 след излизане; // Ако грешка след излизане
Запис (F, Form1.Top); // Запис във файл позиция на verikali на прозореца
Запис (F, Form1.Left); // Запис във файл позиция прозорец хоризонтално
Запис (F, Form1.Width); // Пишете на ширината на формата на файла
Запис (F, Form1.Height); // Напиши висок форма файл
CloseFile (е); // довърши работата с файла
приключи;
Този пример е подходящ не само за запазване на размера на прозореца, но също така и за съхранение на други настройки.