Delphi. Язык программирования

06.11.201503.02.2016

Delphi Class function / procedure

Поскольку я начинающий программист, я постоянно для себя открываю что-то новое. Недавно открыл для себя новый способ создания / вызова функций, процедур со словом class. То есть, когда это слово стоит перед объявлением функции / процедуры, то экземпляр класса создавать не нужно. На мой взгляд, довольно удобно.

Выглядит это примерно так….
// Объявляем свой тип

type TMytype =class
  function summ(x,y:integer):integer; // << объявление функции по-старому
  class function newsumm(x,y:integer):integer; // << объявление функции по-новому

  procedure old; //<< объявление процедуры по старому
  class procedure new; // объявление процедуры по-новому
end;

type TMytype =class

function summ(x,y:integer):integer; // << объявление функции по-старому

class function newsumm(x,y:integer):integer; // << объявление функции по-новому

procedure old; //<< объявление процедуры по старому

class procedure new; // объявление процедуры по-новому

end;

Далее это все просто вызываем. Причем при вызове по-новому не требуется создавать экземпляр класса, а необходимо написать, например TMytype.new или Tmytype.newsumm(2,2) и все будет работать так как будто мы создали экземпляр класса. На мой взгляд, это достаточно удобно.

Я создал простейшую программу для демонстрации

procedure TForm2.Button1Click(Sender: TObject);
var MyType:TMytype;
begin

Mytype:=TMytype.Create;
showmessage('hi its old style, func result, '+
inttostr(MyType.summ(2,2)));


Mytype.Free;

end;

{ TMytype }

class procedure TMytype.new;
begin
showmessage('hi its new procedure');
end;

class function TMytype.newsumm(x, y: integer): integer;
begin
result:=x+y;
end;

procedure TMytype.old;
begin
showmessage('hi its old procedure');
end;

function TMytype.summ(x, y: integer): integer;
begin
result:=x+y;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin

showmessage('hi its new style, function result, '+
inttostr(Tmytype.newsumm(2,2))
);


end;

procedure TForm2.Button3Click(Sender: TObject);
var Mytype:TMytype;
begin
Mytype:=TMytype.Create;
MyType.old;
Mytype.Free;

end;

procedure TForm2.Button4Click(Sender: TObject);
begin
TMyType.new;
end;

procedure TForm2.Button1Click(Sender: TObject);

var MyType:TMytype;

begin

Mytype:=TMytype.Create;

showmessage('hi its old style, func result, '+

inttostr(MyType.summ(2,2)));

Mytype.Free;

end;

{ TMytype }

class procedure TMytype.new;

begin

showmessage('hi its new procedure');

end;

class function TMytype.newsumm(x, y: integer): integer;

begin

result:=x+y;

end;

procedure TMytype.old;

begin

showmessage('hi its old procedure');

end;

function TMytype.summ(x, y: integer): integer;

begin

result:=x+y;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

showmessage('hi its new style, function result, '+

inttostr(Tmytype.newsumm(2,2))

);

end;

procedure TForm2.Button3Click(Sender: TObject);

var Mytype:TMytype;

begin

Mytype:=TMytype.Create;

MyType.old;

Mytype.Free;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

TMyType.new;

end;

02.11.201525.01.2017

Delphi.Generics types

В данном посте разбираюсь с обобщенными типами данных, руководствуясь книгой Д. Осипова «Delphi. Программирование для Windows. OS X, iOS и Android». Цель — отработать на практике возможности обобщенных типов.

Зачем нужны обобщенные типы?

Насколько я понял, в том числе для того, чтобы можно было использовать один и тот же алгоритм для разных типов данных. Скажем, есть у нас алгоритм сравнения или сортировки или сложения или ещё чего угодно, но, например, написан он для целочисленных значений.

Допустим, он корректно работает и с другими типами данных. Раньше надо было бы его переписывать на другие типы данных, а сейчас достаточно указать в обобщенном типе данных, что тип данных в данном конкретном случае будет другой. Читать далее «Delphi.Generics types»

21.10.201506.11.2015

Как получить список дисков?

Взято с форума Cyberforum

Function GetDisks():TStringlist;
var i:Char;
begin
 Result:=TStringlist.Create;
 for i := 'A' to 'Z' do
 begin
        if (GetDriveType(PChar(i+':\'))<>1) and
        (GetDriveType(PChar(i+':\'))<>0)

        then result.Add(i+':\');

 end;
end;

Function GetDisks():TStringlist;

var i:Char;

begin

Result:=TStringlist.Create;

for i := 'A' to 'Z' do

begin

if (GetDriveType(PChar(i+':\'))<>1) and

(GetDriveType(PChar(i+':\'))<>0)

then result.Add(i+':\');

end;

19.10.201503.12.2016

Delphi. Процедурные типы. Callback

Callback — это возможность использовать процедуры и функции в качестве параметра. По другому в Delphi это называется процедурные типы. Не спрашивайте меня зачем это нужно ))) Пока не знаю, на данный момент разобрался лишь с техникой — на уровне самого простого примера.
Пример ниже, по нажатию кнопки, будет выводить сначала первое сообщение — прямым, обычным способом, а потом второе — через callback функцию или что, тоже самое — процедурный тип.

ШАГ1 — Объявляем процедурный тип в разделе interface

type
  TMyCallBack=procedure(s:string);// &lt;&lt;здесь может быть и функция...

1 2	type TMyCallBack=procedure(s:string);// <<здесь может быть и функция...

Создаем процедуру / функцию с такими же параметрами

 procedure CallbackProc(s:string);
 begin
   showmessage(s);
 end;

procedure CallbackProc(s:string);

begin

showmessage(s);

end;

Создаем метод, в котором мы собственно будем использовать CallBack

procedure MyProc (s:string; CallBackVar:TMyCallBack );
begin
showmessage(s);
CallBackVar:=CallbackProc;//&lt;&lt;ОБЯЗАТЕЛЬНО присвоить тип
CallBackVar('SecondMessageInMyPoc');// Используем её по назначению
end;

procedure MyProc (s:string; CallBackVar:TMyCallBack );

begin

showmessage(s);

CallBackVar:=CallbackProc;//<<ОБЯЗАТЕЛЬНО присвоить тип

CallBackVar('SecondMessageInMyPoc');// Используем её по назначению

end;

ШАГ последний — вешаем обработчик на кнопку

procedure TForm1.Button1Click(Sender: TObject);
var LocalMyCallBack:TMyCallBack;
begin
MyProc('FirstMessaage',LocalMyCallBack);
end;

procedure TForm1.Button1Click(Sender: TObject);

var LocalMyCallBack:TMyCallBack;

begin

MyProc('FirstMessaage',LocalMyCallBack);

end;

17.09.201522.12.2015

Delphi.Dll — Dynamic link library

Dll — Dynamic link library — библиотека для основной программы. Помогает разгрузить код основной программы и дать возможность другим программистам пользоваться её методами. Различают статическую и динамическую DLL.

Статическая DLL — загружается в память вместе с программой. Динамическая — загружается только тогда, когда нужен тот или иной метод.

Для небольших приложений, на мой взгляд, уместно использовать статические DLL, а для приложений, сильно расходующих память — динамические. Читать далее «Delphi.Dll — Dynamic link library»