BrainPatchworkDX.com

Code: Select all

procedure WriteLn(x: Integer); overload;
procedure WriteLn(x: String); overload;
procedure WriteLn(x: Real); overload;

WriteLn(42);        { Calls Integer version }
WriteLn('hello');   { Calls String version }
WriteLn(3.14);      { Calls Real version }

Code: Select all

var
  arr: array of Integer;  { No fixed size }
begin
  SetLength(arr, 10);
  arr[0] := 5;
  
  SetLength(arr, 20);     { Grow }
  arr[15] := 15;
  
  SetLength(arr, 5);      { Shrink }
end;

Code: Select all

type
  PNode = ^Node;          { Forward reference }
  
  Node = record
    value: Integer;
    next: PNode;          { Can now use PNode }
  end;

Code: Select all

procedure Outer;
var
  x: Integer;
begin
  x := 10;
  procedure Inner;
  begin
    WriteLn(x);  { Access outer scope }
  end;
  Inner();
end;

Code: Select all

type
  TCallback = procedure(x: Integer);

var
  callback: TCallback;
begin
  callback := @SomeProcedure;
  callback(42);  { Call through reference }
end;

Code: Select all

type
  TVector = record x, y: Real; end;

operator +(a, b: TVector): TVector;
begin
  Result.x := a.x + b.x;
  Result.y := a.y + b.y;
end;

v1 := v2 + v3;  { Natural syntax! }