Skip to content

Instantly share code, notes, and snippets.

View kazaiso's full-sized avatar

Kaz Aiso kazaiso

1 follower · 0 following
View GitHub Profile
@kazaiso
kazaiso / file0.txt
Last active July 10, 2017 10:01
軽量の、だがしかし高性能なデータベース InterBase / IBLite を iOS / Android で利用する ref: http://qiita.com/kazaiso/items/f579cfd711dd283664e9
//delphiコード
procedure TForm1.FDConnection1BeforeConnect(Sender: TObject);
begin
{$IF DEFINED(iOS) or DEFINED(ANDROID)}
FDConnection1.Params.Values['Database'] :=
TPath.Combine(TPath.GetDocumentsPath, 'IBLITETEST.GDB');
{$ENDIF}
end;
@kazaiso
kazaiso / file0.txt
Last active July 3, 2017 07:47
【Delphi / C++ Builder / Starter】3Dアプリケーションに、視点 カメラを追加してみよう ref: http://qiita.com/kazaiso/items/389149f8b08bc7207999
type
TForm1 = class(TForm)
Viewport3D1: TViewport3D;
Cube1: TCube;
LightMaterialSource1: TLightMaterialSource;
Light1: TLight;
Camera1: TCamera;
Dummy1: TDummy;
procedure Viewport3D1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
@kazaiso
kazaiso / file0.txt
Last active June 27, 2017 08:28
【Delphi / C++Builder / Starter 】アプリにWebページ表示機能をかんたんに組み込む ref: http://qiita.com/kazaiso/items/aeab121e8d73e3417dfb
//Delphiのコード
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
Shift: TShiftState);
begin
{イベントハンドラ引数のKeyがvkReturnならリターンキーが押されている}
if Key = vkReturn then
begin
{NavigateメソッドはURLを開く}
WebBrowser1.Navigate(Edit1.Text);
end;
@kazaiso
kazaiso / file0.txt
Last active May 31, 2017 10:55
Delphiを使ってSQLite接続のスマホアプリ作り ref: http://qiita.com/kazaiso/items/3119c9586d848b14ba76
//delphiコード
procedure TForm1.FDConnection1BeforeConnect(Sender: TObject);
begin
{$IF DEFINED(iOS) or DEFINED(ANDROID)}
FDConnection1.Params.Values['Database'] :=
TPath.Combine(TPath.GetDocumentsPath, 'sqltest.sdb');
{$ENDIF}
end;
@kazaiso
kazaiso / file0.txt
Last active June 13, 2017 07:08
REST+JSONはコンポーネントを使ってかんたんに取得★テーブル化 ref: http://qiita.com/kazaiso/items/44bdcb9982530ab3830f
//delphiのコード
procedure TForm1.FormCreate(Sender: TObject);
begin
//REST要求を実行してJSONデータ取得
RESTRequest1.Execute;
end;
@kazaiso
kazaiso / file0.txt
Last active May 16, 2017 00:32
クロスプラットフォーム開発環境 Delphi / C++Builder で 3D表示のアプリを作る ref: http://qiita.com/kazaiso/items/12d5a389945cb7cf8823
//Delphiのコード
procedure TForm1.Sphere1Click(Sender: TObject);
begin
TAnimator.AnimateFloat(Light1, 'RotationAngle.Y', Light1.RotationAngle.Y-45, 0.5);
end;
@kazaiso
kazaiso / file0.txt
Last active March 17, 2017 02:45
【Delphi / C++Builder 10.2 Tokyo 新機能・改善点】ライブラリ周りの機能など ref: http://qiita.com/kazaiso/items/f100d480eaf2fd997668
for I := 0 to 10000 do
begin
// thread work
Canvas.BeginScene;
try
// drawing code
finally
Canvas.EndScene;
end;
end;
@kazaiso
kazaiso / file0.txt
Last active March 21, 2017 00:44
無料の開発環境 Delphi Starter Edition で Object Pascal 言語を優しく学ぶ 第7回 「オブジェクト指向」その2 ref: http://qiita.com/kazaiso/items/5d6b58966a00e91ae198
type
子となるクラス定義識別子 = class(継承元となるクラス定義識別子)
public
//フィールド、メソッド…
@kazaiso
kazaiso / file0.txt
Last active August 24, 2017 02:35
無料の開発環境 Delphi Starter Edition で Object Pascal 言語を優しく学ぶ 第7回 「オブジェクト指向」その1 ref: http://qiita.com/kazaiso/items/c76eac60bdd4dd075fa3
//まずは先週行ったprivate, publicを使っていないclass定義
type
TDate = class //TDateというクラス定義識別子を、「 = class 」としてクラス定義
Year, Month, Day: Integer; //クラスで保持するデータ（フィールド）の定義
procedure SetValue(Y, M, D: Integer); //クラスに紐づいたメソッド
function UruuDoshi: Boolean;
end; //クラス定義もend;で締める