Τι είναι Îνα αÏÏείο PAS;
Îνα αÏÏείο .pas είναι ÏÏην ÏÏαγμαÏικÏÏηÏα Îνα αÏÏείο ÏÎ·Î³Î±Î¯Î¿Ï ÎºÏδικα ÏÎ¿Ï Î¼ÏοÏεί να βÏεθεί Ïε Îνα ÏÏÏγÏαμμα ÏÏογÏαμμαÏιÏÎ¼Î¿Ï Delphi. Το Delphi είναι μια εÏαÏμογή ανάÏÏÏ Î¾Î·Ï Î»Î¿Î³Î¹ÏÎ¼Î¹ÎºÎ¿Ï ÏÎ¿Ï ÏÏηÏιμοÏοιείÏαι αÏÏ ÏÏογÏαμμαÏιÏÏÎÏ Î³Î¹Î± Ïην καÏαÏÎºÎµÏ Î® λογιÏμικÏν ÏÎ¿Ï Î²Î±ÏίζονÏαι ÏÏα Windows. γÏαμμÎνο ÏÏη γλÏÏÏα ÏÏν ÎελÏÏν. ΠγλÏÏÏα Delphi είναι μια ÏαÏαλλαγή ÏÎ·Ï Î³Î»ÏÏÏÎ±Ï Object Pascal. ÎÏÏι μÏοÏεί να μεÏαγλÏÏÏιÏÏεί Ïε εγγενή κÏδικα Win32 με Ïον μεÏαγλÏÏÏιÏÏή Delphi.
ÎοÏÏή αÏÏÎµÎ¯Î¿Ï PAS
ΠμοÏÏή αÏÏÎµÎ¯Î¿Ï PAS είναι Îνα αÏÏείο κÏδικοÏοίηÏÎ·Ï ÏÎ¿Ï ÎµÎ¯Î½Î±Î¹ δεÏÎ¼ÎµÏ Î¼Îνο για Ïην Ïηγή Î¼Î¿Î½Î¬Î´Î±Ï Delphi. Îι Î¼Î¿Î½Î¬Î´ÎµÏ Ï Î»Î¿ÏοιοÏνÏαι ÏÏ Ïα κÏÏια δομικά ÏÏοιÏεία ÏÏν εÏαÏμογÏν Delphi. ÎÏοÏείÏε να δείÏε Ïον Ïηγαίο κÏδικα ÏÎ¿Ï ÏÏÎÏονÏÎ¿Ï ÎÏÎ³Î¿Ï Delphi μÎÏÏ ÏÎ¿Ï Î¼ÎµÎ½Î¿Ï ÎÏγο > Î Ïοβολή ÏηγήÏ. Îι ÏÏογÏαμμαÏιÏÏÎÏ Î¼ÏοÏοÏν να Î´Î·Î¼Î¹Î¿Ï ÏγήÏÎ¿Ï Î½ και να αÏοθηκεÏÏÎ¿Ï Î½ μια μονάδα ÏÏ Î±Ï ÏÏνομο αÏÏείο ÏÎ¿Ï Î¼ÏοÏεί να ÏÏηÏιμοÏοιήÏει οÏοιοδήÏοÏε ÎÏγο. ÎÏÎ»Î¹Ï ÏÏοÏÏεθεί μια μονάδα ÏÏο ÎÏγο, η Delphi Ïην καÏαÏÏÏεί ÏÏη ÏήÏÏα ÏÏήÏεÏν ÏÎ¿Ï Î±ÏÏÎµÎ¯Î¿Ï ÎÏÎ³Î¿Ï .DPR.
ΠαÏάδειγμα αÏÏÎµÎ¯Î¿Ï PAS
ÎÏαν γÏάÏÎ¿Ï Î¼Îµ μία γÏαμμή κÏδικα. Îι ÎελÏοί Î¼Î±Ï Î³ÏάÏει ÏολλÎÏ Î³ÏαμμÎÏ ÎÎ¾Ï Ïνα. ÎÎ»Î¿Ï Î¿ ÏÎ·Î³Î±Î¯Î¿Ï ÎºÏÎ´Î¹ÎºÎ±Ï ÎµÎ¯Î½Î±Î¹ γÏαμμÎÎ½Î¿Ï ÏÏο αÏÏείο PAS. ÎÎºÎ¿Î»Î¿Ï Î¸ÎµÎ¯ Îνα βαÏÎ¹ÎºÏ ÏαÏάδειγμα Î¼Î¿Î½Î¬Î´Î±Ï ÏÎ·Î³Î®Ï Delphi ή αÏÏÎµÎ¯Î¿Ï PAS:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel; // The label we have added
Button1: TButton; // The button we have added
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
// The button action we have added
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := 'Hello World'; // Label changed when button pressed
end;
end.