Descărcați setările de program dintr-un fișier
Numai materiale utile
Acționarul principal al Alibaba a devenit cel mai bogat om din China
Articole
Microsoft a început testarea privat Oficiul 16
Articole
Experții au găsit lacune în Windows 8.1 Securitate
Articole
În metroul din Moscova va fi o rețea de telefonie mobilă unificată
Articole
eBay va accepta Bitcoin
Articole
Vivitek a introdus „școală“ proiector D755WTIR
Articole
În Twitter exista un buton „Cumpărați“
Articole
„Yandeks.Novosti“ poate fi acum vizualizate pe iPhone
Articole
Mulți oameni se întreabă cum să facă acest lucru ar fi un program scris în Delphi la închidere salvează setările într-un fișier și atunci când a fost deschis le incarca de acolo. De fapt, este foarte simplu, aici este un exemplu în care programul atunci când iese își păstrează dimensiunea și poziția ferestrelor de pe ecranul său într-un fișier și apoi a alerga restabilește starea în care se afla în tine când ieși. Run Delphi, a crea un nou proiect, vom lucra cu forma și vom avea nevoie de două evenimente este OnShow și OnClose le crea. Primul eveniment va fi după cum urmează:
Procedura TForm1.FormShow (Expeditor: TObject);
Var f: fișier de Integer; // variabila de fișier de tip întreg
I: Integer; // tselochistennaya variabilă
începe
AssignFile (f, 'pos.ini');
// controlul erorii Dezactivare
Reset (f);
// Includeți verificarea erorilor
dacă IOResult<>0 apoi Exit;
Citește (f, i); // citit din valoarea fișierului
Form1.Top:=i; // poziția de sus a ferestrei
Citește (f, i);
Form1.Left: = i; // poziția din stânga a ferestrei
Citește (f, i);
Form1.Width: = i; // lățimea ferestrei
Citește (f, i);
Form1.Height: = i; // îinaltimea
CloseFile (f);
se încheie;
Aici, atunci când începe programul încarcă setările dorite din pos.ini fișiere situate în același folder ca și programul în sine.
În cele din urmă de-al doilea eveniment, acesta va fi numit atunci când închiderea programului și de a salva setările într-un fișier.
Procedura TForm1.FormClose (Expeditor: TObject; var Acțiune: TCloseAction);
Var f: fișier de Integer; // variabila de fișier de tip întreg
începe
AssignFile (f, 'pos.ini'); // Legați șirul de calea de fișier pentru variabila fișier
// controlul erorii Dezactivare
Rescriem (f);
// Includeți verificarea erorilor
dacă IOResult<>0 apoi Exit; // Dacă o eroare apoi ieșiți
Scriere (f, Form1.Top); // Scrie în fișier poziția de verikali ferestrei
Scriere (f, Form1.Left); // Scrie în fișier poziția ferestrei pe orizontală
Scriere (f, Form1.Width); // Scrieți lățimea unui fișier formular
Scriere (f, Form1.Height); // Scrie fișier formă înalt
CloseFile (f); // termina treaba cu fișierul
se încheie;
Acest exemplu este potrivit nu numai pentru păstrarea dimensiunea ferestrei, dar, de asemenea, pentru a stoca alte setări.