2. Описание программы
3. Как работает Дизель-Паскаль
4. Описание дизайнера приложений
   1. Получение информации о встроенных процедурах и функциях, импортированных типах данных
   2. Шифрование приложения
5. Менеджер приложений
6. Встроенные языки
   1. Что поддерживает интерпретатор в реализации языков Паскаль и Дизель-Паскаль
   2. Язык программирования Дизель-Паскаль
   3. Операторы защищенного выполнения кода try finally, try except
   4. Указатели
7. Видеоролик как быстро создать приложение для работы с базой FireBird SQL
8. Ссылки

Описание программы

Дизель-Паскаль - это платформа для разработки и выполнения приложений, главным образом платформа создавалась для создания корпоративных приложений способных работать в гетерогенной среде на разных платформах без каких либо переделок под конкретную платформу, как средство автоматизации бизнеса, как свободная альтернатива таких продуктов как 1С. При разработке преследовалась цель запуска программ без перекомпиляции на разных платформах, внесение изменений в приложение без перекомпиляции. Интерфейс и функционал среды аналогичен интерфейсу Lazarus, имеет встроенные интерпретаторы языков Паскаль и Дизель-Паскаль. Оба языка поддерживают ООП. Можно объявлять классы, поддерживается наследование и полиморфизм. Встроенный интерпретатор Паскаль довольно тесно совместим с оригиналом (Free Pascal, Delphi) за исключением некоторых нюансов. Приложения Дизель-Паскаль представляют из себя XML файл содержащий ресурсы (формы, фреймы, модули данных) и код для интерпретатора Паскаль / Дизель-Паскаль. Приложения выполняются машиной, компиляция кода во внутренний формат происходит при запуске приложения, поэтому приложения Дизель-Паскаль будут работать без перекомпиляции и переделок на любой платформе, под которую удастся собрать сам Дизель-паскаль. Можно сказать что Дизель-Паскаль является дополнением к Lazarus и предназначен для разработки бизнес программ либо других программ автоматизации какой либо деятельности, но подразумевающей немного иной подход в построении и выполнении приложения. Дизайнер и машина Дизель-Паскаль могут загружать приложения как локально, так и по протоколу ftp или http.

Дизайнер в ОС Linux

Получение информации о встроенных процедурах и функциях, импортированных типах данных

Чтобы узнать список встроенных процедур и функций, в дизайнере выполните Сервис->Список импортированных процедур и функций.
Чтобы получить информацию о типе данных, которые не объявлены в скрипте программы а импортированы из FPC-Lazarus, установите курсор на имени типа и затем выполните Сервис->Информация о импортированном типе. Для примера, если поставить курсор в слово TCanvasState получим следующий список с возможными значениями:
TCanvasState
Множество (Set)
Множество из TCanvasStates
TCanvasStates
Перечисление (Enum)
MinVal 0
MaxVal 4
(csHandleValid, csFontValid, csPenvalid, csBrushValid, csRegionValid)

Шифрование приложения

Менеджер приложений

Встроенные языки

Что поддерживает интерпретатор в реализации языков Паскаль и Дизель-Паскаль

Язык программирования Дизель-Паскаль

while i >= 0 do
  Оператор;
  Оператор;
  I--
end;

for a = 1 to 10 do
  Оператор;
  Оператор;
end;

if a = 0 then
  Оператор;
  Оператор;
elseif a =  10 then
  Оператор;
  Оператор;
elseif a = 20 then
  Оператор;
  Оператор;
else
  Оператор;
  Оператор;
end;

Операторы защищенного выполнения кода try finally, try except

try
  Оператор;
  Оператор;
finally
  Оператор;
  Оператор;
end;

try
  Оператор;
  Оператор;
except on E: Exception do
  Оператор;
  Оператор;
end;

try
  Оператор;
  Оператор;
except on E: Exception
  Оператор;
  Оператор;
end;

try
  Оператор;
  Оператор;
except
  Оператор;
  Оператор;
end;

Указатели

unit Main;

interface

type
  TMainForm = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
  protected
  public
    procedure MyActExec(Sender: TObject);
  end;

var MainForm: TMainForm;

implementation

uses Unit1;

procedure TMainForm.Button1Click(Sender: TObject);
var Form1: TForm1;
begin
  Form1 := TForm1.Create(Self, @MyActExec);
  Form1.Show;
end;

procedure TMainForm.MyActExec(Sender: TObject);
var Form1: TForm1;
begin
  //Получаем указатель на Form1
  Form1 := TForm1(TComponent(Sender).Owner);
  ListBox1.Items.Append(Form1.Edit1.Text);
  Form1.Close;
end;

end.      

unit Unit1;

interface

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
  private
  protected
  public
    constructor Create(AOwner: TComponent; P: Pointer);
  end;

implementation

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  CloseAction := caFree;
end;

constructor TForm1.Create(AOwner: TComponent; P: Pointer);
begin
  inherited Create(AOwner);
  Button1.OnClick := P;
end;

end.     

Видеоролик как быстро создать приложение для работы с базой FireBird SQL

И ещё ролик про Дизель-Паскаль:
http://youtu.be/KuSIs9bILO4

Ссылки