freeonterminate

program FizzBuzzHelper;

uses
  System.SysUtils;

type
  TFizzBuzzHelper = record helper for Integer
    function ToFizzBuzz: String;
  end;

freeonterminate

program FizzBuzz;
uses
  System.SysUtils;
var
  i: Integer;
  Values: array [0.. 3] of String = ('', 'Fizz', 'Buzz', 'FizzBuzz');
begin
  for i := 1 to 100 do 
  begin
    Values[0] := i.ToString;

freeonterminate

program 半沢直樹;

uses
  System.SysUtils;

type
  T半沢直樹 = record helper for Single
    function 倍返し: Double;
  end;

freeonterminate

program 小木曽;

uses
  System.SysUtils;

type
  T小木曽 = record helper for String
    function バンバン: String;
  end;

freeonterminate

program ForQuiz;
var
  Count: Integer;
  i: Integer;
begin
  Count := 3;

  for i := 0 to Count - 1 do begin
    Inc(Count); //→ Count := Count + 1;
    Writeln(i); // 数字はいくつまで表示される？

freeonterminate

unit uStyleProvider;

(*
以下のように利用します

procedure TForm1Create(Sender: TObject);
var
  StyleName: String;
begin
  // 生成

freeonterminate

{

■概要
TMenuBar を使った Main Menu の次の問題を修正します。 

1.マルチディスプレイで Form の X 座標がマイナス座標の時、
  メニューが座標 0, y に表示されてしまう問題 

2. OnMouseDown でメニューが選択されてしまう問題（通常は OnMouseUp で選択）

freeonterminate

unit uNSAppSample;

interface

implementation

{$IFDEF MACOS}
uses
  // Delphi の RTL
  System.SysUtils, System.Generics.Collections,

freeonterminate

program Project1;

uses
  System.SysUtils;

type
  // Sample Interface
  IFoo = interface
    ['{174C7089-888D-4B3A-A348-DBAEC0AA70A5}']
    function GetBar: String;

freeonterminate

// ARGB を ABGR に変換
// IsRev が True の時 ABGR（PixelFormat が pfA8B8G8R8）
function GetColor(const iColor: TAlphaColor): TAlphaColor;
{$IFDEF CPUX86}
asm
  cmp byte ptr IsRev, 0
  jz @@exit
  rol eax, 8
  bswap eax
  @@exit: