Публикации от Станислав Пантелеев

Delphi. Simple helper

Что такое хэлпер, можно прочитать здесь. Если кратко, то это класс расширяющий функциональность другого класса. Это немного похоже на наследование, но синтаксически выглядит по-другому, а Читать на сайте автора.

Читать на сайте автора.

Visitor template. Simple example

Простой пример шаблона визитер. Когда нужно вставить новую функциональность, почти не меняя класса. unit uVisitor; interface uses SysUtils, System.Generics.Collections; type TElement = class private FName: Читать на сайте автора.

Читать на сайте автора.

Delphi. Dependency Injection With Spring

Этот пример можно найти в библиотеке Spring for Delphi, где-то примерно здесь C:WorkDSeattlelibssglienke-spring4dSamplesIntroToDependencyInjection6-UseContainer Как это работает? Для начала нам нужно зарегистрировать в контейнере классы unit Читать на сайте автора.

Читать на сайте автора.

Delphi. MySQL. Пишем в DECIMAL поле и читаем из него.

Есть Decimal поле для цены в одном из проектов. Есть на форме 2 spinEdit, рубли и копейки соответственно. Чтение из базы Получение дробной части Читать на сайте автора.

Читать на сайте автора.

Delphi. Гениальная борьба с WideMemo

Делаю проект на UniGUI. Соответственно, не могу воспользоваться DBGridEh Имеется поле типа TEXT в MySQL, Delphi определяет его как WideMemo Я просто создал кальк Читать на сайте автора.

Читать на сайте автора.

Delphi. WinAPI. Получение дескриптора безопасности файла

Получение дескриптора безопасности файла Способ №1 function ConvertSecurityDescriptorToStringSecurityDescriptor_( SecurityDescriptor: PSECURITY_DESCRIPTOR; RequestedStringSDRevision: DWORD; SecurityInformation: SECURITY_INFORMATION; StringSecurityDescriptor: PPChar; StringSecurityDescriptorLen: PCardinal ): Boolean; stdcall; external ‘ADVAPI32.DLL’ name {$IFDEF USEUNICODE}’ConvertSecurityDescriptorToStringSecurityDescriptorW'{$ELSE} Читать на сайте автора.

Читать на сайте автора.

Delphi. FireDAC. Проверка на NULL и запись NULL значений в базу данных

Проверка на NULL with qSomeQuery do begin if FieldByName(‘someField’).IsNull then //do something end; Запись NULL значений, согласно инструкции // setting param to null … qSomeQuery.SQL.Text:= ‘INSERT INTO DATABASE.TABLE Читать на сайте автора.

Читать на сайте автора.

Delphi. UniGUI. Делаем авторизацию через СМС. Часть 1 – проверка номера телефона

В одном моем проекте 99% клиентов из России, Казахстана и Украины. И вот взбрело мне в голову сделать авторизацию через смс. Нашёл шлюз, отправил пару Читать на сайте автора.

Читать на сайте автора.