McMarco
Administrator
Dołączył: 10 Lut 2008
Posty: 23
Przeczytał: 0 tematów
Pomógł: 1 raz
Ostrzeżeń: 0/5
Skąd: Nowa Wieś ^^
|
 Wysłany: 20 ; 39 ; 23 Temat postu: Pierwszy program w borland Delphi ;) |
|
|
Witam. W tym temaciku będziemy chciali napisac swój pierwszy program  No to bierzmy się za pracę :
Gdy otwieramy delphi wyskakuje nam nastepujący kod:
| Cytat: |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.
|
Jest to tzw "skielet" programu.
Możemy go skompilować (zmienic jego rozszerzenie na *.exe) ale wówczas nic się nie pojawi prócz okienka
Gdy chcemy zeby się coś "działo" to musimy odpowiedni kod wpisac
a więc :
dajemy File -> New -> Aplication.
Potem na nowy formularz (form ^^) wrzucamy przycisk button (z zakładki standard.
Klikamy na niego 2 razy LPM (Lewy przycisk myszy xD )
i wklepujemy do nie go kod :
| Cytat: |
Showmessage ('Hello World') /// Wyświetl wiadomość
|
i potem przyciskamy przycisk F9.
cały kod programu :
| Cytat: |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage ('Hello World'); /// Wyświetl wiadomość
end;
end.
|
Lub coś ze zmienną  :
też dajemy buttona na formę klikamy na niego 2x LPM i klepiemy kod  :
| Cytat: |
procedure TForm1.Button1Click(Sender: TObject);//tego nie wstawiać bo to już jest 
var
MainNick : String; /// wstawić w takiej kolejnosci jak tu jest po procedurze a przed begin
begin
MainNick := 'McMarco'; ///wstawić
ShowMessage('Hej! Mój Nick to ' + MainNick); //// wstawić
end;
|
a tutaj rzucam cały kod programu :
| Cytat: |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);//tego nie wstawiać bo to już jest
var
MainNick : String; /// wstawić w takiej kolejnosci jak tu jest po procedurze a przed begin
begin
MainNick := 'McMarco'; ///wstawić
ShowMessage('Hej! Mój Nick to ' + MainNick); //// wstawić
end;
end.
|
No i to by było na tyle z tego przykładu
Pytajcie jak czegoś nie rozumiecie Ja będę się starał odpowiedzieć na każde pytanko ;D
Pozdrawiam 
Post został pochwalony 0 razy
|
|
