freeonterminate

program Project1;

type
  TFoo<T> = class; // interface から class に変えた

  TBaz<T> = record
    Value: TFoo<TArray<T>>; // E2604 ジェネリック型を再帰的に使用しています
  end;

  TFoo<T> = class

freeonterminate

//
// あんまり、おこらないかもしれない！
//
// IFMXApplicationEventService をTPlatformServices.Current.GetPlatformService から取り出して
// AppEventService.SetApplicationEventHandler(AppEvent); をして
// そのイベントハンドラで以下の様にする

function TLifecycleManager.AppEvent(
  iAppEvent: TApplicationEvent;
  iContext: TObject): Boolean;

freeonterminate

(*
 * TMemoHelper
 8 [Method List]
 *   FastAdd  - Fast Add Method
 *
 * [How to use]
 *   1. uses FMX.MemoHelper;
 *   2. Memo1.FastAdd('something');
 *)

freeonterminate

unit JavaSample;

interface

uses
  Androidapi.JNI.GraphicsContentViewText;

function SaveJavaBitmapToFile(
  const iSrc: JBitmap; // JBitmap は android.graphics.Bitmap です。同様に接頭辞 J で始まる物は全部 Java のクラスです
  const iFileName: String): Boolean;

freeonterminate

unit uTabControlHelper;

interface

uses
  FMX.TabControl;

type
  TTabControlHelper = class helper for TTabControl
  private

freeonterminate

(*
 * If expression - ternary operator like C.
 *
 * HOW TO USE
 *   1. uses uIfExp;
 *   2. IfExp<TYPE>(BooleanValue) - TRUE_VALUE or FALSE_VALUE
 *      or
 *      IfExp<TYPE>(BooleanValue).ThenElse(TRUE_VALUE, FALSE_VALUE);
 *
 * EXAMPLE

freeonterminate

(*
 * This is sample code (My memorandum)
 *   System.Net.HttpClient.THttpClient class
 *
 * Programmed by HOSOKAWA Jun / twitter @pik
 *)

program MVPCount;

{$APPTYPE CONSOLE}

freeonterminate

{
2015/09/30 検証用プログラム修正

CodeIQ で出題された「先制 hello, world」の僕の解答と、ちょっとだけ解説です。
特設ページ http://nabetani.sakura.ne.jp/codeiq/prehewo/index.html

僕が提出したコードは下記（先頭に空白アリ）

 {'4#()3.}BEGIN WRITE(LOWERCASE('PREEMPTIVE '#34'HELLO'#44' WORLD'#34))END.

freeonterminate

program CLikeSwitchCase;

function SwitchCase(const A: Integer): Integer;
label
  Case0, Case1, CaseElse;
begin
  Result := 0;

  case A of
    0: goto Case0;

freeonterminate

(*
 * Switches
 *   Case sentence with Anytype !
 *
 * Copyright (c) 2015 HOSOKAWA Jun.
 *
 * CONTACT
 *   Twitter @pik or [email protected]
 *
 * LAST UPDATE