Hogyan írjunk egy konzolos alkalmazás Delphi, delphisite

Majd mentse a fájlt a kiterjesztés .dpr - ebben az esetben conprg.dpr. Továbbá azt lehet betölteni Delphi (File | Open) és elkezd hozzá kódot.
Kérjük, vegye figyelembe:
Ha fut a fenti programot, akkor azonnal befejeződik, mert nincs üzemi kódot.
Már a kezdet kezdetén, akkor lehetséges, hogy adjunk egy sort readln:

Látni fogja, egy üres szövegdoboz, amely lezárja, ha megnyomja az Enter billentyűt.
megy előre
Mint korábban említettük, akkor szinte bármilyen Win32 API függvény egy konzol alkalmazás. Ez az alkalmazás nagyon kényelmes az a tény, hogy a felhasználói felület nem kell gondolkodni, és az információ megjelenítésére használatát csak pár funkciók írása / writeln. Alkalmazási példák konzolos alkalmazások nagy sokaság, és ez másfajta hasznosság, és a vizsgálati programok tesztelésére API függvények, stb Nem fogunk merülni példát, hogyan kell használni bizonyos API, és beszélni csak a konzol API (konzol API).
Konzolos API (konzol API)
A Microsoft olyan funkciót, amelyek nagyon hasznosak létrehozásakor konzolos alkalmazások. Már a kezdet kezdetén azt fogja mondani, hogy van legalább két olyan jellemző (kilincsek), amelyek össze vannak kötve a konzolt. Egy bemeneti és egy kimeneti. Az alábbiakban két kis funkciók, amelyek azt mutatják, hogy hogyan lehet megszerezni ezeket a jellemzőket.

// Kap egy fogantyú a konzol bemeneti

működni GetConInputHandle. THandle;

Eredmény: = GetStdHandle # 40; STD_INPUT_HANDLE # 41;

// Kap egy fogantyú a konzol kimenetet

működni GetConOutputHandle. THandle;

Eredmény: = GetStdHandle # 40; STD_OUTPUT_HANDLE # 41;

Csakúgy, akkor jobb, hogy saját funkciókat, mint az egyszerű műveletek, mint a helymeghatározás a kurzor, törölje a képernyőt és megjelenítése / elrejtése kurzor (mint API vigasztalják őket egy kicsit nehézkes és zavaró). Itt van, hogyan néznek ki:

// A kurzor az X, Y koordinátákat

eljárás GotoXY # 40; X, Y: Szó # 41; ;

SetConsoleCursorPosition # 40; ConHandle, Coord # 41; ;

// törölje a képernyőt - kitöltésével terei