De intrare și de ieșire de informații în delphi
Programele care au fost dezvoltate în sistemul Delphi vă permite să afișați informații pe un ecran de calculator sau tastatura de intrare pentru a afișa pe ecran. Cu toate acestea, obiectivele principale pentru care a fost proiectat de calculatoare sunt sarcini de procesare a informației, inclusiv sarcini de calcul. Prin urmare, în continuare materialul va fi dedicat de programare pentru rezolvarea problemelor de calcul.
programe simple sunt programe structură algoritmică, care include un număr de comenzi în succesiune liniară. programe de calcul cu structură liniară includ de obicei următorii pași:
1. Introducerea datelor inițiale;
2. Calculul valorii dorite;
3. ieșire rezultat.
Corespunzător acestor etape ale diagramei bloc algoritm liniar este după cum urmează:
Fig. 62 algoritm liniar Flowchart
Cel mai simplu de intrare și de ieșire operatorului este considerat de către noi operatorul de atribuire. În sistemul de programare Delphi pentru a introduce datele inițiale și afișarea rezultatului permite diferitelor componente.
Pentru a introduce date componente tEditează utile. Pentru a face acest lucru, utilizați mouse-ul pentru a seta cursorul în caseta de text și introduceți text cu tastatura. Șirul de intrare este afișată în componenta de proprietate Text tEditează și perceput programul ca un set de caractere. caractere numerice pot fi convertite în numere folosind tipul adecvat de funcții de conversie.
Tabelul 9. Funcții de conversie
Acesta convertește un întreg într-un șir de caractere.
Conversia unui șir de caractere la un întreg.
Conversia unui număr real la un șir de caractere.
Acesta convertește un șir de caractere la un număr real.
FloatToStrF (x, f, k, m)
Conversia unui număr real la un șir de caractere, în conformitate cu acești parametri: f - formatul (metoda de imagine); k - precizia (numărul corect de cifre); m - numărul de cifre după virgulă
Se returnează caracterul care corespunde numărului x codul ASCII.
Pentru informații de ieșire pot fi utilizate componente TLabel. Pentru a vedea rezultatele programului, trebuie să setați o proprietate Legendă TLabel componentă a noii valori. proprietatea Caption a unui tip de caracter. Prin urmare, producția numărătorului trebuie să fie transformată într-un șir de caractere utilizând tipul corespunzător funcțiilor de transformare.
Luați în considerare un proiect în care se realizează structura algoritmică liniară, și sunt utilizate funcții de conversie.
Primer.Na Fig. 62 este o rată de vizionare caseta de dialog de conversie în perspectivă de km / h până la m / s. Creați un program care, faceți clic pe butonul de Efectuează această traducere (viteza de referință este un număr întreg).
Crearea unei ferestre de interfață grafică, în conformitate cu modelul prezentat în Fig. 63. Pentru a face acest lucru, a pus sub forma unui tEditează câmp text, TButton butonul și 2 inscripții TLabel. Ștergeți conținutul proprietății text din componenta edit1. În inscripțiile scrise în proprietatea Label1 Legendă a mesajului „Introduceți viteza în km / h.“ Pentru BUTTON1 introduce titlul „conversie“.
Fig. 63 interfață grafică fereastra
Date de intrare - viteza în km / h - va intra într-un câmp de text edit1. Deducem un rezultat de traducere Label2 inscripție.
In acest proiect sunt următoarele etape ale algoritmului liniar:
1. Introducerea câmpului de viteză edit1 în km / h.
2. Viteza de transfer de km / h m / s.
3. Producția în viteză inscripție Label2 în m / s.
Luați în considerare fiecare pas al algoritmului liniar.
1. Pentru a indica viteza de referință în km / h introduce variabila de tip întreg V1 suplimentar. Atribuirea la valoarea V1 variabilă a componentei text edit1.
Cu toate acestea, o astfel de intrare este nevalid, deoarece tipurile de date nu coincid înainte și după atribuirea etichetei: V1 variabilă de tip întreg și Text edit1 proprietate componentă este un tip de date șir. Pentru a continua să efectueze calcule cu intrare de la cifrele edit1 de câmp, care sunt încă percepute ca programul de text, trebuie să le convertiți la numere. În acest caz, este necesar să se utilizeze un StrToInt funcție (convertește șirul la întreg). Astfel, textul de intrare de comandă va fi după cum urmează:
V1: = StrToInt (Edit1.Text);
2. Valoarea vitezei Pentru a transfera viteza de km / h, în m / s trebuie multiplicate împărțit la 1000 și 3600 (1 km - 1000 m, 1 oră - 3600 secunde). Introducem o altă variabilă V2 pentru a indica viteza în m / s. Astfel, pentru a calcula viteza în m / s, folosind următoarea declarație:
Variabila V2 este de tip adevărat, deoarece expresia de calcul are o operație divizare.
3. Pentru a mări viteza de ieșire se obține componenta Label2. Este, prin urmare, componenta necesară valoarea proprietății Label2 Legendă atribuită variabilei V2:
Această înregistrare încalcă din nou tipurile de date relevante, în proprietatea Caption a etichetei numai date de tip caracter poate fi afișat și V2 variabilă - este un număr real. Prin urmare, este necesar să se transforme materialul de tip V2 variabilă în funcție linie FloatToStr (pentru a converti un număr real în șirul). Ieșirea de text a unei comenzi este după cum urmează:
Din moment ce am introdus variabile suplimentare V1 și V2, este necesar să se precizeze tipul lor, a se vedea descrierile variabilelor. Toate variabilele utilizate în Delphi, a pus împărțit în două tipuri principale. Se globalnyeperemennye care pot fi utilizate pe tot parcursul programului, și lokalnyeperemennye, care pot fi utilizate numai în cadrul unei anumite proceduri.
În acest caz, vom descrie modul în care variabilele locale, în cadrul procedurilor TForm1.Button1Click. Pentru această procedură, după secțiunea antet, vom introduce declarația variabilă, care se deschide un cuvânt rezervat var. Descrierea variabilelor va arata astfel:
var V1: integer; V2: real;
Astfel, textul de tratare a evenimentelor pentru recalculare buton va fi după cum urmează:
Procedura TForm1.Button1Click (Expeditor: TObject);