Formularul "gol" cântărește aproximativ 355 KB, iar această dimensiune inițială crește cu fiecare nouă versiune a Delphi. Un program "gol" scrise folosind biblioteca KOL, care reduce dimensiunea fișierului executabil, este de 32 KB. Aplicația consolă "curată" are o dimensiune de 8 KB, deoarece este afișată ca proces și, prin urmare, nu are interacțiuni complexe cu ferestrele Windows. Adică, puteți face ca Ctrl + Alt + Del să nu afișeze consola :).
Deci, în meniul Delphi, selectați Fișier> Nou> Altele și în fereastra care rezultă, printre altele, găsiți elementul Aplicație Consola. Va apărea următoarea piesă de prelucrat:
program Proiect1; // numele proiectului
// directivă care indică prezența consolei
utilizează SysUtils; // module conectate
Și o altă opțiune:
Eticheta MyLabel; // "etichetă"
începe
în timp ce adevărul începe
Writeln ("Introduceți numele dvs." + # 10);
Readln (S);
Writeln (# 10 + 'Numele dvs. este' + S);
se încheie;
end.
Aici, "10" indică sfârșitul paragrafului, cursorul se deplasează la linia următoare (tasta Enter). Iată un exemplu în care programul se închide la comanda utilizatorului:
var s: String;
începe
în timp ce adevărul începe
Readln (S); // ce utilizator a intrat?
// utilizator ar putea introduce comanda si majuscule,
// și în litere mici. Convertiți literele la majuscule
// comanda UpperCase.
În cazul în care UpperCase (e) = 'EXIT' începe apoi
/ / întrebați din nou
Writeln ("Chiar vrei să ieși?" [Y / n] ');
// citiți răspunsul utilizatorului
Cititor (e);
dacă UpperCase (e) = 'Y' atunci ieșiți; // ieșire
se încheie;
se încheie;
end.
Aici. Aici puteți introduce orice cod, conectând, dacă este necesar, modulele necesare. Acum, compilați din nou proiectul și faceți clic pe Project> Information for 'ProjectName'. Dimensiunea EXE va fi de aproximativ 40 kilobytes, dar numai pentru că modulul SysUtils.pas din secțiunea Utilizează atât de mult. Și dacă înlocuiți acest modul cu Windows.pas, atunci programul va ocupa, așa cum am promis, OEM :) kilo pe hard-vă :).
Desigur, cu condiția să utilizați numai modulul Windows, care conține majoritatea comenzilor necesare în viața de zi cu zi. Dacă nu intenționați să intrați în consola de negocieri cu utilizatorul și să utilizați procedurile WriteLn și ReadLn, atunci consola nu este necesară. Eliminați directiva astfel încât fereastra neagră MS-DOS să nu apară.
Dar dacă această fereastră este foarte necesară pentru dvs. și veți desfășura un dialog cu utilizatorul, nu încercați să specificați scrisori ruse în comanda WriteLn: consola le va afișa într-o altă codificare. Pentru a remedia acest lucru, tastați textul original (rus) în Notepad și puneți terminalul pentru font. Rezultatul va fi în codarea DOS, așa cum ar trebui specificat în procedura WriteLn.
Curățarea consolei din text poate fi după cum urmează:
program Proiect1;
var
tampon: TConsoleScreenBufferInfo; // tampon
i: întreg;
începe
WriteLn ('Apăsați pentru a șterge ecranul');
readln;
GetConsoleScreenBufferInfo (GetStdHandle (STD_OUTPUT_HANDLE), tampon);
pentru i: = 0 la buffer.dwSize.y face writeln;
Writeln ("Ecranul este șters :)");
readln;
end.
Asta e tot. Cum de a combina ceva mai grav decât aplicarea tipului "Hello World", programat de programatori, vă vom spune în următoarea serie.
Articole similare
Trimiteți-le prietenilor: