Using Delphi library with C++ Builder

Submitted by st on Thu, 29/09/2016 - 12:23

Since early XE versions C++ Builder supports Delphi units directly added in C++ project and compiles them as well as C/C++ source. However, this approach has several drawbacks:

Programming

C++ |
C++Builder

SQL: generate list (sequence) of integer values

Submitted by st on Thu, 22/09/2016 - 15:19

Here are some examples of SQL to generate a sequence of numeric (integer) values from 0 to 99.

Programming

SQL |
SQL Server

Bit-packed structure (record) in Free Pascal and Delphi

Submitted by st on Sat, 19/12/2015 - 11:58

Here is the code explaining some methods to pack bit accessing logic in your program.

program project1;
 
type
  TRec1 = packed record // Doesn't pack at all
    b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13, b14, b15, b16: boolean;
  end;
 
  TRec2 = bitpacked record // Free Pascal specific
    b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13, b14, b15, b16: boolean;
  end;
 
  TRecByte = (b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13, b14, b15, b16);
  TRecBytes = set of TRecByte;
var
  r1: TRec1;
  r2: TRec2;
  s1: TRecBytes;

Programming

Delphi |
Free Pascal

Interface implementations and multiple inheritance in C++

Submitted by st on Sat, 30/05/2015 - 12:02

Multiple inheritance of interfaces which are pure abstract classes indeed is not a problem until you need to use the interface implementation in other classes.

Suppose there are two interfaces, the implementation of which will be used in other classes.

Programming

Free Pascal: call stack and procedures names at runtime

Submitted by st on Wed, 27/05/2015 - 11:37

Here is an example how to get N-2 calling procedure information.

Warning: code seeking debugging info is slow so be aware to use it in loops.

Make sure to compile with following options:

Programming

Free Pascal

Crack C# namespaces in 30 seconds

Submitted by st on Mon, 20/04/2015 - 15:58

The namespaces conception in C# seems to be exhaustive and insufficient at the same time compared with a strong module notation in Oberon-2 and even with a modular programming approaches in Free Pascal/Delphi.

Why insufficient? You cannot declare constants and functions within namespaces but you should add a class with constant field or static method for it.

Why exhaustive? The using directive with such introduced classes is the source of unexpected errors. Here is an example below.

Programming

FGL extension for FPC 2.6.4

Submitted by st on Thu, 09/04/2015 - 11:17

As Free Pascal 2.6.4 distribution does not include generic tree implementation (there are some limitation of compiler), I use my own named FGLExt for different purposes.

Here are 2 files in repository: