freeonterminate

unit uStyleProvider;

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

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

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

program 小木曽;

uses
  System.SysUtils;

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

freeonterminate

program 半沢直樹;

uses
  System.SysUtils;

type
  T半沢直樹 = record helper for Single
    function 倍返し: Double;
  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 FizzBuzzHelper;

uses
  System.SysUtils;

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