HOSOKAWA Jun freeonterminate
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| uses | |
| Androidapi.JNI.JavaTypes, | |
| Androidapi.JNI.GraphicsContentViewText, | |
| FMX.Log, | |
| FMX.Helpers.Android; | |
| procedure StartIntent; | |
| var | |
| Intent: JIntent; | |
| begin |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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
/ FMX.Log.pas
Last active
August 29, 2015 13:55
FMX.Types.Log が色々ダメ（Log.d の実態が Log.i だったり、Windows だと出力されなかったり、TAG が全く意味が無かったり）なので作った。
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| { | |
| 最新版は github に引っ越しました | |
| FMX.Log newest version moved to github. | |
| https://github.com/freeonterminate/delphi/tree/master/FMXLog | |
| } |
freeonterminate
/ ToCharCode.pas
Last active
January 4, 2016 21:19
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| program QuoeeeeUeuooowww; | |
| const | |
| MEM_SIZE = 1024; | |
| MEM_HIGH = MEM_SIZE - 1; | |
| CMD_NEXT = 'く'; //'>'; | |
| CMD_PREV = 'う'; //'<'; | |
| CMD_INC = 'ｗ'; //'+'; | |
| CMD_DEC = 'お'; //'-'; | |
| CMD_OUTPUT = 'ー'; //'.'; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // ARGB を ABGR に変換 | |
| // IsRev が True の時 ABGR（PixelFormat が pfA8B8G8R8） | |
| function GetColor(const iColor: TAlphaColor): TAlphaColor; | |
| {$IFDEF CPUX86} | |
| asm | |
| cmp byte ptr IsRev, 0 | |
| jz @@exit | |
| rol eax, 8 | |
| bswap eax | |
| @@exit: |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| program Project1; | |
| uses | |
| System.SysUtils; | |
| type | |
| // Sample Interface | |
| IFoo = interface | |
| ['{174C7089-888D-4B3A-A348-DBAEC0AA70A5}'] | |
| function GetBar: String; |
freeonterminate
/ uNSAppSample.pas
Created
November 19, 2013 16:02
Delphi で OS X / Objective-C のランタイムライブラリを呼んでいるサンプル
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unit uNSAppSample; | |
| interface | |
| implementation | |
| {$IFDEF MACOS} | |
| uses | |
| // Delphi の RTL | |
| System.SysUtils, System.Generics.Collections, |
freeonterminate
/ uFMXMenu.pas
Last active
December 27, 2015 23:49
TMenuBar を使った Menu の問題を修正します。詳しくはソース先頭のコメントをご覧ください。似た問題として QC#119282 と QC#101866 があります。