Aplikacja Konsolowa

Witam

W tym poradniku nauczymy się programować prostą aplikacje konsolowa

Na sam początek potrzebujemy plik źródłowy
Z menu File wybierz polecenie Close — zostaniesz zapytany, czy nie chcesz zapisać zmian w pliku
Unit1.pas. Kliknij przycisk No — nie chcemy zapisywać pliku formularza. W tym momencie Edytor
kodu powinien zostać zamknięty. Z menu Project wybierz View Source. Polecenie to spowoduje
wyświetlenie w Edytorze kodu zawartości pliku głównego — *.dpr.

Na sam początek Delphi Wygeneruje ten kod

program program1;
uses
Forms;
{$R *.res}
begin
Application.Initialize;
Application.Run;
end.

Usuń zbędny kod

uses
Forms;
{$R *.res}

i

Application.Initialize;
Application.Run;

Zostanie ci taki kod

program program1;


begin

end.

Aby program mógł działać w trybie konsolowym, nie trzeba wykonywać żadnych skomplikowanych
czynności — wystarczy dodać do projektu taką oto dyrektywę:

{$APPTYPE CONSOLE}

Dzięki tej komodzie dodawanej przed begin po uruchomieniu programu (F9) włączy nam się konsola ale tylko na 1 sek .
Ponieważ program składa się tylko z komendy końcowej end. program się wyłącza od razu po włączeniu
Aby temu radzić wpisz przed end. komendę

Readln; //funkcja bezargumentowa, powoduje oczekiwanie na wciśnięcie klawisza enter

Teraz po włączeniu programu możemy go wyłączyć przyciskiem ENTER

Cały kod wygląda tak :

program program1;

{$APPTYPE CONSOLE}

begin
 Readln;
end.

To tyle co miałem do pokazania w tym poradniku
Życzę Miłego Programowania
Poradnik wykonany przez DjPtK
Bez Pytania nie można Kopiować !

Użytkownik DJPTK edytował ten post 06.07.2011 18:14

na pewno się przyda

własnie uczę się programowania w delphi (Object Pascal) ponieważ łatwiejsze jest to moim zdaniem i polecam każdemu mam nadzieje ze powstaną dalsze części poradników

a ja ci proponuje przejść na Javę a nie uczyć sie jezyka bez przyszłości

a ja ci proponuje przejść na Javę a nie uczyć sie jezyka bez przyszłości

Chyba ty tak uważasz

Delphi to nie jezyk bez przyszlosci a co do javy to gdyby nie ludzie ktorzy przeniesli ja do NET to juz dawno byla by wymarlym językiem