freeonterminate

unit uIOSUtils;

interface

uses
  System.UITypes;

procedure SetStatusBarColor(const iColor: TAlphaColor);

implementation

freeonterminate

(*
 * Easy Downloader
 *
 * Copyright (c) 2015, 2017 HOSOKAWA Jun.
 *
 * CONTACT
 *   Twitter @pik or freeonterminate@gmail.com
 *
 * LAST UPDATE
 *   2017/12/05  Remove iPort parameter

freeonterminate

unit uFileStreamFixForAndroid4;

interface

uses
  System.Classes
  , System.SysUtils
  ;

type

freeonterminate

(*
 * Get File Size
 *
 * Copyright (c) 2015, 2016 HOSOKAWA Jun.
 *
 * CONTACT
 *   Twitter @pik or freeonterminate@gmail.com
 *
 * LAST UPDATE
 *   2016/03/30  Delete warning 

freeonterminate

(*
 * ExeName method is added to TApplication.
 *
 * Made by HOSOKAWA Jun.
 *
 * CONTACT
 *   Twitter @pik or freeonterminate@gmail.com
 *
 * LAST UPDATE
 *   2015/12/15  First Release

freeonterminate

(*
 * WebBrowserHelper
 *   WebBrowser Utility
 *
 * Copyright (c) 2015 HOSOKAWA Jun.
 *
 * CONTACT
 *   Twitter @pik or freeonterminate@gmail.com
 *
 * LAST UPDATE

freeonterminate

(*
 * Switches
 *   Case sentence with Anytype !
 *
 * Copyright (c) 2015 HOSOKAWA Jun.
 *
 * CONTACT
 *   Twitter @pik or freeonterminate@gmail.com
 *
 * LAST UPDATE

freeonterminate

program CLikeSwitchCase;

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

  case A of
    0: goto Case0;

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

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

program MVPCount;

{$APPTYPE CONSOLE}