Creați o aplicație consolă
O aplicație consolă urmează. În primul rând aveți nevoie din meniul File, selectați noua | Alte aplicații, apoi la caseta de dialog New care apare fila NewItems, selectați tipul aplicației - Console Application. Ca urmare, aceste acțiuni vor apărea fereastra Projectl.dpr în care modelul principal este o aplicație consolă proceduri. În această fereastră, puteți introduce instrucțiunile de program.
Fig. 4.1. Principalele proceduri de aplicare consola de șabloane
Acesta începe un program de instruire aplicație consolă, urmat de numele programului. În primul rând, aceasta coincide cu numele proiectului „default“. La salvarea proiectului, acesta va fi înlocuit automat cu numele sub care programatorul va salva proiectul.
Trebuie remarcat faptul că aplicația consola este creată în Windows, și se execută ca un program DOS. La DOS folosit
ASCII, și Windows - ANSI, litera a alfabetului românesc care au coduri diferite. Aceasta conduce la faptul că, în loc de mesaje în afișajele aplicație consolă rusă „Abracadabra“. Prin urmare, cererile de consola ar trebui să afișeze mesaje în limba engleză, care nu este întotdeauna convenabil.
mesaje de afișare în aplicații consola problemă rusă poate fi rezolvată prin dezvoltarea funcției de conversie ANSI-line într-un șir de caractere ASCII. În cazul în care această funcție apelați RUS, instrucțiunea pentru a afișa mesajul în limba rusă ar putea arăta astfel:
writeln (Rus ( 'Do lukogmorya stejar verde')).
Listarea 4.1 prezintă un exemplu de un program care cere greutatea utilizatorului în lire, îl transformă în kilograme și afișează rezultatul pe ecran. Pentru a afișa mesaje utilizând funcția RUS care convertește un șir de caractere în format ANSI la un șir de caractere în ASCII.
4.1. Recalcularea greutate de lire la kilograme (aplicație consolă)
// funcția Rus convertește șirul în ANSI-ASCII-string
Rus (functioneaza mes: string): string;
// În scrisorile românești ANSI sunt codificate cu numere de 192-255,
// în ASCII - 128-175 (A..Yaa..p) și 224-239 (r..ya).
i: integer; // numărul de simboluri prelucrat
pentru i: = 1 la lungime (mes) face mes caz [i] de
mes [i]: = (ORD (Chr mes [i]) - 64); 'P' .. 'I'.