A kimeneti fájl felvétel
Képzeljünk el egy programot, amely kiírja a fájl adatait a felhasználó által megadott eredmények a verseny, így képezve egy egyszerű adatbázis. Input adatok kerüljenek be a párbeszédablak területén (ábra. 8.1), és egy fájlban tárolják, amelynek az összetevői TMedal típusú felvételt.
Ábra. 8.1. A program ablak beírása a fájlt
Ahhoz, hogy adja meg nevét sportoló alkalmazza a mezőben (Edit komponens). ComboBox alkatrészeket használnak, hogy adja meg a nevét, a sport és az ország (combo).
ComboBox komponens, az ikon található, amely a fül szabvány (ábra. 8,2), lehetővé teszi, hogy be adatokat közvetlenül a beviteli mezőbe szerkesztő, vagy válasszon a megjelenő listában eredményeként gombra kattintva legördülő listából.
Ábra. 8.2. Component ikon ComboBox táblázat. 8.1 felsorolja a tulajdonságait ComboBox komponenst.
Táblázat 8.1. Tulajdonságok ComboBox alkatrész
Ábra. 8.3. Belépés a listán ComboBox2 komponens létrehozása igénylőlapokat
A teljes szöveg a program listán látható 8.1.
Listing 8.1. Beírása a fájlt
Ablakok, üzenetek, SysUtils, osztályok,
Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
TForm1 = osztály (TForm) Label1: TLabel;
Label2: TLabel; Label3: TLabel;
Edit1: tSzerkesztés; // sportoló
ComboBoxl: TComboBox; // ország
ComboBox2: TComboBox; // Sport
RadioGroup1: TRadioGroup; // érem
Buttonl: TButton; // hozzáadása gomb
eljárás FormActivate (Sender: TObject);
eljárás FormClose (Sender: TObject;
var Action: TCloseAction)
eljárás ButtonlClick (Sender: TObject);
TKind = (arany, ezüst, bronz);
ország: string [20]; // ország
sport: string [20]; // Sport
személy: string [40]; // sportoló
fajtája: TKind; // érem
f: fájl TMedal; // fájl bejegyzések - az adatbázis
eljárás TForm1.FormActivate (Sender: TObject);
ill. szó; // felhasználó választ
Visszaállítása (f); // a fájl megnyitásakor
Seek (F, FileSize (f)); // írásmutatóját a fájlhoz
ha lOResult = 0
majd buttonl.enabled: = true // Most hozzáadása gomb elérhető
ill: = MessageDlg ( „Az adatbázis fájl nem található”.
+ 'Új adatbázis létrehozása?', Mtlnformation [mbYes, mbNo], 0);
ha lOResult = 0
mást ShowMessage ( „Nem sikerült létrehozni egy DB fájlt.”);
// kattintson a Hozzáadás gombra
eljárás TForml.Button1Click (Sender: TObject);
esetében RadioGroup1.Itemlndex a
write (f, érem); // írni a tartalmát egy rekord a fájlban
// alkalmazás megszűnése
eljárás TForm1.FormClose (Sender: TObject;
CloseFile (f); // bezárja a fájlt
A jelenlegi program TForm1.FormActivate eljárás megnyit egy adatbázist fájlt hozzá. Itt meg kell figyelni, hogy hogyan hajtják végre. Appendfile eljárás, amely megnyitja a fájlt hozzá, hogy a végén, nem lehet használni, azaz a. Hogy. A fájl nem szöveges. Ezért a fájl első megnyitásakor átírási eljárás felülírás módban, majd Seek eljárás beállítja az írási / olvasási mutató végén a fájlt. Keressétek paramétere eljárás egy függvény Fiiesize, amelynek értéke egyenlő a fájl méretét (bájtokban).
TForm1.Button1Click eljárás, amely kezdeményezi a gomb Felvétel gomb (Buttoni), azonnal végrehajtja további iratokat a fájlban. Field ország sport és a hozzáadott bejegyzések lakott a Text tulajdonságát a kombinált dobozok Country (comboBoxi) és Sport (ComboBox2).
Field a kialakított rögzítési személy kitölti a beviteli mező atléta (Editi komponens), valamint a mező tartalma határozza meg a kiválasztott gombot érem RadioGroupl komponenst.
Tudtad, hogy mint minden bálványimádó vallás, a relativizmus hamis épül. Ez ellentétes a tényekkel. Ezek közül néhány:
1. Egy elektromágneses hullám (a vallási terminológia relativizmus - „light”) egy szigorúan állandó sebességgel, 300 ezer km / s, ez abszurd nem számít semmit. Reálisan EM-hullámok különböző sebességgel a közegben (pl,
200 ezer km / s az üveg és
3 Mill. Km / sec a felületi fém rétegek, különböző sebességű éterben (lásd. Cikk „Hőmérséklet-éter és piros műszakban”), különböző sebességgel különböző frekvenciákon (lásd. Cikk „Rate of EM-hullámok”)
2. relativizmus „light” mitikus esemény önmagában, és nem egy fizikai hullám zavara egy adott fizikai környezet. A relativisztikus „light” - az izgalom semmi semmi. Ő nem az adathordozó ingadozások.
3. relativizmus lehetséges manipulálását idő (lassítás), így sérülnek alapvető tudományos elvet a kauzalitás elvét és a szigorú logika. A relativizmus egy fénysebességgel, az idő megáll (ezért is abszurd, hogy beszéljünk a foton frekvenciája). A relativizmus lehetséges erőszak felett oka, mint egy nyilatkozatot a kölcsönös meghaladta a korát ikrek mozgó al-fény sebességét és egyéb visszaélés a logika velejárója minden vallás.
Hírek Fórum
Knights-éter elmélet