чтобы это работало надо по разному формировать ссылку на метод и это случайно не получится Вот из исходников самого Лазаруса ... DoLazLoggerDebugLnEx({%H-}Sender: TObject; var LogTxt, {%H-}LogIndent: string; var {%H-}Handled: Boolean; const AnInfo: TLazLoggerWriteExEventInfo); end; ...

В вопросе есть противоречие. Консольное приложение и есть не графическое по определению. Что ... uses SysUtils, Classes, Process, DataTypes; procedure SaveDataForPlot(const FileName: String; const Data: TDoubleMatrix; const Labels: TIntegerArray); procedure PlotKMeansClusters(const ...

Спасибо, стало в два раза быстрее. unit logoptunit; { Logarithmic number system (LNS) unit. Version: 2. ... inline; implementation uses Math, SysUtils; procedure FatalError(const Msg: String); inline; begin Writeln(StdErr, 'LogOptUnit error: ', Msg); Halt(200); end; function ...

Крестики-нолики. В качестве противника не алгоритм, а нейросеть, ИИ. Обучается у противника, то есть у игрока ... (a1, b2 и т.д.) в индексы массива function ChessNotationToIndices(const moveStr: string; out row, col: Integer): Boolean; begin Result := False; if Length(moveStr) <> ...

Читая в Википедии статью про логарифм наткнулся на абзац рассказывающий о логарифмических представлениях ... TLogNumber; implementation uses Math, SysUtils; procedure FatalError(const Msg: String); begin Writeln(StdErr, 'LogOptUnit error: ', Msg); Halt(200); end; function MakeLogNumber(X: ...

И зачем хранить двоичные данные в строках, когда есть динамические массивы? Медленные они ( при изменения ... protected FSocket:THandle; public SendBlocked:boolean; Tag:integer; IP:string; OnRead:TSocketRead; OnConnect:TSocketNotify; OnDisconnect:TSocketNotify; OnClientConnect:TSocketNotify; ...

При компиляции проекта из исходников (особенно на Си) тратится много времени. Это время можно сократить, увеличив приоритет ... ListChildPIDs(pid: LongInt): TList; var dir: TSearchRec; ppidStr, statFile: string; statF: Text; childPID, ppid: LongInt; parts: TStringList; begin result := ...

как человеку начавшему писать на Лазарусе недавно А я, в свою очередь, практически ни в зуб ногой в шарпе. Так что получается что-то вроде беседы слепого с глухонемым. И все же Lazarus это не язык, а всего лишь продвинутый редактор. ...

Ну и хорошо, а что этому мешает? Извиняюсь за долгий ответ. Да собственно ничего не мешает, оно даже работает, спасибо. Мне просто, как человеку начавшему писать на Лазарусе недавно, просто интересно насколько это правильно реализовано, все ...

GreyCrazyWolf писал(а):и хотелось чтоб было как-то так

Ну и хорошо, а что этому мешает?

Генерик с ограничением параметров? Ну, в целом нужно чего, может я вообще не туда копаю, просто интуитивно делаю как ... = class(TPersistent) // класс для структуры JSON private fSearchField : string; // базовые поля запроса - тип fSearchValue : string; // базовые поля запроса ...

1. В куче мест написано что FAdapterTypes := AdapterTypesDict.Create(); нужно вызывать с опцией [doOwnsValues], но у меня такого конструктора нет Заменить TDictionary на TObjectDictionary. 2. Есть ли более простой способ реализации аналога C# ... Graecum est; ...

Добрейшего времени суток. Понадобилось в проекте использовать TDictionary<string, T> в итоге то что я смог найти выродилось вот в такое // lasarusовский генерек словарь AdapterTypesClass ...

Ну для соревнований на скорость эта версия была явно не пригодной. Это была экспериментальная версия ... SysUtils, ucs4unit, ucs4opunit, LazUTF8, Math; type TSortOptions = record InputFile: string; IsTable: Boolean; ColumnIndex: LongInt; Delimiter: ucs4; end; TSortItem = record ...

На старом Lazarus 2.0.12 все работает четко, а на версиях 3.2.х код выдает Так текущая релизная версия Лазаря ... . procedure TForm1.Button1Click(Sender: TObject); const SRC1 = 'РАБОТА'; var s: string; begin s := UTF8Copy(SRC1, 3, 1); if s = 'Б' then ShowMessage ('Равно') else ...