freeonterminate

program QuoeeeeUeuooowww;
const
  MEM_SIZE = 1024;
  MEM_HIGH = MEM_SIZE - 1;

  CMD_NEXT        = 'く'; //'>';
  CMD_PREV        = 'う'; //'<';
  CMD_INC         = 'ｗ'; //'+';
  CMD_DEC         = 'お'; //'-';
  CMD_OUTPUT      = 'ー'; //'.';

freeonterminate

function ToCharCode(const iText: String; const iUTF8: Boolean): String;
var
  M: TMarshaller;

  function ToHexString(const iByte: TPtrWrapper): String;
  var
    Chars: PByteArray;
    i: Integer;
    SB: TStringBuilder;
  begin

freeonterminate

{
  最新版は github に引っ越しました
  FMX.Log newest version moved to github.
  
  https://github.com/freeonterminate/delphi/tree/master/FMXLog
}

freeonterminate

program FizzBuzz;
uses
  System.SysUtils;
var
  i: Integer;
  S: array [0.. 2] of String = ('', 'Fizz', 'Buzz');
begin
  for i := 1 to 100 do
    Writeln(S[Ord(i mod 3 = 0)] + S[Ord(i mod 5 = 0) shl 1], i.ToString.Substring(0, (i mod 3) * (i mod 5) * $ff));
end.

freeonterminate

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls;

type
  TForm1 = class(TForm)

freeonterminate

uses
  Androidapi.JNI.JavaTypes,
  Androidapi.JNI.GraphicsContentViewText,
  FMX.Log,
  FMX.Helpers.Android;

procedure StartIntent;
var
  Intent: JIntent;
begin

freeonterminate

uses
  Macapi.ObjectiveC, 
  Macapi.CocoaTypes, 
  Macapi.Foundation, 
  Macapi.AppKit,
  FMX.Platform.Mac

procedure SetMinSize(const iForm: TForm; const iMinW, iMin: Integer);
var
  Wnd: NSWindow; // OS X 用のクラスがそのまま使えてる

freeonterminate

unit uKeyHook;

interface

uses
  Winapi.Windows;

type
  TKeyHookEvent = procedure(const iVKKey, iState: DWORD) of object;

freeonterminate

program Project1;

uses
  System.SysUtils;

type
  TTest<T> = record
    Value: T;
  end;

freeonterminate

program Project1;

type
  IFoo<T> = interface;

  TBar<T> = record
    Value: IFoo<TArray<T>>;
  end;

  IFoo<T> = interface