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

(*
 * 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 freeonterminate@gmail.com
 *
 * LAST UPDATE

freeonterminate

unit uFileStreamFixForAndroid4;

interface

uses
  System.Classes
  , System.SysUtils
  ;

type

freeonterminate

program FizzBuzzHelper;

uses
  System.SysUtils;

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

freeonterminate

program 半沢直樹;

uses
  System.SysUtils;

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