Luați în considerare un program care scrie utilizatorilor fișiere despre rezultatele concursului, formând astfel o bază de date simplă. Datele de intrare sunt introduse în câmpurile din caseta de dialog (Figura 8.1) și salvate într-un fișier ale cărui componente sunt intrări TMedal.
Fig. 8.1. Fereastra programului Adăugarea unei intrări într-un fișier
Pentru a introduce numele sportivului, se aplică câmpul de editare (componenta Editare). Pentru a introduce numele sportului și a țării, se utilizează componentele ComboBox (lista combo).
Componenta ComboBox, a cărei pictogramă este în fila Standard (Figura 8.2), vă permite să introduceți date fie direct în câmpul editare-editare, fie selectând din lista care apare ca urmare a clicului pe butonul vertical.
Fig. 8.2. ComboBox component icon 8.1 enumeră proprietățile componentei ComboBox.
Tabelul 8.1. ComboBox proprietăți componente
Fig. 8.3. Introducerea unei liste pentru componenta ComboBox2 în timp ce creați formularul de cerere
Textul complet al programului este prezentat în Lista 8.1.
Listing 8.1. Adăugarea intrărilor într-un fișier
Ferestre, Mesaje, SysUtils, Clase,
Grafică, Controale, Formulare, Dialoguri, StdCtrls, ExtCtrls;
TForm1 = clasă (TForm) Etichetă1: Tabel;
Label2: Tabel; Etichetă3: Tabel;
Editare1: TEdit; // sportivul
ComboBoxl: TComboBox; // țară
ComboBox2: TComboBox; // genul de sport
RadioGroup1: TRadioGroup; // medalie
Buttonl: TButton; // Butonul Adăugare
procedura FormActivate (expeditor: TObject);
procedura FormClose (expeditor: TObject;
var Action: TCloseAction)
procedura ButtonlClick (expeditor: TObject);
TKind = (GOLD, SILVER, BRONZE);
țară: șir [20]; // țară
sport: șir [20]; // genul de sport
persoană: șir [40]; // sportivul
fel: TKind; // medalie
f: fișierul TMedal; // înregistrări de fișiere - bază de date
procedura TForm1.FormActivate (expeditor: TObject);
resp. cuvânt; // răspunsul utilizatorului
Resetați (f); // deschideți fișierul
Căutați (f, FileSize (f)); // scrie pointer la sfârșitul fișierului
dacă lOResult = 0
apoi buttonl.enabled: = TRUE // acum este disponibil butonul Add
resp: = MessageDlg ("Fișierul bazei de date nu a fost găsit".
+ 'Creați o bază de date nouă?', Mtlnformation, [mbYes, mbNo], 0);
dacă lOResult = 0
altceva ShowMessage ('Eroare la crearea fișierului bazei de date.');
/ / faceți clic pe butonul Adăugați
procedura TForml.Button1Click (expeditor: TObject);
caz RadioGroup1.Itemlndex de
scrie (f, medalie); // scrie conținutul câmpurilor de introducere într-un fișier
// închideți programul
procedura TForm1.FormClose (expeditor: TObject;
CloseFile (f); // închideți fișierul
În programul prezentat, procedura TForm1.FormActivate deschide fișierul bazei de date pentru adăugare. Aici ar trebui să acordați atenție modului în care este implementat. Procedura AppendFile, care deschide un fișier pentru adăugarea la sfârșit, nu poate fi utilizată, deoarece fișierul nu este un fișier text. Prin urmare, fișierul este deschis pentru prima oară prin procedura Rescrie în modul suprascriere, iar apoi procedura Seek setează indicatorul de citire / scriere la sfârșitul fișierului. Parametrul procedurii de căutare este funcția Fiiesize, a cărei valoare este egală cu dimensiunea fișierului (în octeți).
Procedura TForm1.Button1Click, care se pornește făcând clic pe butonul Adăugați (Buttoni), adaugă direct intrarea în fișier. Campurile de țară și de sport din intrarea adăugată sunt populate din proprietatea Text a comboBoxi și a listei sportive (ComboBox2).
Câmpul persoană din înregistrarea generată este umplut din câmpul de intrare a atletului (componenta Editi), iar conținutul câmpului medal este determinat de butonul radio selectat de componenta RadioGroupl.
Știți că, ca orice religie idolatră, relativismul este fals în baza sa. Ea contrazice faptele. Printre acestea se numără:
1. Valul electromagnetic (în terminologia religioasă a relativismului - "lumina") are o viteză strict constantă de 300 mii km / s, absurd neimprimată pe nimic. În realitate, undele EM au viteze diferite în materie (de exemplu,
200 mii km / s în sticlă și
3 Mill. Km / sec în straturile metalice de suprafață, viteză diferită în eter (a se vedea. Articolul „eter Temperatura și schimburile roșii“), o rată diferită de frecvențe diferite (a se vedea. Articolul „Rata EM-valuri“)
2. În relativism, "lumina" este un fenomen mitic în sine, și nu un val fizic, care este entuziasmul unui anumit mediu fizic. Relativistul "lumină" este excitarea nimicului în nimic. Nu are un suport pentru oscilații.
3. În relativism, posibile manipulări cu timpul (încetinirea ritmului), astfel încât sunt violate principiul fundamental pentru orice principiu științific al cauzalității și principiul logicii stricte. În relativism, la viteza luminii, timpul se oprește (deci este absurd să vorbim despre frecvența fotonilor). În relativism, este posibilă o asemenea violență în minte, cum ar fi afirmarea excesului relativ al vârstei gemenilor care se mișcă cu viteză subluminată și alte batjocuri ale logicii inerente oricărei religii.
ȘTIRI ALE FORUMULUI
Cavalerii teoriei eterului
Articole similare
Trimiteți-le prietenilor: