надо ради прикола новый паскаль сделать. 1. чтоб в принципе не было ситуации в коде когда переменная имела ... как значение по умолчанию не указано то его надо задать в конструкторе FCaption: string; //строки по умолчанию пустые FImageIndex: integer = -1; procedure SetParent(Value: ...

... Обычно понятие "плагин" это что то подключаемое к программе в процессе ее работы. В случае с FPC и Lazarus это так же реализуемо, но ... var ANewForm:TForm); TModuleRunCommandEvent = procedure (ARunCmd:ShortString; AParamValue,AParamName:TStringArray; var AResult:integer); { Forward ...

чтобы это работало надо по разному формировать ссылку на метод и это случайно не получится Вот из исходников самого Лазаруса ... 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 ...