std::vector<boost::shared_ptr<MyObj<double> > >
                                           ^ ^ 
operator+(int)
           ^

type
  Class  = (Num, Dat, Str); { перечисление }
  Date   = record
     D, M, Y: Integer;
  end;
  Facts = record
    Name: string[10];
    case Kind: Class of  { обьединение }
      Num: (N: real);
      Dat: (D: Date);
      Str: (S: string);
  end;

type WordPtr = ^word;

var
   p : WordPtr;
Begin
     p := nil;
     Inc(p, 10); { адресная арифметика  int* p = (int*)0 + 10; }
End.

var d:double;
var a:array [0..7] of byte absolute d;

for (int x=0;x<3;x++){}

Кё>Получилось черт знает что. Увы Лучше бы добавили шаблоны, удалили interface/implementation, и forward — и язык бы преобразился.

{$i 'MyHeader.h'}
{$include 'MyHeader2.h'}

Упреждающие (Forward) объявления необходимы, если процедура используется до ее определения.

Кё> Хочу удобный синтаксис и обобщенное программирование

TYPE
  A = POINTER TO RECORD
    b: B;
    c: C;
    d: D;
  END;

  B = POINTER TO RECORD
    a: A;
    c: C;
    d: D;
  END;

  C = POINTER TO RECORD
    a: A;
    b: B;
    d: D;
  END;

  D = POINTER TO RECORD
    a: A;
    b: B;
    c: C;
  END;

MODULE MyModule;
 IMPORT StdLog, Math; (* Импорт БИНАРНЫХ модулей StdLog и Math, но не их исходных текстовых файлов *)

(* .... *)

BEGIN
  StdLog.String("'MyModule' loaded into memory"); StdLog.Ln()
CLOSE
  StdLog.String("'MyModule' unloaded from memory"); StdLog.Ln()
END MyModule.

while (*dest++ = *src++);

Source File -->-----+                         +--->--- Code File
                    |                         |
                    +---->--- Compiller --->--+
                    |                         |
Symbol Files --->---+                         +--->--- Symbol File

module name bytes clients compiled             loaded

StdLinks    20639    1    2.7.1996  18:42:15   29.8.1996  14:31:14
StdFolds    20425    1    2.7.1996  18:41:33   29.8.1996  14:31:12
StdCmds     25066    7    2.7.1996  18:39:12   29.8.1996  14:31:00

Config        125    0    2.7.1996  18:38:21   29.8.1996  14:31:20
Init          682    0    2.7.1996  18:40:21   29.8.1996  14:31:05
Controls    78876    5    7.7.1996  14:14:58   29.8.1996  14:31:00
Services     1472    5    2.7.1996  18:37:14   29.8.1996  14:30:54
Containers  37348   40    2.7.1996  18:37:51   29.8.1996  14:30:52
Properties   8337   42    2.7.1996  18:37:40   29.8.1996  14:30:49
Controllers  6037   42    2.7.1996  18:37:36   29.8.1996  14:30:49
Views       31589   49    2.7.1996  18:37:33   29.8.1996  14:30:49
Models       4267   50    2.7.1996  18:37:27   29.8.1996  14:30:48
Converters   2189   51   14.7.1996  22:45:12   29.8.1996  14:30:48
Dialog       8979   54    2.7.1996  18:37:13   29.8.1996  14:30:48
Dates        3848   45    2.7.1996  18:37:07   29.8.1996  14:30:48
Meta        19275   11    2.7.1996  18:37:10   29.8.1996  14:30:48
Stores      22302   53    2.7.1996  18:37:22   29.8.1996  14:30:47
Strings     17547   15    2.7.1996  18:37:05   29.8.1996  14:30:47
Math        15408    2    3.7.1996   1:45:05   29.8.1996  14:30:47
Ports       10631   56    2.7.1996  18:37:17   29.8.1996  14:30:46
Fonts        1589   58    2.7.1996  18:37:15   29.8.1996  14:30:46
Files        3814   62    2.7.1996  18:36:28         linked
...

PROCEDURE g(x: REAL);       (* Процедура         *)
PROCEDURE f(x: REAL): REAL; (* Процедура-функция *)

J>while (*dest++ = *src++);
J>

memcpy(dest, src, sizeof(src));

B>а чего смешного

B>memcpy(dest, src, sizeof(src));

B>>а чего смешного

B>>memcpy(dest, src, sizeof(src));
S>

Copies characters between buffers.

void *memcpy(
void *dest,
const void *src,
size_t count
);
wchar_t *wmemcpy(
wchar_t *dest,
const wchar_t *src,
size_t count
);
Parameters
dest
New buffer.
src
Buffer to copy from.
count
Number of bytes to copy.
Return Value
The value of dest.

Remarks
Copies count bytes of src to dest. If the source and destination overlap, the behavior of memcpy is undefined. Use memmove to handle overlapping regions.

Security Note Make sure that the destination buffer is the same size or larger than the source buffer. For more information, see Avoiding Buffer Overruns.
Requirements
Routine Required header Compatibility
memcpy

The sizeof operator yields the size of its operand with respect to the size of type char.
Grammar
unary-expression:
sizeof unary-expression
sizeof ( type-name )
The result of the sizeof operator is of type size_t, an integral type defined in the include file STDDEF.H. This operator allows you to avoid specifying machine-dependent data sizes in your programs.
The operand to sizeof can be one of the following:
A type name. To use sizeof with a type name, the name must be enclosed in parentheses.
An expression. When used with an expression, sizeof can be specified with or without the parentheses. The expression is not evaluated.
When the sizeof operator is applied to an object of type char, it yields 1. When the sizeof operator is applied to an array, it yields the total number of bytes in that array, not the size of the pointer represented by the array identifier. To obtain the size of the pointer represented by the array identifier, pass it as a parameter to a function that uses sizeof. For example:
Example
// expre_sizeof_Operator.cpp
// compile with: /EHsc
#include <iostream>

size_t getPtrSize( char *ptr )
{
return sizeof( ptr );
}

using namespace std;
int main()
{
char szHello[] = "Hello, world!";

cout << "The size of a char is: "
<< sizeof( char )
<< "\nThe length of " << szHello << " is: "
<< sizeof szHello
<< "\nThe size of the pointer is "
<< getPtrSize( szHello ) << endl;
}
Output
The size of a char is: 1
The length of Hello, world! is: 14
The size of the pointer is 4
When the sizeof operator is applied to a class, struct, or union type, the result is the number of bytes in an object of that type, plus any padding added to align members on word boundaries. The result does not necessarily correspond to the size calculated by adding the storage requirements of the individual members. The /Zp compiler option and the pack pragma affect alignment boundaries for members.
The sizeof operator never yields 0, even for an empty class.
The sizeof operator cannot be used with the following operands:
Functions. (However, sizeof can be applied to pointers to functions.)
Bit fields.
Undefined classes.
The type void.
Dynamically allocated arrays.
External arrays.
Incomplete types.
Parenthesized names of incomplete types.
When the sizeof operator is applied to a reference, the result is the same as if sizeof had been applied to the object itself.
If an unsized array is the last element of a structure, the sizeof operator returns the size of the structure without the array.
The sizeof operator is often used to calculate the number of elements in an array using an expression of the form:
sizeof array / sizeof array[0]

while(*dest++ = *src++);

memcpy(dest, src, sizeof(src));

memcpy(dest, src, (strlen(src)+1)*sizeof(*src));

When the sizeof operator is applied to a class, struct, or union type, the result is the number of bytes in an object of that type, plus any padding added to align members on word boundaries. The result does not necessarily correspond to the size calculated by adding the storage requirements of the individual members. The /Zp compiler option and the pack pragma affect alignment boundaries for members

unit Unit1;

interface

type
  TB = class; (* forward declaration *)

  TA = class
  private
    b: TB;
    ...
  end;

  TB = class
  private
    a: TA;
  public
    //...
  end;

implementation
//...
end.

MODULE Module1;

TYPE
  A = POINTER TO RECORD (* Какой-то приватный тип - он не экспортируется этим модулем *)
    b: B;
    ...
  END;

  B* = POINTER TO RECORD    (* Символ "*" после имени типа означает, что этот тип экспортируется *)
    a: A;
    ...
  END;

END Module1.

Platform-Specific Issues (Windows)

Module SYSTEM

Using DLLs in BlackBox modules

Using COM without special Direct-To-COM compiler

Windows programming interfaces

OLE Automation

Windows-specific information in BlackBox

Differences between different Windows versions

The BlackBox linker

Linking BlackBox applications

Startup of BlackBox

module    contents

WinApi    basic data types, error codes, basic Win32 functionality
WinDlg    common dialog box library
WinCtl    common controls
WinOle    basic COM and OLE interfaces
WinOleDlg OLE dialogs (OleUI...)
WinOleAut OLE automation interfaces    
WinOleCtl OLE controls interfaces
WinRpc    remote procedure call functions
WinNet    networking and socket functions
WinMM     multimedia services
WinCmc    Messaging Application Programming Interface (MAPI)
WinSql    Database services (ODBC)

Excel5       MS Excel 5.0 automation interface
Excel8       MS Excel 8.0 automation interface
Excel9       MS Excel 9.0 automation interface
Word8        MS Word 8.0 automation interface
Word9        MS Word 9.0 automation interface
Outlook8     MS Outlook 8.0 automation interface
Outlook9     MS Outlook 9.0 automation interface
PowerPoint8  MS PowerPoint 8.0 automation interface
PowerPoint9  MS PowerPoint 9.0 automation interface
Access8      MS Access 8.0 automation interface
Access9      MS Access 9.0 automation interface
Graph8       MS Graph 8.0 automation interface
Graph9       MS Graph 9.0 automation interface
Office       MS Office 9.0 automation interface
OfficeBinder MS Binder 9.0 automation interface
MSForms      MS Forms 2.0 automation interface
DAO35        MS Data Access Objects 3.5 automation interface
DAO36        MS Data Access Objects 3.6 automation interface
ADODB        MS ActiveX Data Objects 2.0 automation interface
VBIDE        MS Visual Basic automation interface