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

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;