Alex Egorov

type IObjectExt = interface(IObject) end; IArrayExt = interface(IArray) function GegObject(const AIndex: Integer): ISuperObjectExt; end; function TArrayExt.G...

До этого с перекодированием текста, точнее с восстановлением читаемости кириллицы как-то не сталкивался, а тут файл с битыми данными попросили восстановить, ну как с битыми - ...

Кто-то может объяснить логику Delphi: Вот так не работает, пишет, что нет overloaded функции function GetVal(var AVal: Int64): Boolean; var Val: UInt32; GetVal(Int64(Val));...

Delphi 11 на двух виртуалках, правда апдейты отличаются и вот замеил, что когда через git файлы таскаю - на одной в dfm формы вставляются поля для компонентов на форме: Ex...

Помогите с советом под Linux Немного ковыряю CrossVCL, всё работает без нареканий, не без доделок, конечно, но не в этом суть. Единственный затык - не могу показать дочернее о...

Редко использую некоторые логические функции, поэтому вначале немного подтупливаю, когда надо их вспомнить ) Гляньте, правильно ли я сокращаю сравнение? if AHaveAccess and (Se...

Одному мне кажется, что варнинг Delphi о том, что результат функции может быть неопределён - в данном случае ошибочен? Что скажет на это Лазарь? function Test: Boolean; var ...

Есть модуль с условной компиляцией unit uUnit; interface uses {$IFDEF U1}uUnit1{$ELSE}uUnit2{$ENDIF}; type {$IFDEF U1} TMyType = TTypeFromUnit1; {$ELSE} TMyTyp...

Или зайду с другой стороны. Т.к. с интерфейсами пока на "вы", мне интерфейс не критичен, я могу использовать класс, реализующий интерфейс без самого интерфейса, написав хелпер...

Есть VirtualStringTree, в нём используется только один метод: OnGetText, где строки дёргаются из двумерного массива строк: procedure TFormImport.tvPreviewGetText(Sender: TBase...

Что-то я не догоняю и туплю с вечера, есть массив, где хранятся копии классов, не создаются, а существующие добавляются и не разрушаются при удалении массива. При проверке - м...

Давно использую для Json XSuperObject без каких либо проблем: и кратко, и через интерфейсы - создал и забыл. Но тут попал в нагруженную (внезапно) 😀 часть кода и возник вопрос...

Небольшой вопрос оптимизации. Что будет выполняться быстрее? {1: Выглядит покороче} var S := 'Str1'; if (A > B) then S := 'Str2'; {2: Выглядит подлиннее} var S: string; if (...

{$DEFINE MYVAR} в Delphi на весь проект только в свойствах проекта можно сделать?

LongWord был (Дельфи) и никак не мог понять, что не так, а оказалось, что он 4 байта в Windows x86/x64, но 8 байт в Posix системах... Вот как об этом можно догадаться и где ло...

Помогите разобраться с дженериками, есть такой код: function TFastList<T>.AddCopy(AItem: T): Integer; begin Result := -1; var Item := TClassUtils<T>.CreateInstance; if T...

А что быстрее исполняется, процедура в процедуре с использованием локальных переменных или вызов внешней процедуры с передачей туда параметров (в том числе строк). Или это зав...

Как в Убунте можно получить системный цвет Selected Color для элементов ListBox?

А вот ещё ))) В коде намешано, где-то Variant, где-то OleVariant - часто для одних и тех-же функций, наружу ничего не передаётся, к какому типу лучше всё привести?

Какой профайлер с поддержкой D11 можете порекомендовать?