А есть ли способ заставить конечный класс в иерархии классов реализовать все, всё ещё не реализованные абстрактные методы? самый простой пример: program Project1; {$mode delph...
Подскажите... в FPC нету семафора? так-то я в многопоточности не очень, но кажется мне нужен именно он есть секция кода, которую исполняют множество потоков из другого участка...
program Project1; uses Classes, {$IFDEF FPC}ZStream{$ELSE}zlib{$ENDIF}; type TCompStream = {$IFDEF FPC}TCompressionStream{$ELSE}TZCompressionStream{$ENDIF}; var fs: TF...
Есть какой-нибудь для Delphi/FPC T*Compression(Decompression)Stream на базе LZ4/Zstd/любой другой быстрый(и хорошо сжимающий) алгоритм А ещё лучше в pure pascal А ещё лучше од...
Итак... понадобилось мне примерно следующее: program Project1; type TMyClass1 = class class procedure instance_proc; static; inline; procedure DoWork; end; TMyCl...
D12CE Target: Win x64 program test; var b: byte; v: UInt64; begin // ???? v:=b shl 32; // E1012 Constant expression violates subrange bounds v:=b shl 33; rea...
program test; type parrb = ^arrb; arrb = array of byte; function add(const a: arrb): arrb; begin SetLength(parrb(@a)^, 30); end; var v: arrb; begin SetLength(v, ...
Ну куда-ж без наколенных тестов? program Project1; {$modeswitch implicitfunctionspecialization} uses SysUtils; type tarr = array [0..1024*1024*1024-1] of byte; parr = ^...
На 100млн с девиртуализацией: Direct: 62 Indirect: 172 Без девиртуализации (за счёт шага назад в настройках оптимизации) - результаты точно такие же .... наверное нужно рандо...
program Project1; type TRec = record class procedure method; static; inline; end; TMyClass<T> = class R: T; procedure proc; end; procedure TMyClass<T>.pro...
type generic TSimpleNode<T> = record type TNode = specialize TSimpleNode<T>; // <- public data: T; child_nodes: array of TNode; Есть способ изнутри узнать св...
program Project1; {$iochecks off} uses SysUtils, Unit1, Unit2; function get_object: TBaseClass; begin Result:=TSubClass.Create; end; procedure bench; var C: TBaseClass;...
program Project1; uses Classes, zlib; var fs,cs: TStream; s: array[0..5] of byte = (1,2,3,4,5,6); begin fs:=TFileStream.Create('test.txt',fmCreate); cs:=TZCompressio...
Есть какое-то логическое объяснение этому? D12CE: ✅ Int8 ✅ Int16 ✅ Int32 ✅ Int64 ✅ UInt8 ✅ UInt16 ✅ UInt32 ✅ UInt64 🤷♂️💁♂️🤔 PInt64 PUint32 PUint64 В камунити эдишн типов н...
const prime_size = 65521; //prime number var table: array [0..prime_size-1] of DWORD; function get_data(thread_id: DWORD): DWROD; begin Result:=table[thread_id mod 65...
Безопасно ли вот тут: type TNodeDataType = record ... end; TNode = record node_data: TNodeDataType; ... end; ... procedure NodeDataIO.ReadData(var data); ......
Какой лучший способ гнать поток данных куда-то? В файл? Так-то получается около 32Гигов только на Москву надо сырых данных буфер на гиг и потом в ZSTD загонять?
Такой вопросец - есть функция function MySuperDuperConcat(const a: array of AnsiString): AnsiString; Как мне в её теле сделать вот так? Result:=Concat(a); А не грустный вариан...
program pg_test; {$mode objfpc} uses sysutils; procedure profiler_init; external name 'profiler_init'; procedure profiler_reset; external name 'profiler_reset'; {$LINK prof...
В FPC, в System есть переменная ThreadID Если я буду выводить значение этой переменной из DLL, ну т.е. в DLL напишу вот так: procedure test; begin WriteLn(System.ThreadID); ...