Letöltés program beállításait fájlból
Csak hasznos anyagok
A fő részvényes az Alibaba lett a leggazdagabb ember Kínában
Cikkek
A Microsoft megkezdte saját tesztelés Office 16
Cikkek
A szakértők megállapították, kiskapukat a Windows 8.1 Biztonság
Cikkek
A moszkvai metró lesz egységes mobiltelefon-hálózat
Cikkek
eBay elfogadja Bitcoin
Cikkek
Vivitek bevezette a „iskola” kivetítő D755WTIR
Cikkek
A Twitter volt egy „Vásárlás” gombra
Cikkek
„Yandeks.Novosti” most megtekinthető az iPhone
Cikkek
Sokan kíváncsiak, hogyan kell megtenni lenne egy olyan program Delphi záróárfolyama menti a beállításokat egy fájlba, és ha nyitva volt betölteni őket onnan. Tény, hogy nagyon egyszerű, itt van egy példa, ahol a programot, amikor kilép megtartja méretét és pozícióját az ablakok a képernyőn, hogy egy fájlt, majd futás visszaállítja az állapotban volt, amikor kilép. Fuss Delphi, hozzon létre egy új projektet, fogunk dolgozni az űrlapot, és mi kell két esemény OnShow és OnClose létrehozni őket. Az első esemény a következő lesz:
eljárás TForm1.FormShow (Sender: TObject);
Var f: fájl egész; // fájl változó típusú egész szám
i: integer; // változó tselochistennaya
kezdődik
AssignFile (F, 'pos.ini');
// letiltása hibavezérlési
Visszaállítása (f);
// Tartalmazza hibajavítás
ha IOResult<>0 majd a Kilépés;
Read (F, I); // olvasni az érték a fájl
Form1.Top:=i; // a felső pozícióban az ablak
Read (F, I);
Form1.Left: = i; // bal oldalon az ablak
Read (F, I);
Form1.Width: = i; // ablak szélessége
Read (F, I);
Form1.Height: = i; // ablak magassága
CloseFile (f);
végén;
Itt indításakor a program betölti a kívánt beállításokat a fájl pos.ini található ugyanabban a könyvtárban, mint maga a program.
Végül a második esemény, hogy fogják hívni, amikor bezárja a programot, és mentse a beállításokat egy fájlba.
eljárás TForm1.FormClose (Sender: TObject; var Action: TCloseAction);
Var f: fájl egész; // fájl változó típusú egész szám
kezdődik
AssignFile (F, 'pos.ini'); // Bind a fájl elérési útját string a fájl változó
// letiltása hibavezérlési
Átírása (f);
// Tartalmazza hibajavítás
ha IOResult<>0 majd a Kilépés; // Ha hiba, akkor kilép
Write (f, Form1.Top); // írása fájlba ablak pozícióját verikali
Write (f, Form1.Left); // írása fájlba ablak helyzetben vízszintesen
Write (f, Form1.Width); // Írjon a szélessége formában fájl
Write (f, Form1.Height); // Írja magas forma fájl
CloseFile (f); // Fejezd be a munkát a fájl
végén;
Ez a példa alkalmas nem csak a megőrzése az ablak méretét, hanem tárolni más beállításokat.