Cuprins

Ce este Delphi?
La ce este bun?
Cum arată codul?
1. Structura unui proiect VCL Forms
  - Hello, world!
2. Structura unui proiect pentru consolă
  - Hello, world!
Aplicaţii dezvoltate în Delphi
Resurse adiţionale
Note

IDE-ul Delphi 2006

Ce este Delphi?

Delphi este un limbaj de programare, produs iniţial de firma americană

Borland, iar apoi de

CodeGear, o firmă deţinută de Borland. Pe data de 7 mai 2008 a fost anunţată vânzarea Code Gear către

Embarcadero Technologies pentru suma de 23 de milioane de dolari.
Limbajul Delphi este varianta celor de la Borland de Object Pascal¹ (Pascal cu obiecte), care este evoluţia limbajului Pascal, creat în 1970 de

Niklaus Wirth ca limbaj de programare cu scop didactic. Iniţial a fost produs pentru sistemele de operare

Microsoft Windows, apoi a urmat o perioadă în care se producea şi o versiune pentru

GNU/

Linux (denumită Kylix). Până în anul 2008, versiunile existente au fost cea pentru aplicaţii native Microsoft Windows şi cea pentru

Microsoft .NET Framework. Lansat în al treilea trimestru al anului 2008, Delphi Prism a înlocuit Delphi .NET.

Echipa care dezvoltă Delphi a fost condusă iniţial de

Anders Hejlsberg, tot el conducând şi echipa care se ocupa de dezvoltarea

Turbo Pascal-ului. În 1996 Anders Hejlsberg a fost angajat de Microsoft, unde, printre altele, a condus echipa care a dezvoltat limbajul

C#, având totodată un rol important în dezvoltarea platformei Microsoft .NET.
^Cuprins

La ce este bun?

Scopul principal pentru care Delphi a apărut a fost crearea rapidă a aplicaţiilor pentru Microsoft Windows. Un important atu de care Delphi a beneficiat de la început a fost IDE²-ul (Integrated Development Environment) cu care era distribuit. Acesta, fiind de tip RAD (Rapid Application Development), permitea crearea unei aplicaţii grafice minimale pentru Microsoft Windows cu doar câteva clicuri de maus, depaşind la acest capitol toate aplicaţiile de pe piaţă la ora aceea. Principalul său competitor surclasat era

Microsoft Visual Basic, motiv pentru care a fost poreclit Visual Basic Killer. Cu timpul, numele “Delphi” a început să fie folosit şi pentru IDE, nu doar pentru limbaj.
Tipul de aplicaţie pentru care Delphi este folosit cel mai des este

VCL Forms Application, bazată pe Visual Component Library, un set de librării create de Borland pentru dezvoltarea de aplicaţii Microsoft Windows.
^Cuprins

Cum arată codul?

Delphi permite crearea mai multor tipuri de proiecte:

Aplicaţie VCL Forms
Aplicaţie pentru consolă
DLL³ ⁴ Dynamic-Link Library
Delphi Package (componente pentru IDE-ul Delphi-ului şi pentru aplicaţiile scrise în Delphi)
Aplicaţie serviciu
Aplicaţie pentru Control Panel

^Cuprins

Structura unui proiect VCL Forms

Un proiect VCL Forms tipic este format din 3 fişiere. Presupunând că se folosesc numele predefinite de IDE, aceste fişiere sunt:

Project 1.dpr – conţine iniţializarea aplicaţiei, crearea form-ului principal şi apelul de rulare a aplicaţiei
Unit 1.pas – conţine form-ul principal
Unit 1.dfm – conţine valori pentru iniţializarea form-ului principal (poziţie, dimensiuni, etc)

La crearea unui proiect nou, Delphi creează cele 3 fişiere şi scrie în ele codul necesar pentru o aplicaţie minimală, dar gata de rulare imediat după compilare, fără a fi nevoie să se scrie manual cod.

Project 1.dpr

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Unit 1.pas

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

Unit 1.dfm

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 293
  ClientWidth = 426
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
end

^Cuprins

Hello, world!

Deşi uşor de creat, aplicaţia implicită creată de către Delphi este inutilă. După câteva modificări, se obţine un exemplu de aplicaţie “Hello, World!”, de tip VCL Forms.
Project 1.dpr – nu este modificat
Unit 1.pas – lui TForm1 i se adaugă un buton TButton şi o funcţie care este executată la apăsarea butonului adăugat

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!');
end;

end.

Unit 1.dfm – se adaugă parametrii de iniţializare ai butonului adăugat în Unit 1.pas

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 293
  ClientWidth = 426
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 152
    Top = 96
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
end

^Cuprins

Structura unui proiect consolă

Un proiect pentru consolă tipic este format dintr-un singur fişier, Project 1.dpr.
Project 1.dpr

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
  { TODO -oUser -cConsole Main : Insert code here }
end.

^Cuprins

Hello, world!

Un exemplu de “Hello, World!” pentru consolă se obţine prin modificarea fişierului Project 1.dpr astfel:
Project 1.dpr

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln('Hello, world!');
  readln;
end.

Instrucţiunea “readln” face ca mesajul să rămână vizibil până la apăsarea tastei <Enter>.
^Cuprins