Cum de a scrie o aplicație consolă în Delfi, delphisite

Apoi, salvați fișierul cu extensia .dpr - în acest caz conprg.dpr. În plus, acesta poate fi încărcat în Delphi (File | Open) și începe adăugarea de cod.






Vă rugăm să rețineți:
Dacă executați programul de mai sus-menționat, se va termina imediat, pentru că nu există nici un cod de lucru.
Pentru început, este posibil să se adauge o readln linie:

Veți vedea o casetă de text necompletat, care se închide dacă apăsați pe tasta Enter.
continuați
Așa cum am menționat mai devreme, puteți utiliza aproape orice funcție Win32 API dintr-o aplicație consolă. Această aplicație este foarte convenabil de faptul că interfața cu utilizatorul nu poate să se gândească, și pentru a afișa utilizarea de informații doar câteva funcții scriere / writeln. Exemple de aplicații de aplicații consolă o mare mulțime: și acest alt fel de utilitate, și programele de testare pentru testarea funcțiilor API, etc. Nu ne vom scufunda în exemple de modul de utilizare a API specifice, și va vorbi doar despre API-ul consola (Console API).






Cantilever API (API Console)
Microsoft oferă un set de funcții care sunt foarte utile atunci când crearea de aplicații consolă. Pentru început, voi spune că există cel puțin doi descriptori (mânere), care sunt conectate la fereastra consolei. Unul pentru intrare și una pentru ieșire. Mai jos sunt două caracteristici mici, care arată modul de a obține acești descriptori.

// Ia un mâner pentru consola de intrare

GetConInputHandle funcționează. THandle;

Rezultat: = GetStdHandle # 40; STD_INPUT_HANDLE # 41;

// Ia un mâner pentru consola de ieșire

GetConOutputHandle funcționează. THandle;

Rezultat: = GetStdHandle # 40; STD_OUTPUT_HANDLE # 41;

De asemenea, este mai bine pentru a crea propriile funcții pentru astfel de operații simple, precum poziționarea cursorului, șterge ecranul și afișarea / ascunderea cursorului (la fel ca în API-le consoleze un pic mai greu de mânuit și confuz). Iată cum arata:

// Setați cursorul în X, coordonatele Y

Procedura de GotoXY # 40; X, Y: Word # 41; ;

SetConsoleCursorPosition # 40; ConHandle, Coord # 41; ;

// Sterge ecranul, - umplerea spațiilor sale