Skocz do zawartości

  • Zaloguj korzystając z Facebooka Zaloguj korzystając z Twittera Zaloguj przez Steam Zaloguj poprzez Google      Logowanie »   
  • Rejestracja

Witamy w Nieoficjalnym polskim support'cie AMX Mod X

Witamy w Nieoficjalnym polskim support'cie AMX Mod X, jak w większości społeczności internetowych musisz się zarejestrować aby móc odpowiadać lub zakładać nowe tematy, ale nie bój się to jest prosty proces w którym wymagamy minimalnych informacji.

  • Rozpoczynaj nowe tematy i odpowiedaj na inne
  • Zapisz się do tematów i for, aby otrzymywać automatyczne uaktualnienia
  • Dodawaj wydarzenia do kalendarza społecznościowego
  • Stwórz swój własny profil i zdobywaj nowych znajomych
  • Zdobywaj nowe doświadczenia

Dołączona grafika Dołączona grafika

Guest Message by DevFuse
 

Zdjęcie
Delphi

Aplikacja Konsolowa

Delphi

  • Zamknięty Temat jest zamknięty
5 odpowiedzi w tym temacie

#1 ptk.

    Wszechwidzący

  • Zbanowany

Reputacja: 31
Życzliwy

  • Postów:248
  • GG:
  • Imię:Patryk
  • Lokalizacja:PL
Offline

Napisano 06.07.2011 18:13

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 :rolleyes:
Poradnik wykonany przez DjPtK
Bez Pytania nie można Kopiować !

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


#2 Fili:P

    Koleżeński

  • Power User

Reputacja: 752
Guru

  • Postów:1679
  • GG:
  • Steam:steam
  • Imię:Filip
  • Lokalizacja:Radom
Offline

Napisano 06.07.2011 18:44

na pewno się przyda
  • +
  • -
  • 0

BMXers.pl - Portal o tematyce BMX


#3 ptk.

    Wszechwidzący

  • Autor tematu
  • Zbanowany

Reputacja: 31
Życzliwy

  • Postów:248
  • GG:
  • Imię:Patryk
  • Lokalizacja:PL
Offline

Napisano 06.07.2011 19:29

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 :rolleyes:

#4 fdszpl0

    Pomocny

  • Użytkownik

Reputacja: 0
zer0.

  • Postów:69
  • Lokalizacja:Kraków
Offline

Napisano 06.07.2011 20:24

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

#5 ptk.

    Wszechwidzący

  • Autor tematu
  • Zbanowany

Reputacja: 31
Życzliwy

  • Postów:248
  • GG:
  • Imię:Patryk
  • Lokalizacja:PL
Offline

Napisano 06.07.2011 21:13

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


Chyba ty tak uważasz :spadowa:

#6 G[o]Q

    I'm G[o]Q

  • Przyjaciel

Reputacja: 1339
Godlike

  • Postów:3556
  • Steam:steam
  • Imię:Krzysiek
  • Lokalizacja:C: / program Files / Valve / Cstrike / G[o]Q.dem
Offline

Napisano 06.07.2011 23:44

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
  • +
  • -
  • 0
Manual ponad wszystko, konsola ponad manual :D :&

Chcesz wysłać do mnie PW ? użyj nazwy GoQ zamiast G[o]Q
Chcesz Kupić moduł płatności via Pukawka,Tserwery, Gamesol, Zabijaka do mojego sklepu? napisz PW cena to tylko 10 zł/sztuka

GG:6022845 (nie pomagam za free osobom ponizej rangi MoD) :D





Również z jednym lub większą ilością słów kluczowych: Delphi

Użytkownicy przeglądający ten temat: 0

0 użytkowników, 0 gości, 0 anonimowych