freeonterminate

(*
 * TComboEdit のフォントを変更するサンプルコード
 *
 * Copyright (c) 2018 HOSOKAWA Jun.
 *
 * HOW TO USE:
 *   1. Add uComboEditHelper to uses block.
 *   2. Call ComboEdit.SetFont at an appropriate timing such as FormCreate
 *
 * EXAMPLE:

freeonterminate

unit FixTaskbarIconClick;
(*
 * Fix RSP-17322
 *
 * USAGE:
 *   Just add FixTaskbarIconClick to the uses section.
 *
 * RSP-17322:
 *   Window minimize-restore via taskbar icon click is broken in
 *   all Windows flavours

freeonterminate

uses
  System.Generics.Collections;

type
  TOpenText = class(TText);

procedure TForm1.CreateRandomText;
var
  x, y: Integer;
  Text: TText;

freeonterminate

(*
 * 概要  Base64 にエンコード
 * 引数  iSrc       エンコードしたいストリーム
 *       iDest      エンコード結果格納先
 *       iSepCount  セパレータを入れる場所(32 なら 32 個エンコードした所で入る)
 *       iSep       セパレータ
 *)
procedure EncodeBase64(
  const iSrc, iDest: TStream;
  iSepCount: Integer = 0;

freeonterminate

program Foo;

function Bar(N: Integer): Integer;
begin
  if (N > 0) then
    Bar := Bar(N - 1);
end;

begin
  Bar(5);

freeonterminate

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

program MVPCounter;

{$APPTYPE CONSOLE}

freeonterminate

program StaticOverride;

type
   TFoo = class
   public
     class procedure Bar; virtual;
   end;

   TBar = class(TFoo)
   public

freeonterminate

(*
 * 概要  Base64 エンコード
 * 引数  iSrc       エンコードしたいストリーム
 *       iDest      エンコード結果格納先
 *       iSepCount  セパレータを入れる場所(32 なら 32 個エンコードした所で入る)
 *       iSep       セパレータ
 *)
procedure EncodeBase64(
  const iSrc, iDest: TStream;
  iSepCount: Integer = 0;

freeonterminate

{$WARNINGS OFF}
begin
  (procedure(F: array of const)begin end)([

    // 定番のやつ
    (function(const Count: Integer): Integer
      begin
        for Result := 0 to Count - 1 do
          Writeln('Good-bye, semicolon world !')
      end

freeonterminate

program プログラム;

uses
  System.SysUtils
  {$IFDEF ANDROID}
  , Androidapi.JniBridge
  {$ELSEIF IOS}
  , iOSapi.Foundation
  {$ENDIF}
  ;