dev/delphi

*Delphi memo
2008年4月30日～
[[index]]

[[firemonkey]] はこちら

あちこち勘違いな所もあったりするので、ごめんなさい。と、逃げをうっておく。

#contents

**型

[[10.1Berlin 内部データ形式>http://docwiki.embarcadero.com/RADStudio/Berlin/ja/%E5%86%85%E9%83%A8%E3%83%87%E3%83%BC%E3%82%BF%E5%BD%A2%E5%BC%8F%EF%BC%88Delphi%EF%BC%89]]

要注意 Win64のExtendedは、Win32よりも精度が悪い
||Win32|Win64
|Double|8byte|8byte
|Extended|10byte|8byte

**列挙型
CでいうところのEnum
>type
>  TGohan = (ghAsaGohan,ghHiruGohan,ghBanGohan);

この場合、Ord(ghAsaGohan)は0、Ord(ghHiruGohan)は1を返す。

名前衝突の回避
例えばghAsaGohanの名前衝突が起きた場合。
Gohan:=MyUnit.ghAsaGohan;

参照 [[単純型 → 列挙型>http://docwiki.embarcadero.com/RADStudio/ja/%E5%8D%98%E7%B4%94%E5%9E%8B#.E5.88.97.E6.8C.99.E5.9E.8B]]

**集合

>type
>  TGohan = set of (ghAsaGohan,ghHiruGohan,ghBanGohan);
>
> if ghAsaGohan in gohan then
>   nattou.mazemaze;

空集合は[]で表す。

**構造体,Record
> type
>   PNS_HEAD = ^NOTE_TO_SH;
>   NOTE_TO_SH = record
>     lMitei2Size:Longint;
>     lVerUpStartAddress:Longword;
>     cYobi:array[0..31] of char;
>   end;

**Generics
[[ジェネリックスの概要>http://docwiki.embarcadero.com/RADStudio/Tokyo/ja/%E3%82%B8%E3%82%A7%E3%83%8D%E3%83%AA%E3%83%83%E3%82%AF%E3%82%B9%E3%81%AE%E6%A6%82%E8%A6%81]]

***定義の例
>type
>  TIxBuffer<T> = class(TObject)
>  protected
>    FValue: T;
>  public
>    procedure Push(Value: T);
>    function Pop: T;
>  end;
>
>function TIxBuffer<T>.Pop: T;
>begin
>  Result := FValue;
>end;
>
>procedure TIxBuffer<T>.Push(Value: T);
>begin
>  FValue := Value;
>end;

***使い方例
>var
>  buf_str: TIxBuffer<string>;
>  buf_int: TIxBuffer<integer>;
>begin
>  buf_str := TIxBuffer<string>.Create;
>  try
>    buf_str.Push('abcd');
>    memo(buf_str.Pop);
>  finally
>    buf_str.Free;
>  end;
>
>  buf_int := TIxBuffer<integer>.Create;
>  try
>    buf_int.Push(10);
>    memo(buf_int.Pop.toString);
>  finally
>    buf_int.Free;
>  end;
>
>end;

**System.Generics.Collections
汎用コンテナユニット
[[http://docwiki.embarcadero.com/Libraries/Tokyo/ja/System.Generics.Collections]]

TObjectXXXは、リスト(スタック,キュー)から削除した時に、オブジェクトを自動的に開放する。

TArray
TEnumerable

TObjectDictionary
TObjectQueue
TObjectStack

[[スレッド間データ受け渡し>http://www.s-m-l.org/dev/delphi.html#スレッド間データ受け渡し]]
-TThreadedQueue 受け渡しにロック操作不要
-TThreadList 追加・削除にロック操作不要、Listアクセス時ロック

>uses Generics.Collections;
>var
> xlist:TList<integer>;
>begin
> xlist:=TList<integer>.Craete;
> try
>   xlist.Add(1);
>   xlist.Add(2);
>   xlist.Add(3);
>   for i=0 to xlist.Count-1 do
>   begin
>     memo(StrToInt(xlist[i]))
>   end;
> finally
>   xlist.Free;
> end;

***TDictionaryで列挙してみる
>var
>  pairs: TDictionary<string, integer>;
>  val: TPair<string, integer>;
>  i:integer;
>begin
>  pairs := TDictionary<string, integer>.Create;
>  pairs.Add('name1', 10);
>  pairs.Add('name2', 220);
>  pairs.Add('name3', 11);
>  pairs.Add('name4', 310);
>
>  //ペアの列挙
>  for val in pairs do
>    memo(val.Key + '=' + IntToStr(val.Value));
>
>  //値の列挙
>  for i in pairs.Values do
>    memo(IntToStr(i));
>end;

***ソートTArray.Sort
動的配列をソートする
[[山本隆の開発日誌 - TArray.Sortで配列をソートする>http://www.gesource.jp/weblog/?p=6043]]
[[System.Generics.Defaults.TComparer.Compare>http://docwiki.embarcadero.com/Libraries/XE7/ja/System.Generics.Defaults.TComparer.Compare]]
>uses System.Generics.Collections, System.Generics.Defaults;
>
>type
>  TPointFComparer = class(TComparer<TPointF>)
>  public
>    function Compare(const Left, Right: TPointF): Integer; override;
>  end;
>
>function TPointFComparer.Compare(const Left, Right: TPointF): Integer;
>begin
>  if Left.X < Right.X then
>    Result := -1
>  else if Left.X > Right.X then
>    Result := +1
>  else if Left.Y < Right.Y then
>    Result := -1
>  else if Left.Y > Right.Y then
>    Result := +1
>  else
>    Result := 0;
>end;
>
>procedure TForm1.Button1Click(Sender: TObject);
>var
>  i: Integer;
>  pt: TPointF;
>  arr: array of TPointF;
>begin
>  // -----------------------------------------
>  // init
>  // -----------------------------------------
>  Randomize;
>
>  SetLength(arr, 10);
>  for i := Low(arr) to High(arr) do
>  begin
>    arr[i].X := Random(100);
>    arr[i].Y := Random(100);
>  end;
>
>  // -----------------------------------------
>  // show
>  // -----------------------------------------
>  ListBox1.Clear;
>  for pt in arr do
>  begin
>    ListBox1.Items.Add(FloatToStr(pt.X) + ' ' + FloatToStr(pt.Y));
>  end;
>
>  // -----------------------------------------
>  // sort
>  // -----------------------------------------
>  TArray.Sort<TPointF>(arr, TPointFComparer.Create);
>
>  // -----------------------------------------
>  // show
>  // -----------------------------------------
>  ListBox2.Clear;
>  for pt in arr do
>  begin
>    ListBox2.Items.Add(FloatToStr(pt.X) + ' ' + FloatToStr(pt.Y));
>  end;
>
>end;

***ソートTObjectList.Sort
TObjectListをソートするには、比較するクラスを作ってやる。

TCompareはGenerics.Defaults

>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,
>  FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo,
>  Generics.Collections, Generics.Defaults;
>
>type
>  TIxPoint = class(TObject)
>  public
>    Text: string;
>    X: Single;
>    Y: Single;
>  end;
>
>type
>  TIxPointComparer = class(TComparer<TIxPoint>)
>  public
>    function Compare(const Left, Right: TIxPoint): Integer; override;
>  end;
>
>type
>  TForm1 = class(TForm)
>    Memo1: TMemo;
>    Button1: TButton;
>    procedure Button1Click(Sender: TObject);
>  private
>    { private 宣言 }
>  public
>    { public 宣言 }
>  end;
>
>var
>  Form1: TForm1;
>
>implementation
>
>{$R *.fmx}
>
>function TIxPointComparer.Compare(const Left, Right: TIxPoint): Integer;
>begin
>    Result := Round(Left.Text.ToSingle - Right.Text.ToSingle);
>end;
>
>procedure TForm1.Button1Click(Sender: TObject);
>var
>  objlist: TObjectList<TIxPoint>;
>  obj: TIxPoint;
>begin
>  objlist := TObjectList<TIxPoint>.Create;
>  try
>    obj := TIxPoint.Create;
>    obj.Text := '2';
>    objlist.Add(obj);
>
>    obj := TIxPoint.Create;
>    obj.Text := '3';
>    objlist.Add(obj);
>
>    obj := TIxPoint.Create;
>    obj.Text := '1';
>    objlist.Add(obj);
>
>    Memo1.Lines.Add('---- before sort ----');
>    for obj in objlist do
>    begin
>      Memo1.Lines.Add(obj.Text);
>    end;
>
>    objlist.Sort(TIxPointComparer.Create);
>
>    Memo1.Lines.Add('---- after sort ----');
>    for obj in objlist do
>    begin
>      Memo1.Lines.Add(obj.Text);
>    end;
>
>  finally
>    objlist.Free;
>  end;
>
>end;
>
>end.

無名メソッド版
クラスを宣言しなくても、無名メソッドでこうもかける。が、宣言した方が使うのは簡単だと思うのでうーん。
>    objlist.Sort(TComparer<TIxPoint>.Construct(
>      function(const Item1, Item2: TIxPoint): Integer
>      begin
>        Result := Round(Item1.Text.ToSingle - Item2.Text.ToSingle);
>      end));

**デフォルトパラメータ
引数を省略
制限いろいろあるみたい→[[パラメータ（Delphi）>http://docwiki.embarcadero.com/RADStudio/XE6/ja/%E3%83%91%E3%83%A9%E3%83%A1%E3%83%BC%E3%82%BF%EF%BC%88Delphi%EF%BC%89]]
> procedure FillArray(A: array of Integer; Value: Integer = 0);

**オーバーライドと隠蔽
オーバーライドした場合は、継承されたメソッドが呼び出される
隠蔽した場合は、宣言したクラスのメソッドが呼び出される。
> program OverrideRedeclared;
>
> {$APPTYPE CONSOLE}
> {$R *.res}
>
> uses
>   System.SysUtils;
>
> const
>   CRLF = #13#10;
>
> type
>   T1 = class(TObject)
>     procedure Act; virtual;
>   end;
>
>   T2 = class(T1)
>     procedure Act; // Act is redeclared, but not overridden
>   end;
>
>   T3 = class(T1)
>     procedure Act; override; // Act is redeclared, overridden
>   end;
>
> procedure std_out(str: string);
> begin
>   write(str + CRLF);
> end;
>
> var
>   SomeObject1: T1;
>   SomeObject2: T2;
>
> procedure T1.Act;
> begin
>   std_out('T1.Act');
> end;
>
> procedure T2.Act;
> begin
>   std_out('T2.Act');
> end;
>
> procedure T3.Act;
> begin
>   std_out('T3.Act');
> end;
>
> begin
>   try
>     { TODO -oUser -cConsole メイン : ここにコードを記述してください }
>     SomeObject1 := T2.Create;
>     try
>       SomeObject1.Act; // calls T1.Act
>     finally
>       SomeObject1.Free;
>     end;
>
>     SomeObject2 := T2.Create;
>     try
>       SomeObject2.Act; // calls T2.Act
>     finally
>       SomeObject2.Free;
>     end;
>
>     SomeObject1 := T3.Create;
>     try
>       SomeObject1.Act; // calls T3.Act
>     finally
>       SomeObject1.Free;
>     end;
>
>
>   except
>     on E: Exception do
>       Writeln(E.ClassName, ': ', E.Message);
>   end;
>
> end.

**抽象メソッド
実装が無いメソッド
>procedure DoSomething; virtual; abstract;

**クラスフィールド
C言語の静的データメンバみたいなもの...

オブジェクト参照なしでアクセスできるクラス内のデータフィールド
クラスフィールドに保存されるデータは、クラスの全てのインスタンスで共有
クラスまたはクラスのインスタンス変数からアクセス
>type TMyClass = class(TObject)
>  public
>    class var//静的クラスフィールドのブロック開始
>      Top:Integer;
>      Bottom:Integer;
>    var//ブロック終了
>    end;

[[http://docwiki.embarcadero.com/RADStudio/Seattle/ja/%E3%83%95%E3%82%A3%E3%83%BC%E3%83%AB%E3%83%89]]

**メッセージ
TMessagingManagerというのを使うと簡単にメッセージ処理を追加可能。
参考:[[TMessageManagerってこんなの。>http://d.hatena.ne.jp/tales/20130622/1371894728]]

以下はほぼサンプルまま。メッセージハンドラに、無名メソッドを登録している。

>uses System.Messaging;
>var
>  SubscriptionId: Integer;
>    MessageManager: TMessageManager;
>
>procedure TForm1.FormCreate(Sender: TObject);
>begin
>  MessageManager := TMessageManager.DefaultManager;
>
>  SubscriptionId := MessageManager.SubscribeToMessage(TMessage<UnicodeString>,
>    procedure(const Sender: TObject; const M: TMessage)
>    begin
>      ShowMessage((M as TMessage<UnicodeString>).Value);
>    end);
>end;
>
>procedure TForm1.FormDestroy(Sender: TObject);
>begin
>  MessageManager.Unsubscribe(TMessage<UnicodeString>,SubscriptionId);
>end;
>
>procedure TForm1.Button1Click(Sender: TObject);
>var
>  msg: TMessage<UnicodeString>;
>begin
>  MessageManager := TMessageManager.DefaultManager;
>  msg := TMessage<UnicodeString>.Create('This is a string message.');
>  MessageManager.SendMessage(Sender, msg, True);
>end;

**TImage画像読み込み

usesにJpeg,GIFImg,PNGImageを追加する。

参考 [[http://ht-deko.minim.ne.jp/tech054.html]]

**PNG読み込み
10.2tokyo
FireMonkeyだとTBitmap.LoadFromFileでPNG読み込み出来る。
VCLだと、読み込めないのでこうする。
>uses PngImage;
>var
>  png: TPngImage;
>  ext: string;
>begin
>  ext := ExtractFileExt(opt_src_fname);
>  if ext = '.bmp' then
>  begin
>    bmp_src.LoadFromFile(opt_src_fname);
>  end
>  else if ext = '.png' then
>  begin
>    png := TPngImage.Create;
>    try
>      png.LoadFromFile(opt_src_fname);
>      bmp_src.SetSize(png.Width, png.Height);
>      bmp_src.Canvas.Draw(0, 0, png);
>    finally
>      png.Free;
>    end;
>  end;

**GDI+

***GDI+DelphiXE2
こんな感じで拡大・縮小表示可能。便利。
>implementation
>
>uses GDIPAPI, GDIPOBJ;
>
>{$R *.dfm}
>
>procedure TForm1.Button1Click(Sender: TObject);
>var
>  grp: TGPGraphics;
>  img: TGPImage;
>  rct: TGPRect;
>  ratio: double;
>begin
>  if OpenPictureDialog1.Execute then
>  begin
>    grp := TGPGraphics.Create(Image1.Canvas.Handle);
>    img := TGPImage.Create(OpenPictureDialog1.FileName);
>    try
>      ratio := img.GetWidth / img.GetHeight;
>      rct := MakeRect(0, 0, Trunc(Image1.Height * ratio), Image1.Height);
>      grp.DrawImage(img, rct);
>    finally
>      grp.Free;
>      img.Free;
>    end;
>  end;
>end;

***GDI+Delphi2009
Delphi2009で使うには、下記からダウンロードする。
[[ID: 26950, Easy to use Delphi 2009 GDI+ 1.1 Library (version 1.2)>http://cc.embarcadero.com/item/26950]]

**配列
[[配列、動的配列>http://kakinotane.s7.xrea.com/delphi/faq/f001.html]] わかりやすい
動的配列の実体はポインタなんだけど、逆参照演算子'^'使っちゃいけいないそうだ。→ObjectPascal言語ガイド
&img(pointer.png);

***動的配列の要素数
SetLength関数で要素数を設定
High関数で要素数-1を取得。要素数が0の時は、-1を返す。
Length関数で要素数を取得

****要素数取得の例1
>var
>  colors: array of TColor;
>  i: integer;
>begin
>  SetLength(colors, 5);
>  Memo1.Lines.Add('High(colors)=' + IntToStr(High(colors)));

実行時Memo1の表示
>High(colors)=4

****要素数取得の例2
>var
>  buf1: array [0 .. 9] of Byte;
>  buf2: array [0 .. 9] of Word;
>  buf3:array of Byte;
>  buf4:array of Word;
>begin
>  SetLength(buf3,10);
>  SetLength(buf4,10);
>  memo('SizeOf(buf1)='+IntToStr(SizeOf(buf1)));
>  memo('SizeOf(buf2)='+IntToStr(SizeOf(buf2)));
>  memo('SizeOf(buf3)='+IntToStr(SizeOf(buf3)));
>  memo('SizeOf(buf4)='+IntToStr(SizeOf(buf4)));
>  memo('Length(buf1)='+IntToStr(Length(buf1)));
>  memo('Length(buf2)='+IntToStr(Length(buf2)));
>  memo('Length(buf3)='+IntToStr(Length(buf3)));
>  memo('Length(buf4)='+IntToStr(Length(buf4)));
>end;

実行結果
>SizeOf(buf1)=10
>SizeOf(buf2)=20
>SizeOf(buf3)=4
>SizeOf(buf4)=4
>Length(buf1)=10
>Length(buf2)=10
>Length(buf3)=10
>Length(buf4)=10

***動的配列の引数渡し

>procedure TForm1.test3;
>var
>  buffer: TBytes;
>begin
>  SetLength(buffer, 8);
>  Memo1.Lines.Add('array of bytes : High(buffer)=' + IntToStr(High(buffer)));
>  func_set_len(buffer);
>  Memo1.Lines.Add('array of bytes : High(buffer)=' + IntToStr(High(buffer)));
>end;
>
>procedure TForm1.func_set_len(var buf: TBytes);
>begin
>  SetLength(buf, 16);
>end;

実行時Memo1の表示
>array of bytes : High(buffer)=7
>array of bytes : High(buffer)=15

***多次元動的配列
> const
>   SIZEH = 3;
>   SIZEW = 8;
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
>   arr1: array [0 .. SIZEH - 1] of array [0 .. SIZEW - 1] of integer;
>   arr2: array of array of integer;
>   i, j, k: integer;
>   str: string;
> begin
>   SetLength(arr2, SIZEH, SIZEW);
>   //(
>   //  (0,1,2,3,4,5,6,7),
>   //  (0,1,2,3,4,5,6,7),
>   //  (0,1,2,3,4,5,6,7)
>   //)
>
>   k := 0;
>   for i := 0 to SIZEH - 1 do
>   begin
>     for j := 0 to SIZEW - 1 do
>     begin
>       arr1[i, j] := k;
>       arr2[i, j] := k;
>       inc(k);
>     end;
>   end;
>
>   for i := 0 to SIZEH - 1 do
>   begin
>     str := '';
>     for j := 0 to SIZEW - 1 do
>     begin
>       str := str + ' ' + IntToStr(arr2[i, j]);
>     end;
>     memo(str);
>   end;

***動的メモリ
GetMemory→FreeMemory
GetMem→FreeMem
>var
>ptr:pointer;
>begin
>  try
>    ptr:=GetMemory(600*1024*1024); //600MBytes!!
>  finally
>    FreeMemory(ptr);
>  end;

GetMemとの差は、Delphi2010のヘルプ(System.GetMemory)によると、
>メモ：  GetMemory は、GetMem の C++ 互換バージョンです。

***AllocMemとGetMem
AllocMemは、割り当てて0初期化する。GetMemは0初期化しない。

***ポインタが指すメモリの初期化
Winapi.Windows.pasのFillMemory関数を使う→実体はFillCharなんだけど(XE8の時)
[[https://msdn.microsoft.com/ja-jp/library/cc430045.aspx]]

***TMemoryStream
>var
> ptr:PByte;
> ms:TMemoryStream;
>begin
> ms:=TMemoryStream.Create;
> ms.SetSize(256);
> ptr:=ms.Memory;
> ms.Free;

***フィル
メモリの初期化
>  FillChar(m_Buffer^,total_size,$FF);

動的配列の場合
ちょっとわかりにくいが、こうみたい。
> FillChar(Buffer[0],total_size,$FF);
> FillChar(Buffer[0],Length(Buffer),$FF);
> FillChar(PByte(Buffer)^,Length(Buffer),$FF);//これでもいける

***コピー
[[System.Copy>http://docwiki.embarcadero.com/Libraries/Tokyo/ja/System.Copy]]
例
>var
>src:TBytes;
>dst:TBytes;
>begin
>dst := Copy(src);//動的配列はIndex,Size指定いらない

最後にNULを付加するので、MaxLen+1のDestが必要
>SysUtils.StrLCopy(Dest,Source,MaxLen)

名前は移動だけどコピー。なんだけど、動的配列だとダメっぽい？
> procedure Move(const Source; var Dest; Count: Integer);

memcpyと方向逆なのと、var渡しのが要注意。ここらへんが判りづらい。

****move例1
> procedure TForm1.Button1Click(Sender: TObject);
> var
>   Buffer: array of Byte;
>   src_ptr,dst_ptr:PByte;
>   i: integer;
> begin
>   SetLength(Buffer, 256);
>   for i := 0 to Length(Buffer) - 1 do
>     Buffer[i] := i;
>
>   memo('before');
>   for i := 0 to 10 - 1 do
>   begin
>     memo(IntToStr(i) + '=' + IntToStr(Buffer[i]));
>   end;
>
>   src_ptr:=PByte(Buffer);
>   dst_ptr:=PByte(Buffer);
>   inc(src_ptr,4);
>   Move(src_ptr^, dst_ptr^, 3);
>
>   memo('after');
>   for i := 0 to 10 - 1 do
>   begin
>     memo(IntToStr(i) + '=' + IntToStr(Buffer[i]));
>   end;
>
>   Move(Buffer[7], Buffer[0], 3);
>
>   memo('after2');
>   for i := 0 to 10 - 1 do
>   begin
>     memo(IntToStr(i) + '=' + IntToStr(Buffer[i]));
>   end;
> end;

出力
> before
> 0=0
> 1=1
> 2=2
> 3=3
> 4=4
> 5=5
> 6=6
> 7=7
> 8=8
> 9=9
> after
> 0=4
> 1=5
> 2=6
> 3=3
> 4=4
> 5=5
> 6=6
> 7=7
> 8=8
> 9=9
> after2
> 0=7
> 1=8
> 2=9
> 3=3
> 4=4
> 5=5
> 6=6
> 7=7
> 8=8
> 9=9

****move例2
>procedure TForm1.Button2Click(Sender: TObject);
>var
>  buf1: array of Byte;
>  buf2: array of Byte;
>  i: integer;
>begin
>  SetLength(buf1, 8);
>  SetLength(buf2, 8);
>
>  for i := 0 to High(buf1) do
>    buf1[i] := i;
>
>  for i := 0 to High(buf2) do
>    buf2[i] := 0;
>
>  memo('--- before ---');
>  for i := 0 to High(buf1) do
>    memo('buf1[' + IntToStr(i) + ']=' + IntToStr(buf1[i]));
>
>  for i := 0 to High(buf2) do
>    memo('buf2[' + IntToStr(i) + ']=' + IntToStr(buf2[i]));
>
>  Move(PByte(buf1)^, PByte(buf2)^, Length(buf1));
>
>  memo('--- after ---');
>  for i := 0 to High(buf1) do
>    memo('buf1[' + IntToStr(i) + ']=' + IntToStr(buf1[i]));
>
>  for i := 0 to High(buf2) do
>    memo('buf2[' + IntToStr(i) + ']=' + IntToStr(buf2[i]));
>end;

出力
>--- before ---
>buf1[0]=0
>buf1[1]=1
>buf1[2]=2
>buf1[3]=3
>buf1[4]=4
>buf1[5]=5
>buf1[6]=6
>buf1[7]=7
>buf2[0]=0
>buf2[1]=0
>buf2[2]=0
>buf2[3]=0
>buf2[4]=0
>buf2[5]=0
>buf2[6]=0
>buf2[7]=0
>--- after ---
>buf1[0]=0
>buf1[1]=1
>buf1[2]=2
>buf1[3]=3
>buf1[4]=4
>buf1[5]=5
>buf1[6]=6
>buf1[7]=7
>buf2[0]=0
>buf2[1]=1
>buf2[2]=2
>buf2[3]=3
>buf2[4]=4
>buf2[5]=5
>buf2[6]=6
>buf2[7]=7

***配列のバイナリファイル書き込み
静的配列・動的配列・メモリーストリームをファイルに書き込む
>var
>  barr: TByteArray;
>  darr: array of Integer;
>  ms: TMemoryStream;
>  fs: TFileStream;
>  wptr: PWord;
>begin
>fs := TFileStream.Create('test.bin', fmCreate);
>try
>
>  barr[0] := 1;
>  barr[1] := 2;
>  barr[2] := 3;
>  barr[3] := 4;
>  fs.Write(barr, 4);
>
>  SetLength(darr, 4);
>  darr[0] := $12345670 + 1;
>  darr[1] := $12345670 + 2;
>  darr[2] := $12345670 + 3;
>  darr[3] := $12345670 + 4;
>  fs.Write(@darr[0], 4 * sizeof(Integer));
>
>  ms := TMemoryStream.Create;
>  try
>    ms.SetSize(4 * sizeof(Word));
>    wptr := ms.Memory;
>    wptr^ := $89A0+ 1;
>    inc(wptr);
>    wptr^ := $89A0 + 2;
>    inc(wptr);
>    wptr^ := $89A0 + 3;
>    inc(wptr);
>    wptr^ := $89A0 + 4;
>    fs.Write(ms.Memory, ms.Size)
>  finally
>    ms.Free;
>  end;
>
>finally
>  fs.Free;
>end;

***スタックサイズ
配列が大きくてスタックオーバーフローする場合は、スタックを大きくする。という手も有る。
[[メモリ割り当てサイズ（Delphi） - RAD Studio XE2>http://docwiki.embarcadero.com/RADStudio/ja/%E3%83%A1%E3%83%A2%E3%83%AA%E5%89%B2%E3%82%8A%E5%BD%93%E3%81%A6%E3%82%B5%E3%82%A4%E3%82%BA%EF%BC%88Delphi%EF%BC%89]]
>{$M minstacksize,maxstacksize} {$MINSTACKSIZE number} {$MAXSTACKSIZE number}
>{$M 16384,1048576}

**文字列・バイト配列

***文字(配列)操作
>FillChar
>Move

***文字列からバイト配列(ANSI)に変換 DelphiXE7
「012」をTEncoding.ANSIに変換して、バイナリ表示

>procedure TForm1.btnStringStreamDecodeClick(Sender: TObject);
>var
>  ss: TStringStream;
>  i: integer;
>  ptr: PByte;
> begin
>  ss:=TStringStream.Create('012', TEncoding.ANSI);
>  try
>    ptr := ss.Memory;
>    for i := 0 to ss.Size - 1 do
>    begin
>      Memo1.Lines.Add('$' + IntToHex(ptr^, 2));
>      inc(ptr);
>    end;
>
>  finally
>    ss.Free;
>  end;
>end;

***バイト配列(ANSI)から文字列に変換 DelphiXE7
Memo1.Lines.Add('ANSIバイナリ($82,$A0,$82,$A2,$82,$A4,$30,$31,$32)を、読み込んでstringに変換

>procedure TForm1.btnStringStreamEncodeClick(Sender: TObject);
>var
>  ss: TStringStream;
>  arr: array of Byte;
>begin
>  SetLength(arr, 9);
>  arr[0] := $82;
>  arr[1] := $A0;
>  arr[2] := $82;
>  arr[3] := $A2;
>  arr[4] := $82;
>  arr[5] := $A4;
>  arr[6] := $30;
>  arr[7] := $31;
>  arr[8] := $32;
>
>  ss := TStringStream.Create('', TEncoding.ANSI);
>  try
>    ss.WriteData(arr, High(arr) + 1);
>    Memo1.Lines.Add(ss.DataString);
>  finally
>    ss.Free;
>  end;
>end;

***文字列からバイト列に変換 Delphi2010
静的配列・動的配列・動的メモリへ変換。StrLCopyを使う。※MaxLen+1のバッファサイズ必要。
AnsiStringにしているのは、アプリケーションの都合です。
> procedure TForm1.Button1Click(Sender: TObject);
> var
>   static_arr: array [0 .. 12] of Byte;
>   dyn_arr: array of Byte;
>   buffer: PByte;
>   str: string;
>   procedure dump(ptr: PByte; len: integer);
>   var
>     i: integer;
>     tmp: string;
>   begin
>     tmp := '';
>     for i := 0 to len - 1 do
>     begin
>       tmp := tmp + IntToHex(ptr^, 2) + ' ';
>       inc(ptr);
>     end;
>     Memo1.Lines.Add(tmp)
>   end;
>
> begin
>   // -----------------------------------------
>   Memo1.Lines.Add('文字列をバイト列に変換(静的配列)');
>   Memo1.Lines.Add('Length(static_arr)=' + IntToStr(Length(static_arr)));
>   str := '01234567';
>   Memo1.Lines.Add(str);
>   FillChar(static_arr, sizeof(static_arr), 1);
>   dump(@static_arr, sizeof(static_arr));
>   StrLCopy(PAnsiChar(@static_arr), PAnsiChar(AnsiString(str)), Length(static_arr) - 1); // ok
>   dump(@static_arr, sizeof(static_arr));
>
>   // -----------------------------------------
>   Memo1.Lines.Add('文字列をバイト列に変換(動的配列)');
>   str := '76543210';
>   Memo1.Lines.Add(str);
>   SetLength(dyn_arr, 16);
>   Memo1.Lines.Add('Length(dyn_arr)=' + IntToStr(Length(dyn_arr)));
>   FillChar(dyn_arr[0], Length(dyn_arr), 2);
>   dump(PByte(dyn_arr), Length(dyn_arr));
>   StrLCopy(PAnsiChar(dyn_arr), PAnsiChar(AnsiString(str)), Length(dyn_arr) - 1);
>   dump(PByte(dyn_arr), Length(dyn_arr));
>
>   // -----------------------------------------
>   Memo1.Lines.Add('文字列をバイト列に変換(動的メモリ)');
>   buffer := GetMemory(20);
>   try
>     str := '01234567';
>     Memo1.Lines.Add(str);
>     FillChar(buffer^, 20, 3);
>     dump(PByte(buffer), 20);
>     StrLCopy(PAnsiChar(buffer), PAnsiChar(AnsiString(str)), 22 - 1);
>     dump(PByte(buffer), 20);
>
>   finally
>     FreeMemory(buffer);
>   end;
>
> end;

実行結果
> Memo1
> 文字列をバイト列に変換(静的配列)
> Length(static_arr)=13
> 01234567
> 01 01 01 01 01 01 01 01 01 01 01 01 01
> 30 31 32 33 34 35 36 37 00 01 01 01 01
> 文字列をバイト列に変換(動的配列)
> 76543210
> Length(dyn_arr)=16
> 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02
> 37 36 35 34 33 32 31 30 00 02 02 02 02 02 02 02
> 文字列をバイト列に変換(動的メモリ)
> 01234567
> 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03
> 30 31 32 33 34 35 36 37 00 03 03 03 03 03 03 03 03 03 03 03

***TBytesからStringに変換 DelphiXE10.1
TEncoding.GetString()を使う

>var
>  strarr: TBytes;
>  str: string;
>begin
>  SetLength(strarr, 8);
>  strarr[0] := $30;
>      str := TEncoding.ANSI.GetString(strarr, 0, 1);

strには'0'が入る

***バイト配列からStringに変換 Delphi2010

****例1
>var
>byte_buf:array[0..15]of Byte;
>begin
>  byte_buf[bytebuf_wr]:=0;//ヌル終端
>  str:=String(PAnsiChar(@byte_buf));

****例2
> var
> static_arr:array [0..8] of Byte;
> begin
>   StrLCopy(@static_arr,AnsiString('1234'),Length(static_arr)-1);
>   Memo1.Lines.Add(String(PAnsiChar(@static_arr)));
>   Memo1.Lines.Add(String(PAnsiChar(@static_arr[1])));
> end;

実行結果
>1234
>234

***Pointerからstringに変換 Delphi2010
>var
>buf:Pointer;
>ptr:PByte;
>begin
>  buf:=AllocMem(16);//AllocMemは領域を0クリアする
>  try
>    ptr:=PByte(buf);
>    ptr^:=$30;
>    inc(ptr);
>    ptr^:=$31;
>    Memo1.Lines.Add(string(PAnsiChar(buf)));
>  finally
>    FreeMem(buf);
>  end;

***静的配列からstringに変換 Delphi10.1Seatle
TStringStreamを使った変換だと、配列内のゴミまで変換していたので、やり方を変えてみた。
>var
>  serialnumber_buf: array [0 .. 63] of AnsiChar;
>  FillChar(serialnumber_buf[0], 64, 0);
>
> serialnumber_buf[0]:=適当な値
> serialnumber_buf[1]:=適当な値
>
>SerialNumber := String(AnsiString(serialnumber_buf));

***文字列を数値に変換する
TryStrToIntDef を使うと例外を出さずに数値変換出来る。
Delphiは、'$'と'0x'に対応する!!

[[http://docwiki.embarcadero.com/Libraries/Tokyo/ja/System.SysUtils.TryStrToInt]]

***文字列処理とUnicode(Delphi2009以降)
Delphi2009以降は、VCLがUnicode化されたため、既存ソースの移行は、いろいろとあります。
[[Delphi 2009 特集>http://totonica.s41.xrea.com/doc/delphi_tiburon/]] ★必読。わかりやすいのでお勧め。

Delphi2007以前
String = AnsiString
Char = AnsiChar

Delphi2009以降
String = UnicodeString
Char = WideChar

Delphi2010でこんなコードを書いてみる
> procedure TForm1.btnAnsiCharClick(Sender: TObject);
> var
> arr:array [0..2] of AnsiChar;
> str:String;
> begin
>   arr[0]:=AnsiChar($82);
>   arr[1]:=AnsiChar($A0);
>   arr[2]:=AnsiChar(0);
>   str:=arr;
>   Memo1.Lines.Add('AnsiChar配列に「あ」$82$A0を入れた場合');
>   Memo1.Lines.Add(str);
> end;
>
> procedure TForm1.btnCharClick(Sender: TObject);
> var
> arr:array [0..2] of Char;
> str:String;
> begin
>   arr[0]:=Char($82);
>   arr[1]:=Char($A0);
>   arr[2]:=Char(0);
>   str:=arr;
>   Memo1.Lines.Add('Char配列に「あ」$82$A0を入れた場合');
>   Memo1.Lines.Add(str);
> end;

結果はこう
>AnsiChar配列に「あ」$82$A0を入れた場合
>あ
>Char配列に「あ」$82$A0を入れた場合
>□

□の部分は、見た目がそうなるという事で、□のコードに変換されたわけでは無いです。

**数値文字列変換
Formatの使い方
FDelphi過去ログ:[[形式文字列を使うFormatは便利ですが、ヘルプの説明から形式文字列を作成 するのは骨が折れます。例示があると大変助かりますが。 >http://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/faq/00149.htm]]

上記URLの内容をコピー→[[delphi_format]]

**文字列処理
Ansi付き関数は、日本語使える
Ansi無しは日本語つかうと駄目な時有る
***比較
> uses SysUtils
> function SameStr(S1: string; S2: string): Boolean;//大文字小文字区別する
> function SameText(S1: string; S2: string): Boolean;//大文字小文字区別しない

CompareStr,CompareTextも同様だが、戻り値がIntegerになる。
***検索
> uses System
> function Pos(const Substr: string; const S: string): Integer;

SubstrがSに有る場合は、その位置を1～nで返す。※1からというのが罠
無い場合は、0を返す。

***切り出し
> uses System
> function Copy(S:string;Index:Integer;Count:Integer):string;

Indexは1からというのが罠

***置換
> uses System.StrUtils
> ReplaceStr(const AText:string;const AFromText:string;const AToText:string):string; 大文字小文字区別
> ReplaceText(const AText:string;const AFromText:string;const AToText:string):string; 大文字小文字区別しない
> StringReplace AnsiString用

***正規表現
>uses RegularExpressions;
>procedure TForm1.Button1Click(Sender: TObject);
>var
>match:TMatch;
>i:integer;
>begin
>  match:=TRegEx.Match(Edit1.Text,Edit2.Text);
>  if match.Success then
>  begin
>    memo('success');
>    memo('value='+match.Value);
>    for i := 0 to match.Groups.Count-1 do
>    begin
>      memo(match.Groups.Item[i].Value);
>    end;
>  end
>  else
>  begin
>    memo('fail');
>  end;
>end;

使用例
Edit1.Text := 'aaabb(COM12)';
Edit2.Text := '$COM(\d+)$$';
この場合
match.Groups.Item[0].Valueに'12'が入る

連番ファイル名の、先頭部分を取得
>function get_file_head(fname: string): string;
>var
>  head: string;
>  match: TMatch;
>begin
>  head := ExtractFileName(fname);
>  head := ChangeFileExt(head, '');
>  match := TRegEx.match(head, '([^0123456789])+');
>  if match.Success then
>  begin
>    Result := match.Value;
>  end
>  else
>  begin
>    Result := '';
>    raise Exception.Create('ファイル名の解析に失敗 TIxViewObjectFrames.get_file_head');
>  end;
>end;

***文字列の繰り返し
文字や文字列の繰り返しを生成する。下記は「hello!hello!hello!」になる。
>uses System.StrUtils;
>str = DupeString('hello!',3);

**TCharHelperの使い方
Delphi10.1 Seatle
System.Character.IsDigit使おうとすると、非推奨で、TCharHelper使えと言われる。
> c:TChar;
> c.IsDigit
> c.IsControl

**初期化 initialization
>var
>  uid:integer;
>implementation
>  :
>  :
>initialization
>  uid:=0;
>end.

**終了時実行 finalization
[[http://docwiki.embarcadero.com/RADStudio/Seattle/ja/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%A8%E3%83%A6%E3%83%8B%E3%83%83%E3%83%88#finalization_.E3.82.BB.E3.82.AF.E3.82.B7.E3.83.A7.E3.83.B3]]
>finalization

**ラベルとgoto
>procedure test;
>label
>exit_success;
>begin
>  goto exit_success;
>   :
>   :
>exit_success:
>   :
>end;

**プロパティで配列
>function Getvalues(index: integer): string;
>procedure Setvalues(index: integer; const Value: string);
>property values[index:integer]:string read Getvalues write Setvalues;

**プロパティで関数
> type
>   TSampleEvent = procedure (const Value: string) of object;
>
> type
>   TTestEventProperty = class(TObject)
>   private
>     FOnSample: TSampleEvent;
>   public
>     property OnSampleEvent: TSampleEvent read FOnSample write FOnSample;
>   end;
>
>
> type
>   TForm1 = class(TForm)
>     Button1: TButton;
>     procedure Button1Click(Sender: TObject);
>   private
>     procedure testfunc(const Value: string);
>     { Private 宣言 }
>   public
>     { Public 宣言 }
>   end;
>
> var
>   Form1: TForm1;
>
> implementation
>
> {$R *.dfm}
>
> procedure TForm1.testfunc(const Value: string);
> begin
>   ShowMessage(Value);
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> sample:TTestEventProperty;
> begin
>   sample:=TTestEventProperty.Create;
>   try
>     sample.OnSampleEvent:=testfunc;
>     sample.OnSampleEvent('syokun!');
>
>   finally
>     sample.Free;
>   end;
> end;

**例外
>uses SysUtils;
>raise Exception.Create('Error!!');

***デフォルト例外処理
DLLはデフォルト例外処理を行わないので、デフォルト例外処理を行いたい時は、別途処理を追加する。

[[VCL でのデフォルト例外処理>http://docwiki.embarcadero.com/RADStudio/Berlin/ja/VCL_%E3%81%A7%E3%81%AE%E3%83%87%E3%83%95%E3%82%A9%E3%83%AB%E3%83%88%E4%BE%8B%E5%A4%96%E5%87%A6%E7%90%86]]

FireMonkeyは、FMX.Forms.TApplication

**浮動小数点(double,float)を文字列に変換
その1
>uses SysUtils;
>FloatToStrF(Tick/1000,ffFixed,15,3);

その2
>uses SysUtils;
>FormatFloat('00',12);

その3
> f:=0.000012345678;
> memo(FloatToStrF(f,ffExponent,4,1));
> memo(FloatToStrF(f,ffExponent,4,2));
> memo(FloatToStrF(f,ffExponent,3,2));
>//出力
>1.235E-5
>1.235E-05
>1.23E-05

**日付時刻
***TDateTimeを年月日時分秒ミリ秒に分解

[[http://docwiki.embarcadero.com/Libraries/Tokyo/ja/System.SysUtils.DecodeDate]]
[[http://docwiki.embarcadero.com/Libraries/Tokyo/ja/System.SysUtils.DecodeTime]]

>var
>  hour, min, sec, msec: Word;
>  year, month, day: Word;
>begin
>  DecodeDate(dt, year, month, day);
>  DecodeTime(dt, hour, min, sec, msec);

***文字列から日付時刻を生成
現在のロケール形式で文字列に変換します。従って環境によって文字列変わります。
日本語環境ならば、下記の形式になると思います。
(なぜかStringToDateTimeみたいな関数が無い)
yyyy/mm/dd hh:nn:ss

>StrToDateTimeDef(Value, 0.0);

***EncodeDateTime 年月日から日付時刻を生成
>uses SysUtils;
> dt := EncodeDateTime(2012,8,29);

***DateTimeToStr 日付時刻を文字列に変換
ソース
>uses SysUtils;
>  Memo1.Lines.Add(DateTimeToStr(Now));

結果
>2009/01/29 20:28:12

***DateTimeToString 日付時刻を文字列に変換
ソース
>uses SysUtils;
>var
>str:string;
>fname:string;
>begin
>  DateTimeToString(str,'yymmdd_hhnnss',Now);
>  fname:=ExtractFilePath(Application.ExeName)+str+'.csv';
>  Memo1.Lines.Add(fname);
>end;

結果
>070127_112913
>070127_112914

***TDateTimeから曜日を取得
Delphi2010
>uses DateUtils;
>DayOfTheWeek(dt)

で、戻り値は
>DayMonday

とかで比較。

***TDateTime演算
Delphi2010
一日増やすのは単純に1足せばよい。
日付間の日数は、下記関数で求める。
>uses DateUtils;
>DaysBetween(ANow:TDateTime,ATHen:TDateTime):integer;

***TDateTime置き換え
RecodeXXXで、年、月、日、時、分、秒を個別に置き換え
>RecodeMilliSecond
>RecodeSecond
>RecodeHour
>RecodeDay
>RecodeMonth
>RecodeYear

***ファイルの日付取得
> function get_file_date(fname: string): integer;
> var
>   FileHnd: integer;
> begin
>   { ファイルのハンドルを取得 }
>   FileHnd := FileOpen(fname, fmOpenRead);
>   try
>     { ファイルのタイムスタンプを取得 }
>     Result := FileGetDate(FileHnd);
>     { タイムスタンプを日付型に変換 }
>   finally
>     FileClose(FileHnd);
>   end;
> end;

**ファイル読み書き

|TFileStream|write,read使用してアクセス
|TStreamWriter|テキストファイルの書き込み。WriteLine使える。

**TFileStream,ファイルサイズ,共有モード
***read GetMemして読み込み
> var
>   fs: TFileStream;
>   ptr: PByte;
> begin
>   GetMem(ptr, BUFFER_SIZE);
>   try
>     fs := TFileStream.Create(filename, fmOpenRead);
>     try
>       fs.Read(ptr^, BUFFER_SIZE);
>     finally
>       fs.Free
>     end;
>   finally
>     FreeMem(ptr);
>   end;
> end;

***read 配列に読み込み
> var
> fs:TFileStream;
> size:integer;
> chunk_size:integer;
> read_size:integer;
> fname:string;
> arr:TLongwordArray;
> i:integer;
> begin
>   fname:='sample.bin';
>   fs:=TFileStream.Create(fname,fmOpenRead or fmShareDenyWrite);
>     try
>     size:=fs.Size;
>     chunk_size:=4096;
>     read_size:=chunk_size;
>
>     while size>0 do
>       begin
>       if read_size>size then
>         read_size:=size;
>
>       fs.Read(arr,read_size);
>
>       for i := 0 to (read_size div 4) - 1 do
>       begin
>         //arr[i]
>       end;
>
>       size:=size-read_size;
>       end;
>
>     finally
>       fs.Free;
>     end;
> end;

***write

****配列(UInt16)をファイルに保存
>Buffer: array of UInt16;
>SetLength(Buffer, 1024);
>fs.Write(Pointer(Buffer)^, 10); //write_sizeはバイト数

****Pointerで示しているバッファをファイルに保存
>procedure WriteBuffer(buf: Pointer; write_size: integer);
>begin
>  fs.Write(buf^, write_size);

****PCharのバッファをファイルに保存
>  m_Buffer:PChar;
>  GetMem(m_Buffer,LARGE_BUF_SIZE);
> var
> fs:TFileStream;
> begin
>   acc_size:=READ_MEMORY_SIZE;
>   remain:=readsize;
>
>   fs:=TFileStream.Create(fname,fmCreate);
>   try
>     while remain>0 do
>     begin
>       fs.Write(PChar(m_Buffer + SizeOf(SH4USBIF_HEADER)+SizeOf(SH_TO_NOTE))^,acc_size);
>     end;
>
>   finally
>     fs.Free
>   end;
> end;

***注意点
-読み書きサイズ大きいとエラーになる。

> procedure TForm1.btnRefClick(Sender: TObject);
> var
> fs:TFileStream;
> fname:string;
> begin
>   if OpenDialog1.Execute then
>   begin
>     fname:=OpenDialog1.FileName;
>     edFname.Text:=fname;
>     fs:=TFileStream.Create(fname,fmOpenRead or fmShareDenyNone);
>     try
>       edSize.Text:=IntToStr(fs.Size);
>     finally
>       fs.Free;
>     end;
>   end;
> end;

**ZIPファイル
10.2Tokyo

> uses System.Zip;
>procedure TForm1.btnDecompZipClick(Sender: TObject);
>var
>  ZipFileName: string;
>  ZippedFileIndex: Integer;
>  ZipFile: TZipFile;
>  DownloadedStream, DecompressionStream: TStream;
>  LocalHeader: TZipHeader;
>  bmp: TBitmap;
>  strlist: TStringList;
>begin
>  ZipFileName := 'genzip.zip';
>  ZippedFileIndex := 0;
>
>  DownloadedStream := TFileStream.Create(ZipFileName, fmOpenRead);
>  try
>    ZipFile := TZipFile.Create;
>    try
>      ZipFile.Open(DownloadedStream, zmRead);
>      ZipFile.Read(ZippedFileIndex, DecompressionStream, LocalHeader);
>
>      try
>        bmp := TBitmap.Create;
>        try
>          bmp.LoadFromStream(DecompressionStream);
>        finally
>          bmp.SaveToFile('zip1.bmp');
>          bmp.Free;
>          Image1.Picture.LoadFromFile('zip1.bmp');
>        end;
>      finally
>        DecompressionStream.Free;
>      end;
>
>      ZipFile.Read('2/zip2.bmp', DecompressionStream, LocalHeader);
>      try
>        bmp := TBitmap.Create;
>        try
>          bmp.LoadFromStream(DecompressionStream);
>        finally
>          bmp.SaveToFile('2_zip2.bmp');
>          bmp.Free;
>          Image2.Picture.LoadFromFile('2_zip2.bmp');
>        end;
>      finally
>        DecompressionStream.Free;
>      end;
>
>      ZipFile.Read('readme.txt', DecompressionStream, LocalHeader);
>      try
>        strlist := TStringList.Create;
>        try
>          strlist.LoadFromStream(DecompressionStream);
>        finally
>          strlist.SaveToFile('dst.txt');
>          strlist.Free;
>          Memo1.Lines.LoadFromFile('dst.txt');
>        end;
>      finally
>        DecompressionStream.Free;
>      end;
>
>    finally
>      ZipFile.Free;
>    end;
>  finally
>    DownloadedStream.Free;
>  end;
>
>end;
>
>procedure TForm1.btnGenZipClick(Sender: TObject);
>var
>  ZipFile: TZipFile;
>  UploadStream: TStream;
>  fs: TFileStream;
>begin
>  UploadStream := TFileStream.Create('genzip.zip', fmCreate);
>  try
>
>    ZipFile := TZipFile.Create;
>    try
>
>      // src1.bmpをzip1.bmpとして追加
>      ZipFile.Open(UploadStream, zmWrite);
>      fs := TFileStream.Create('src1.BMP', fmOpenRead);
>      try
>        ZipFile.Add(fs, 'zip1.bmp');
>      finally
>        fs.Free;
>      end;
>
>      // src2.bmpを2/zip2.bmpとして追加
>      fs := TFileStream.Create('src2.BMP', fmOpenRead);
>      try
>        ZipFile.Add(fs, '2/zip2.bmp');
>      finally
>        fs.Free;
>      end;
>
>      // src.txtをreadme.txtとして追加
>      fs := TFileStream.Create('src.txt', fmOpenRead);
>      try
>        ZipFile.Add(fs, 'readme.txt');
>      finally
>        fs.Free;
>      end;
>
>    finally
>      ZipFile.Free;
>    end;
>
>  finally
>    UploadStream.Free;
>  end;
>end;

**TImage上でマウスドラッグ
> procedure TfrmMain.ImageViewMouseDown(Sender: TObject; Button: TMouseButton;
>   Shift: TShiftState; X, Y: Integer);
> begin
>   memo('mouse down');
>   MouseCapture:=True;
> end;
>
> procedure TfrmMain.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
>   Y: Integer);
> begin
>   memo('main mouse move');
> end;
>
> procedure TfrmMain.FormMouseUp(Sender: TObject; Button: TMouseButton;
>   Shift: TShiftState; X, Y: Integer);
> begin
>   memo('main mouse up');
>   MouseCapture:=False;
> end;

***右側の軸を使う
IDEで設定する場合
Editing Chart1 -> Series -> Series2 -> General -> Options -> Vertical AxisをRightにする。

**TChart(TeeChart)
***TChartのヘルプ
なんか、どう探してもインストールされていない様な気がします(RAD Studio 2007)。
しかたないので、CODE GEARからTeeChartをダウンロード、インストールして、その中に有るヘルプを見ています。
***TChartの情報
[[TeeChart Pro version 8 VCL / CLX>http://www.steema.net/teechartdocs/]]
[[ニュートンQ&A(TeeChart Pro 7J VCL)>http://www.newtone.co.jp/support/suqatc7vcl.html]]
***PointerのStyle
&img(tchart_pointer_style_invisible.png); &img(tchart_pointer_style_visible.png);
↓こんな雰囲気
>    TLineSeries.Pointer.Style:=TSeriesPointerStyle(cmbPointerStyle.ItemIndex);
>    TLineSeries.Pointer.Visible:=chkPointerVisible.Checked;

↓実際はこう。VisibleをTrueにしないと見えない。
>  Series1.Pointer.Style:=psCircle;
>  Series1.Pointer.Visible:=True;

***棒グラフ
これで棒3本
>  Series1.AddBar(10000, '1', clRed);
>  Series1.AddBar(20000, '2', clRed);
>  Series1.AddBar(30000, '3', clRed);

最初の棒を5000に変更する
>  Series1.YValue[0]:=5000;

***縦右軸を使う
>      Series1.VertAxis := aRightAxis;

**終了コード
System.ExitCodeで戻り値を返す事が可能。
戻り値はバッチファイルならば、ERRORLEVELで判定可能。

**別のexe実行
***ShellExecute
> ShellExecute(Application.Handle,'open',PChar(cmd),PChar(option),nil,SW_NORMAL);

***ShellExecuteEX
Windowsは、SW_xx,SHELLAPIは、APIいろいろの定義
バッチファイルから終了コードを返したい場合は、「exit 1」とかで指定可能です。

>uses Windows,SHELLAPI;
>
> function TForm1.shell_exec(cmd:string;option:string):DWORD;
> var
> sei:SHELLEXECUTEINFO;
> begin
> 	ZeroMemory(@sei, sizeof(SHELLEXECUTEINFO));
>
> 	//構造体のサイズ
> 	sei.cbSize := sizeof(SHELLEXECUTEINFO);
>
> 	//起動側のウインドウハンドル
> 	sei.Wnd := Handle;
>
> 	//起動後の表示状態
> 	sei.nShow := SW_SHOWNORMAL;
>
> 	//このパラメータが重要で、セットしないとSHELLEXECUTEINFO構造体のhProcessメンバがセットされない。
> 	sei.fMask := SEE_MASK_NOCLOSEPROCESS;
>
> 	//起動プログラム
> 	sei.lpFile := PChar(cmd);
> 	sei.lpParameters := PChar(option);
>
> 	//プロセス起動
> 	if not ShellExecuteEx(@sei) then//shell32.lib必須
> 		exit;
>
> 	//エラー?
> 	if sei.hInstApp <= 32 then
> 		exit;
>
> 	//終了を待つ
> 	WaitForSingleObject( sei.hProcess, INFINITE ) ;
>
> 	//戻り値を取得
> 	GetExitCodeProcess(sei.hProcess, Result);
> end;

***CreateProcess
パイプ使った入出力のサンプルは↓から
[[http://www.autch.net/page/tips/delphi_anonymous_pipe.html]]

**エクスプローラからドラッグドロップ

***FMXコンポーネントのTDropTarget
TDropTargetをフォーム上に配置
Fileterに任意のフィルターを設定
>*.txt

OnDragDropイベント記述
>procedure TForm1.DropTarget1DragDrop(Sender: TObject; const Data: TDragObject; const Point: TPointF);
>begin
>  memo(Data.Files[0]);
>end;

参考
[[DelphiXE3　[FMX]ドロップ先（DropTarget）>http://afsoft.jp/program/delxe3/p12_142.html]]

***コードでドロップ受け入れ
> type
> 　TForm1 = class(TForm)
> 　private
> { Private 宣言 }
> 　　procedure WMDropFiles(var Msg: TWMDropFiles); Message WM_DropFiles;
> 　end;
>
> implementation
>
> uses ShellApi;
>
> {$R *.dfm}
>
> { TForm1 }
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
>   DragAcceptFiles(Handle,True);
> end;
>
> procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
> var
> num_files:integer;
> i:integer;
> FileName: Array[0..MAX_PATH] of Char;
> begin
>   num_files := DragQueryFile(Msg.Drop, $FFFFFFFF, nil, 0);
>   for i := 0 to num_files - 1 do
>   begin
>     DragQueryFile(Msg.Drop, i, FileName, SizeOf(FileName));
>     Memo1.Lines.Add(String(FileName));
>   end;
>
>   DragFinish(Msg.Drop);
> end;

参考
[[http://kwi.cocolog-nifty.com/blog/2005/12/delphi_drag__dr_e30d.html]]
[[http://www.geocities.co.jp/Milano/8000/delphi/dragdrop.html]]

**コンポーネントを動的に生成
一般的な例ではないのですが、こんな感じで。
>procedure TForm1.btnComm1CreateClick(Sender: TObject);
>begin
>  comm1:=TComm.Create(self);
>  comm1.BaudRate:=9600;
>  comm1.ByteSize:=cbs8;
>  comm1.ParityBits:=cpbNone;
>  comm1.StopBits:=csb1;
>  comm1.FlowControls:=[];
>  comm1.Port:=1;
>  comm1.OnCommReceive:=Comm1CommReceive;
>
>  comm1.Open;
>end;
>
>procedure TForm1.Comm1CommReceive(Sender: TObject; Size: Word);
>begin
>
>end;

**タスクバーに表示しない
メインフォームをタスクバーで非表示にする方法。
ヘルプを見ると、Runメソッドの呼び出し前にとなっています。
とりあえずFormCreateとかで良いかと。
>Application.ShowMainForm:=False;

**環境変数
>GetEnvironmentVariable('OS')

**タイトルバーの無いフォームの移動(WM_NCHITTEST)
引用元失念。
>    procedure WMNCHITTEST(var Msg: TWMNCHITTEST); message WM_NCHITTEST;
>    procedure WMNCLButtonDBLCLK(var msg :TWMNCHitMessage); message WM_NCLBUTTONDBLCLK;
>
> procedure TFormHusen.WMNCHITTEST(var Msg: TWMNCHITTEST);
> var
> Pt:TPoint;
> begin
>   //マウス座標を取得
>   GetCursorPos(Pt);
>   //フォーム上の座標に変換
>   Pt := ScreenToClient(Pt);
>     if GetAsyncKeyState(VK_LBUTTON) < 0 then
>       //ウィンドウズにタイトル バーで発生することを示すHTCAPTIONを返す
>       Msg.Result := HTCAPTION
>     else
>       Msg.Result := HTCLIENT;
> end;
>
> //WMNCHITTESTで小細工しているので、ダブルクリックをFormのイベントで検出出来ない
> procedure TFormHusen.WMNCLButtonDBLCLK(var msg: TWMNCHitMessage);
> begin
> end;

**TListView
***選択されたアイテムを取得する方法。
[[TCustomListView.GetNextItem メソッド>http://docs.codegear.com/docs/radstudio/radstudio2007/RS2007_helpupdates/HUpdate3/JA/html/delphivclwin32/delphivclwin32/ComCtrls_TCustomListView_GetNextItem.html]]

**TListを継承して独自のリストを作成。ついでにソートもしてみる。
TListはメモリの確保をしないので、メモリの確保と解放をするように実装。
TObjectListを参考に実装してみました。
とりあえず作ってみた物の、悩み中。

***実装
> unit IkCustomList;
>
> interface
>
> uses Classes;
>
> type
>   TIkDoubleList = class(TList)
>     Protected
>       procedure Notify(Ptr: Pointer; Action: TListNotification); override;
>       function GetItem(Index: Integer): Double;
>       procedure SetItem(Index: Integer; const Value: Double);
>     public
>       procedure Clear; override;
>       function Add(Value: Double): Integer;
>       property Items[Index: Integer]: Double read GetItem write SetItem; default;
>   end;
>
> function CompareDouble(item1,item2:Pointer):Integer;
>
> implementation
>
> //Sort用比較関数
> function CompareDouble(item1, item2: Pointer): Integer;
> begin
>   if PDouble(item1)^ < PDouble(item2)^ then
>     Result:=-1
>   else if PDouble(item1)^ > PDouble(item2)^ then
>     Result:=1
>   else
>     Result:=0

> end;
>
> { TIkDoubleList }
>
> function TIkDoubleList.Add(Value: Double): Integer;
> var
> p:PDouble;
> begin
>   New(p);
>   p^:=Value;
>   Result:=Inherited Add(p)
> end;
>
> //この方法だと、Extractの戻り値が使えなくなる。が、実害はなさそう。
> procedure TIkDoubleList.Notify(Ptr: Pointer; Action: TListNotification);
> begin
>   if Action = lnDeleted then
>   begin
>       Dispose(Ptr);
>   end;
>
>   inherited Notify(Ptr, Action);
> end;
>
> procedure TIkDoubleList.Clear;
> var
> i:integer;
> begin
>   for i := 0 to Count - 1 do
>     Delete(0);//ClearはTListでは要素の解放をしない。ちなみにDestroyではClear呼出しが存在する。
>
>   inherited Clear;
> end;
>
> function TIkDoubleList.GetItem(Index: Integer): Double;
> begin
>   Result:= PDouble(inherited Items[index])^;
>   //Items[index]をアクセスすると、TList.Getが呼ばれる
>   //TList.Getはポインタを返す。
>   //ポインタを逆参照して値を返す。
> end;
>
> procedure TIkDoubleList.SetItem(Index: Integer; const Value: Double);
> begin
>   PDouble(inherited Items[index])^:=Value;
>   //Items[index]をアクセスすると、TList.Getが呼ばれる
>   //TList.Getはポインタを返す。
>   //ポインタを逆参照して値を入れる。
> end;
>
> end.

***使い方
TMemoとTButtonをはりつけて、下記ソースみたくする。
> unit Unit1;
>
> interface
>
> uses
>   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
>   Dialogs, StdCtrls,IkCustomList;
>
> type
>   TForm1 = class(TForm)
>     Button1: TButton;
>     Memo1: TMemo;
>     procedure Button1Click(Sender: TObject);
>   private
>     { Private declarations }
>   public
>     { Public declarations }
>   end;
>
> var
>   Form1: TForm1;
>
> implementation
>
> {$R *.dfm}
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> dlist:TIkDoubleList;
> i:integer;
> begin
>   dlist:=TIkDoubleList.Create;
>
>   try
>     for i := 0 to 100 do
>       dlist.Add(Random()*100);
>
>     dlist.Sort(@CompareDouble);
>
>     for i := 0 to 100 do
>       Memo1.Lines.Add( FloatToStr(dlist.Items[i]));
>   finally
>     dlist.Free;
>   end;
>
> end;
>
> end.

**Indy

***UDPテキスト通信例
10.2Tokyo
TIdUDPClient,TIdUDPServer,TMemo,TEditをフォーム上にドロップ。

>procedure TForm1.Button1Click(Sender: TObject);
>begin
>  IdUDPClient1.Send(Edit1.Text);
>end;
>
>procedure TForm1.FormCreate(Sender: TObject);
>begin
>  IdUDPClient1.Host := '127.0.0.1';
>  IdUDPClient1.Port := 55555;
>  IdUDPClient1.Active := true;
>
>  IdUDPServer1.DefaultPort := 55555;
>  IdUDPServer1.Active := true;
>end;
>
>procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread; const AData: TIdBytes; ABinding: TIdSocketHandle);
>var
>  str: string;
>begin
>  str := TEncoding.ASCII.GetString(AData);
>  Memo1.Lines.Add('UDPRead = ' + str);
>end;

***TCPとUDPの通信例
[[ソケットライブラリのIndyを利用したクリップボード共有ソフト>http://codezine.jp/article/detail/197]] Delphi7+Indy9
[[ソケットライブラリのIndy10を利用してみよう>http://www7.atpages.jp/rudo/indytcp.html]] C++Builder2007+Indy10
***Indy10 IdFTP
[[Indy>http://www.indyproject.org/]]
List→ListResultは、ファイル名とかになっていないので不便。

List→DirectoryListingは、便利なのだが、使おうとするといきなりエラー。
で、以下の追加が必須。
>uses IdAllFTPListParsers

参考：[[FTPでlistがDirectoryListingに入らない。>http://d.hatena.ne.jp/kanata_ail/20060414/1144990851]]

***TIdHTTPServer.AutoSession
INDY10 XE5
こうしないとAutoSession有効にならない？
AutoSession=true
SessionState=true
SessionTimeOut=1以上

**コンポーネントのインストール方法
参考：[[コンポーネントのインストール方法等>http://homepage2.nifty.com/Mr_XRAY/Delphi/CompoInstall/index.htm]]

**インストール
***Delphi2007
[[CodeGear RAD Studio 2007 ISO (Dec 2007)>http://cc.embarcadero.com/item/26067]]
これを入れる。以下が入っている。
December 2007 Update
February 2008 Help Update

そんでもって、「スタート→CodeGear RAD Studio→アップデートの確認」で更新をかけるとMay08 Help Updateが入る。
注意：2009→2007入れるとはまるのでやめとけー

**glyFXはどこー？
きれいなアイコンglyFXは
>C:\Program Files\Common Files\CodeGear Shared\Images\glyFX
>C:\Program Files\Common Files\Borland Shared\Images\glyFX

引用：[[glyFX Embarcadero Special Edition Icon Set for Embarcadero Customers>http://www.glyfx.com/embarcadero/]]

**グローバル変数、ローカルな変数
interface部に書けばグローバル。
implementationに書けばローカル。

**色定数
Delphi2010
[[Delphi色定数の一覧>../delphi2010_colors.html]]

**KeyPressイベント
Delphi2010
>  if Key = Char(VK_RETURN) then

**DLL
DelphiXE2
[[http://www.s-m-l.org/csharp.html#DLLを呼ぶ]]
>library testdll1;
>
>uses
>  System.SysUtils,
>  System.Classes;
>
>{$R *.res}
>
>procedure func1(path: PAnsiChar; opt: LongWord); stdcall;
>var
>strlist:TStringList;
>begin
>  strlist:=TStringList.Create;
>  try
>    strlist.Add(path);
>    strlist.SaveToFile('d:\testdll1.txt');
>  finally
>    strlist.Free;
>  end;
>end;
>
>exports
>  func1;
>
>begin
>
>end.

**DLL呼び出し
DelphiXE2
>procedure func1(path: PAnsiChar; opt: LongWord); stdcall; external 'testdll1.dll';
>
>procedure TForm1.Button1Click(Sender: TObject);
>var
>  str: AnsiString;
>begin
>  str := AnsiString(Edit1.Text);
>  func1(PAnsiChar(str), 1);
>end;

**DLLの遅延ロード
Delphi2010

dll呼び出し宣言に、delayedを追加。
参考：[[Team Japan ≫ Delphi 2010: 新機能 delayed ディレクティブ>http://blogs.embarcadero.com/teamj/2009/08/26/770/]]

**ディレクトリ選択ダイアログ
>uses FileCtrl;
>var
>path:string;
>begin
>if SelectDirectory('Caption','',path) then //真ん中は初期パス
>   exec_proc(path);
>end;

**第16回エンバカデロ・デベロッパーキャンプ
[[第16回エンバカデロ・デベロッパーキャンプ - 資料ダウンロード >http://edn.embarcadero.com/article/40483]]

景品当たった！わーいw

**文字列処理とエンコーディング

***Delphi2010での文字列処理
2010-03-10のセミナーメモ
SKRegExp
TIniFile→TMemoIniFileでEncoding指定
TStringListのLoad,Saveはエンコーディング指定を推奨
ExcelはUTF-16のCSV読み込み対応しない
SysUtils.StringOf(),WideStringOf()
MECSUtils

***UTF-8エンコーディング指定して保存。BOM無し。
10.2tokyo
>var
>strlist:TStringList;
>begin
>strlist:=TStringList.Create;
>strlist.Add('あいう');
>strlist.WriteBOM:=false;
>strlist.SaveToFile('tmp.txt', TEncoding.UTF8);

**TStringGrid

選択範囲の取得。ClickやDoubleClickイベントで、クリックしたセルの特定にも使える。
>var
>rc:TGridRect;
>begin
>rc:=StringGrid1.Selection;

**TColorとRGB

>uses Windows;
>color:TColor;
>r,g,b:Byte;
>color:=RGB(255,128,64);
>r = GetRValue(color);
>g = GetGValue(color);
>b = GetBValue(color);
>color := RGB(r,g,b);

**ダイアログ XE10.1
ShowMessage を使うと簡単なメッセージ表示可能
SelectDirectory を使うと簡単にディレクトリ選択可能
MessageDlg を使うと簡単な問い合わせ可能。※FMXでは非推奨

定義
System.UITypes.TMsgDlgType.mtConfirmation
System.UITypes.TMsgDlgBtn.mbRetry

>  if MessageDlg('実行しますか？', TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0) <> mrYes
>    Exit;
>end;

FMXでは非推奨なのでこっちを使う
>uses FMX.DialogService.Sync;
>  if TDialogServiceSync.MessageDialog('ファイルの先頭から検索を始めますか', TmsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo],
>    TMsgDlgBtn.mbYes, 0) = mrYes then
>  begin
>    //
>  end;

**乱数
Randomize
Random(Range)
0 <= X < Range

**DUnit
とりあえずDelphi2010でやってみる。

テストユニット実行
> uses GUITestRunner
>
>  GUITestRunner.RunRegisteredTests;

テスト対象の記述(簡単なクラス)
[[delphi/Calc.pas]]

テストの記述
SetupとTearDownは、各テスト(procedure)毎に呼び出される。
[[delphi/TestCalc.pas]]

**TFlowPanel
[[Delphiでフローレイアウト>http://edn.embarcadero.com/article/33622]]
ControlIndexで表示順序を変更可能。

**Formの重なり順序
メインフォームと別のフォームの重なり順序が変更出来ない。
プロジェクトソースの以下をコメントアウトすると、順序が変更出来る。
>  Application.MainFormOnTaskbar := True;

参考：[[フォームの重なり順序を変更する方法は？>http://gimite.net/bcbqtree/qtreemain.cgi?mode=thread&thread=1291]]

**ファイル名操作
uses SysUtils
ExtractFilePath ファイル名からパスを取り出す
ChangeFileExt 拡張子を変更
IncludeTrailingPathDelimiter パス区切り文字を追加

uses System.IOUtils
TPath.Combine(path1,path2) 二つのパスを結合する

**ファイルとフォルダの有無確認
ファイルの有無確認はFileExists
ディレクトリの有無確認はDirectoryExists
>  if not DirectoryExists('xyz') then
>    MkDir('xyz');

ファイル操作
>uses System.IOUtils
> TFile.Copy
> TFile.Move
> TFile.Delete
> TFile.Exists //FileExistsと同じ?

**ファイルの列挙
深い階層まで検索したい場合は、再帰呼び出しを実装する必用有り。

>procedure get_file_list(items: TStrings; find_str: string); // 1階層のみ
>var
>  SearchRec: TSearchRec;
>begin
>  // FindFirst が成功した場合のみ FindClose を呼ぶ必要がある
>  if 0 = FindFirst(find_str, faAnyFile, SearchRec) then
>  begin
>    try
>      repeat
>        if (SearchRec.Attr and faDirectory) = 0 then
>        begin
>          // ファイル
>          items.Add(SearchRec.Name)
>        end;
>      until 0 <> FindNext(SearchRec);
>    finally
>      FindClose(SearchRec);
>    end;
>  end;
>end;

**ディレクトリ操作
ディレクトリ作成 SysUtils.ForceDirectories
ディレクトリ削除 SysUtils.RemoveDir
ディレクトリ存在確認 SysUtils.DirectoryExists
> procedure TForm1.Button1Click(Sender: TObject);
> var
>   path: string;
> begin
>   path := tmp_path;
>   if DirectoryExists(path) then
>   begin
>     memo('Exists ' + path);
>   end
>   else
>   begin
>     memo('not exists ' + path);
>
>     ForceDirectories(path); // 絶対パス・複数ディレクトリ
>
>     memo('ForceDirectories ' + path);
>   end;
>
>   if DirectoryExists(path) then
>   begin
>     memo('Exists ' + path);
>   end
>   else
>   begin
>     memo('not exists ' + path);
>     ForceDirectories(path);
>   end;
> end;
>
> procedure TForm1.Button2Click(Sender: TObject);
> begin
>   RemoveDir(tmp_path); // SysUtils
> end;
>
> procedure TForm1.memo(str: string);
> begin
>   Memo1.Lines.Add(str);
> end;
>
> function TForm1.tmp_path: string;
> begin
>   Result := ExtractFilePath(Application.ExeName) + 'tmp';
> end;
>
> // 似た様な処理を行う関数
> // Sysutils.CreateDir
> // System.MkDir
> // System.RmDir

**パス取得
特殊フォルダのパスを取得

[[サポートされているターゲット プラットフォームに適した標準の RTL パス関数>http://docwiki.embarcadero.com/RADStudio/Berlin/ja/%E3%82%B5%E3%83%9D%E3%83%BC%E3%83%88%E3%81%95%E3%82%8C%E3%81%A6%E3%81%84%E3%82%8B%E3%82%BF%E3%83%BC%E3%82%B2%E3%83%83%E3%83%88_%E3%83%97%E3%83%A9%E3%83%83%E3%83%88%E3%83%95%E3%82%A9%E3%83%BC%E3%83%A0%E3%81%AB%E9%81%A9%E3%81%97%E3%81%9F%E6%A8%99%E6%BA%96%E3%81%AE_RTL_%E3%83%91%E3%82%B9%E9%96%A2%E6%95%B0]]

TPathは
System.IOUtils
にて定義。

[[torutkの日記→Windowsのディレクトリ構成ガイドライン>http://d.hatena.ne.jp/torutk/20110604/p1]]

Delphi10.1 + Windows7
|TPath.GetHomePath|C:\Users\{ユーザー名}\AppData\Roaming|設定データ Roaming/{CompanyName}/{AppName}
|TPath.GetCachePath|C:\Users\{ユーザー名}\AppData\Local|消えても良いデータ
|TPath.GetTempPath|C:\Users\{ユーザー名}\AppData\Local\Temp\|アプリケーション終了後に消えても良いデータ
|TPath.GetLibraryPath|D:\data\trunk\Lab\Delphi10\path\Win32\Debug\|
|TPath.GetDocumentsPath|C:\Users\{ユーザー名}\Documents|
|TPath.GetSharedDocumentsPath|C:\Users\Public\Documents|
|TPath.GetPicturesPath|C:\Users\{ユーザー名}\Pictures|
|TPath.GetSharedPicturesPath|C:\Users\Public\Pictures|
|TPath.GetPublicPath|C:\ProgramData|
|TPath.GetCameraPath|C:\Users\{ユーザー名}\Pictures|
|TPath.GetMusicPath|C:\Users\{ユーザー名}\Music|
|TPath.GetSharedMusicPath|C:\Users\Public\Music|
|TPath.GetMoviesPath|C:\Users\{ユーザー名}\Videos|
|TPath.GetSharedMoviesPath|C:\Users\Public\Videos|
|TPath.GetAlarmsPath|C:\Users\{ユーザー名}\Music|
|TPath.GetSharedAlarmsPath|C:\Users\Public\Music|
|TPath.GetRingTonesPath|C:\Users\{ユーザー名}\Music|
|TPath.GetSharedRingTonesPath|C:\Users\Public\Music|
|TPath.GetDownloadsPath|C:\Users\{ユーザー名}\AppData\Local|
|TPath.GetSharedDownloadsPath|C:\ProgramData|

**時間を計る
TStopWatch

[[http://ht-deko.com/techf021.html]]

>uses System.Diagnostics
>var
>sw:TStopWatch;
>begin
>sw:=TStopWatch.StartNew;
>//処理色々
>//:
>//:
>sw.Stop;
>memo(sw.ElapsedMilliseconds.ToString);
>//swはrecordなので、Freeしなくても良い

**プロパティで関数

>type
>  IxAddNewFunc = procedure (caption:String) of Object;
>
>type
>  IxTest = class(TObject)
>    protected
>      FAddNew:IxNewFunc;
>    public
>      property AddNew:IxAddNewTabFunc read FAddNew write FAddNew;
>  end;
>----
>    procedure add_new(caption: string);
>----
>var
>  tst:IxTest;
>begin
>  tst:=IxTest.Create;
>  tst.AddNew := add_new;

**便利なTStringList
CSVをデコードしたり、Name=Value形式をデコードしたり出来る。
> var
> strlist:TStringList;
> begin
>   strlist:=TStringList.Create;
>   try
>     strlist.CommaText:='a=1,b=2,c=3';
>     memo('---- Strings[] ----');
>     memo(strlist.Strings[0]);
>     memo(strlist.Strings[1]);
>     memo(strlist.Strings[2]);
>
>     memo('---- Values[] ----');
>     memo(strlist.Values['a']);
>     memo(strlist.Values['b']);
>     memo(strlist.Values['c']);
>     memo(strlist.Values['d']);//エラーにはならない
>   finally
>     strlist.Free;
>   end;
> end;

**Editでキーイベント
> procedure TfrmSettings.Edit2KeyPress(Sender: TObject; var Key: Char);
> begin
>   if Ord(Key) = VK_RETURN then
>   begin
>     memo('hit return');
>   end;
> end;

**スレッド

[[Delphi Tips - マルチスレッドアプリケーション>http://support.embarcadero.com/jp/article/35961]] スレッドの書き方。だいたいのこと書いてある。

[[System.Clases.TThreadd>http://docwiki.embarcadero.com/Libraries/Seattle/ja/System.Classes.TThread]]
[[スレッド管理ルーチン>http://docwiki.embarcadero.com/RADStudio/Seattle/ja/%E3%82%B9%E3%83%AC%E3%83%83%E3%83%89%E7%AE%A1%E7%90%86%E3%83%AB%E3%83%BC%E3%83%81%E3%83%B3]]

[[System.SyncObjs>http://docwiki.embarcadero.com/Libraries/Seattle/ja/System.SyncObjs]]

***無名メソッドとスレッド
[[無名メソッドとスレッド >http://edn.embarcadero.com/article/39701]] 無名メソッドでスレッドのSynchronizeを書く
利点：引数を渡すために別途変数を定義する必要がなくなる
欠点：速度的に若干のペナルティ、構文知らないと読めない

[[Delphiで非同期プログラミング>http://vanillasky-room.cocolog-nifty.com/blog/2012/04/delphi-93dd.html]]

***TAnonymousThread
Samples\Delphi\RTL\CrossPlatform Utils\AnonThread.pas

+ジェネリクスを使っている為、スレッド処理の戻り値を指定可能
+終了処理は、通常の終了と、例外の2種類を記述可能
+終了処理は、TThread.OnTerminateから呼び出されるので、Synchronizeがいらない。[[System.Classes.TThread.OnTerminate>http://docwiki.embarcadero.com/Libraries/XE5/ja/System.Classes.TThread.OnTerminate]]
+メイン中に記述すれば、受け渡しの変数を作成しなくても済む
とかかなー。便利そう。

[[Cross platform anonymous threads and progress notification>http://blogs.embarcadero.com/dclegg/2013/04/30/127]] Samplesに入っているTAnonymousThreadの解説
TAnonymousThreadは、MAC,iOSではTNSAutoreleasePoolを実装しています。
[[iPhoneアプリ開発時のメモリ管理で気をつけること(マルチスレッド編)>http://d.hatena.ne.jp/glass-_-onion/20110218/1297963007]] TNSAutoreleasePoolをスレッド毎に実装しないとメモリリークする。

***スレッドの同期
[[スレッドの調整>http://docwiki.embarcadero.com/RADStudio/Seattle/ja/%E3%82%B9%E3%83%AC%E3%83%83%E3%83%89%E3%81%AE%E8%AA%BF%E6%95%B4%EF%BC%9A%E3%82%A4%E3%83%B3%E3%83%87%E3%83%83%E3%82%AF%E3%82%B9]]

[[タスクが完了するまで待つ>http://docwiki.embarcadero.com/RADStudio/Seattle/ja/%E3%82%BF%E3%82%B9%E3%82%AF%E3%81%8C%E5%AE%8C%E4%BA%86%E3%81%99%E3%82%8B%E3%81%BE%E3%81%A7%E5%BE%85%E3%81%A4]]

[[Eventオブジェクト>http://docwiki.embarcadero.com/Libraries/Seattle/ja/System.SyncObjs.TEvent]]

****名前付きイベントを使ったスレッド例
名前付きイベントは、別アプリケーションとも名前を共有するので要注意。
名前はGUID使った方がよいと思います。

>unit IxNamedEventThread;
>interface
>uses
>  System.Classes, System.SyncObjs;
>
>type
>  TIxNamedEventThread = class(TThread)
>  protected
>    event: TEvent;
>    procedure Execute; override;
>  end;
>
>implementation
>uses Unit1;
>
>procedure TIxNamedEventThread.Execute;
>begin
>  event := TEvent.Create(nil, false, false, EVENT_NAME_SAMPLE);
>  while not Terminated do
>  begin
>    if event.WaitFor(200) = wrSignaled then
>    begin
>      Break;
>    end;
>  end;
>end;
>
>end.

****名前付きイベント発行例
(名前なくても同じだけど...)
>unit Unit1;
>
>const
>  EVENT_NAME_SAMPLE = '{BBCF957F-05C4-460C-9EE1-00FA6184E57F}';
>
>var
>  event_named: TEvent;
>    event_thread: TIxEventThread;
>
>procedure TForm1.FormCreate(Sender: TObject);
>begin
>  event_named := TEvent.Create(nil, false, false, EVENT_NAME_SAMPLE);
>  named_event_thread := TIxNamedEventThread.Create;
>end;
>
>procedure TForm1.btnNamedEventEndClick(Sender: TObject);
>begin
>  event_named.SetEvent;
>end;

***クリティカルセクション
>var
>FLock:TCriticalSection;
>:
>  FLock := TCriticalSection.Create;
>:
>     FLock.Acquire;
>     try
>        //競合する処理
>      finally
>        FLock.Release;
>      end;

***SynchronizeとQueue
メインスレッドと同期を取るには、SynchronizeとQueueがある。
どちらも無名メソッドを利用して書くことが出来る。
[[http://www.gesource.jp/weblog/?p=538]]

***スレッドの終了処理
OnTerminateに定義するのが正規のやりかたっぽいのですが、ReportMemoryLeaksOnShutdown=Trueにして、FormDestroyでスレッドをTerminateすると、リーク判定されてしまう。
>type
>  TIxDataThread = class(TThread)
>  protected
>  public
>    ViewManager: TIxViewManager;
>    constructor Create;
>    procedure OnTerminateExecute(Sender: TObject);
>
>  end;
>
>implementation
>
>{ IxDataThread }
>
>constructor TIxDataThread.Create;
>begin
>  ViewManager := TIxViewManager.Create;
>  OnTerminate := OnTerminateExecute;
>
>  inherited Create(true); // true:生成時停止(Startで開始) false:生成時即実行
>  FreeOnTerminate := true; // 終了時解放
>end;
>
>procedure TIxDataThread.OnTerminateExecute(Sender: TObject);
>begin
>  ViewManager.Free;
>end;

***スレッド間データ受け渡し
[[System.Generics.Collections>http://docwiki.embarcadero.com/Libraries/Tokyo/ja/System.Generics.Collections]]
-TThreadedQueue 受け渡しにロック操作不要
-TThreadList 追加・削除にロック操作不要、Listアクセス時ロック

[[TThreadedQueue>http://docwiki.embarcadero.com/Libraries/Tokyo/ja/System.Generics.Collections.TThreadedQueue]]
-メソッド PushItem,PopPItem
-キュー内の個数は不明
-PushItem,PopItemにタイムアウト設定可能(INFINITEも有り)
-DoShutdownでロック解放

[[TThreadList>http://docwiki.embarcadero.com/Libraries/Tokyo/ja/System.Classes.TThreadList]]
-メソッド Add,Remove,Clear
-プロパティ Dupulicates※dupAcceptしないと遅い(そうだよね)
-アイテム個数は不明
-LockList,UnlockListでTListを取得してアイテムにアクセス

**デバッグ出力
表示→デバッグ→イベントログ

> uses Windows;
> OutputDebugString(PWideChar(index+' '+IntToStr(ofs)+' = '+Result));

keyword dbgout

**TActionList

***別フォームのActionを使う
Actionを使いたいFormで、Actionを定義しているフォームをUsesする。
そうすると、ActionのプロパティでForm1.Action1見たいに表示される。

**コンパイラ指令
|Delphi|C言語
|{$DEFINE XYZ}|#define XYZ
|{$I xyz.inc}|#include "xyz.inc"
|{$IFDEF XYZ}&br;{$ENDIF}|#ifdef XYZ&br;#endif
|{$IF exp}&br;{$ELSE}&br;{$IFEND}|#if exp&br;#else&br;#endif

[[条件付きコンパイル（Delphi）>http://docwiki.embarcadero.com/RADStudio/XE5/ja/%E6%9D%A1%E4%BB%B6%E4%BB%98%E3%81%8D%E3%82%B3%E3%83%B3%E3%83%91%E3%82%A4%E3%83%AB%EF%BC%88Delphi%EF%BC%89]]定義済みのシンボル

DebugとReleaseで条件コンパイルする
DEBUG,RELEASEは、プロジェクト→オプション→Delphiコンパイラ→条件定義で定義してある
>{$IFDEF DEBUG}
>{$ENDIF}
>{$IFDEF RELEASE}
>{$ENDIF}

**ショートカットキー
CTRL+D ソース整形
CTRL+SHIFT+C カーソル位置のクラス宣言保管(コード生成)
CTRL+SHIFT+J 同期編集(リファクタリングより軽くて便利)
選択してTAB インデント→
選択してSHIFT+TAB インデント←

**OSXで動的読み込み可能ライブラリ(dylib)を遅延読み込みできない
[[https://forums.embarcadero.com/thread.jspa?threadID=80777&tstart=15]]

**DeleteFileでワーニング
usesの順序が重要。順序によってはH2443のワーニングが出る。
正しい順序
Windows,
SysUtils,
Classes,

**タイプライブラリの取り込み
[[タイプライブラリの取り込み>http://mrxray.on.coocan.jp/Delphi/CompoInstall/TypeLibraryD2009.htm]]

**JSONを使う
DelphiXE4

>uses Data.DBXJSON, //これ追加
> Data.DBXPlatform; //for in do 使うのにこれあった方が良い
>
>procedure TForm1.Button1Click(Sender: TObject);
>var
>  json_obj: TJSONObject;
>begin
>  json_obj := TJSONObject.Create;
>  try
>    json_obj.AddPair('key1', 'val1');
>    json_obj.AddPair('key2', 'val2');
>    Memo1.Lines.Add(json_obj.ToString);
>  finally
>    json_obj.Free;
>  end;
>end;
>
>procedure TForm1.Button2Click(Sender: TObject);
>var
>  json_obj: TJSONObject;
>  pair: TJSONPair;
>begin
>  json_obj := TJSONObject.ParseJSONValue('{"key1": "val1", "key2": 123}') as TJSONObject; // パース失敗するとnil
>  try
>    for pair in json_obj do
>    begin
>      Memo1.Lines.Add(pair.JsonString.Value + '->' + pair.JsonValue.Value);
>    end;
>  finally
>    json_obj.Free;
>  end;
>end;

Button1を押した結果
>{"key1":"val1","key2":"val2"}

Button2を押した結果
>key1->val1
>key2->123

DBXPlatform無い時のヒント
>[dcc32 ヒント] Unit1.pas(51): H2443 インライン関数 'TJSONPairEnumerator.GetCurrent' はユニット 'Data.DBXPlatform' が USES リストで指定されていないため展開されません

[[http://d.hatena.ne.jp/nullpobug/20121025/1351170571]]

**リモートデバッグ(paserver)
[[クロスプラットフォーム アプリケーションのデバッグ>http://docwiki.embarcadero.com/RADStudio/XE5/ja/%E3%82%AF%E3%83%AD%E3%82%B9%E3%83%97%E3%83%A9%E3%83%83%E3%83%88%E3%83%95%E3%82%A9%E3%83%BC%E3%83%A0_%E3%82%A2%E3%83%97%E3%83%AA%E3%82%B1%E3%83%BC%E3%82%B7%E3%83%A7%E3%83%B3%E3%81%AE%E3%83%87%E3%83%90%E3%83%83%E3%82%B0]]（新しいリモート デバッグ方法）

+paserverをインストール
+paserverを実行
+接続プロファイルを作成

***paserverのインストール

>C:\Program Files\Embarcadero\RAD Studio\n.n\PAServer\setup_paserver.exe
>n.n はリリース バージョン（XE5 では 12.0）を表します。

参考：[[Windows でのプラットフォーム アシスタントのインストール>http://docwiki.embarcadero.com/RADStudio/XE5/ja/Windows_%E3%81%A7%E3%81%AE%E3%83%97%E3%83%A9%E3%83%83%E3%83%88%E3%83%95%E3%82%A9%E3%83%BC%E3%83%A0_%E3%82%A2%E3%82%B7%E3%82%B9%E3%82%BF%E3%83%B3%E3%83%88%E3%81%AE%E3%82%A4%E3%83%B3%E3%82%B9%E3%83%88%E3%83%BC%E3%83%AB]]

***paserverの実行
>C:\Program Files\Embarcadero\RADPAServer\n.n\paserver.exe
>n.n はリリース バージョン（XE5 では 12.0）を表します。

参考：[[Windows でのプラットフォーム アシスタントの実行>http://docwiki.embarcadero.com/RADStudio/XE5/ja/Windows_%E3%81%A7%E3%81%AE%E3%83%97%E3%83%A9%E3%83%83%E3%83%88%E3%83%95%E3%82%A9%E3%83%BC%E3%83%A0_%E3%82%A2%E3%82%B7%E3%82%B9%E3%82%BF%E3%83%B3%E3%83%88%E3%81%AE%E5%AE%9F%E8%A1%8C]]

***接続プロファイルの作成
メニュー→ツール→オプション→環境オプション→接続プロファイルマネージャ

参考：[[接続プロファイル マネージャ>http://docwiki.embarcadero.com/RADStudio/XE5/ja/%EF%BC%BB%E6%8E%A5%E7%B6%9A%E3%83%97%E3%83%AD%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB_%E3%83%9E%E3%83%8D%E3%83%BC%E3%82%B8%E3%83%A3%EF%BC%BD]]

***アプリケーションの配置
アプリケーションと、その他ファイルをリモートに配置するには、配置マネージャを使用します。
メニュー→プロジェクト→配置

配置マネージャで、配置(緑右矢印)をクリックすると、接続プロファイルを割り当てできる。

配置マネージャで、リモートマシンに接続(PCが2台)をクリックすると、リモートマシンに接続

F9を押すと、配置して実行される。

***リモートデバッグからもとに戻す
プロジェクトマネージャ→ファイル→ProjectGroup1→XXX.exe→ターゲットプラットフォーム→32ビットウィンドウズ　を右クリックして、「デフォルトの接続に戻す」を選択。

**メモリリーク検出
***FastMM
DelphiXE6 + FastMM4991

****リークの検出(Delphi2006以降)
プロジェクトソースに1行追加するだけ
>begin
>  ReportMemoryLeaksOnShutdown := True;
>  Application.Initialize;
>  Application.CreateForm(TForm1, Form1);
>  Application.Run;
>end.

[[Delphiアプリケーションのメモリリーク検出法 >http://edn.embarcadero.com/jp/article/33696]]

****リークの検出方法(詳細)
[[http://fastmm.sourceforge.net]] ダウンロードはここから。
FastMMDebugSupport.pasをプロジェクトフォルダにコピー
BorlndMM.dll,FastMM_FullDebugMode.dllをDebugフォルダ(exe生成フォルダ)にコピー

プロジェクトソースにShareMem追加
>program test_fastmm;
>
>uses
>  ShareMem,
>  Vcl.Forms,

こうすると、終了時にリークを表示し、ログファイルも生成してくれる。
{プロジェクト名}_MemoryManager_EventLog.txt
ログから、自分のソースファイル名とか検索すれば、リークしているメモリを確保している場所がわかる。

***メモリリーク検出(Delphi200x)
[[http://komish.com/delphi/memoryleak.htm]]
>ReportMemoryLeaksOnShutdown := True

**DLL,dylibをダイナミックロード
動的にロードする方法
[[http://d.hatena.ne.jp/nullpobug/20130616/1371314885]]

**キー入力の仮想キーコード
[[http://docwiki.embarcadero.com/Libraries/Seattle/ja/System.UITypes]]

**マウスカーソルを隠す(非表示)
ShowCursor関数の戻り値が、0未満の時にマウスカーソルが非表示になる。
非表示になるのは、自分のウィンドウ
>uses Windows;
> ShowCursor(false);

**iOS,Indy,XML
[[http://blogs.embarcadero.com/teamj/2013/05/16/3877/]]

**Indy
Delphi XE5 -> Indy 10.6.0.5122
Delphi XE6 -> Indy 10.6.0.5040
2014-05-10 release -> Indy 10.6.0.5138

***TIdHttpServer
XE6
OnConnect,OnDisconnectにコンポーネントアクセスするような処理入れておくと、serverが終了しない。(例外が発生したりなんだりと...)
様な気がする。

**Canvas.CopyRect
CopyRectと、裏画面のサンプル
[[https://github.com/mikekoma/DelphiLabo/tree/master/CopyRect]]
&img(copyrect.png);

**TRectの当たり判定とか演算
色々あるんだ...[[http://docwiki.embarcadero.com/Libraries/Berlin/ja/System.Types.TRect_Methods]]

四角と点[[http://docwiki.embarcadero.com/Libraries/Berlin/ja/System.Types.TRectF.Contains]]
四角同士[[http://docwiki.embarcadero.com/Libraries/Berlin/ja/System.Types.TRectF.IntersectsWith]]

四角形の大きさを拡張
Inflate [[http://docwiki.embarcadero.com/Libraries/Berlin/ja/System.Types.TRect.Inflate]]

**32bitのOSで印刷出来ない
Delphi2010,Delphi10.1
Win7 32bit,Win10 32bit

32ビットアプリを作成し、32ビットOSで印刷しようとすると例外が発生する。
印刷ダイアログを出そうとすると例外が発生する。
全てのプリンタではなく、プリンタによって発生する。
調べてみるとDocumentProperties(Win32API)の呼び出しで例外発生。
&img(printer_fail_x32.png);

対策
浮動小数点の制御を変更する。

検索したらここへ
[[http://stackoverflow.com/questions/3090439/problems-running-a-32-bit-delphi-app-on-a-64-bit-windows-platform]]
↓ここからここへ
[[http://delphigroups.info/2/4/973047.html]]

Nard Moseley (Digital Metaphors)のソース
>var
>  lSaveCW: Word;
>begin
>  lSaveCW := Default8087CW;
>  Set8087CW(Default8087CW or $3f);
>  try
>    myReport.Print;
>  finally
>    Set8087CW(lSaveCW);
>  end;
>end;

$3fをorすると、浮動小数点演算の例外を全てマスク出来る。

docwiki [[System.Set8087CW>http://docwiki.embarcadero.com/Libraries/Tokyo/ja/System.Set8087CW]]

**GUIDの生成
[[GUID およびインターフェイス サポート ルーチン>http://docwiki.embarcadero.com/RADStudio/Tokyo/ja/GUID_%E3%81%8A%E3%82%88%E3%81%B3%E3%82%A4%E3%83%B3%E3%82%BF%E3%83%BC%E3%83%95%E3%82%A7%E3%82%A4%E3%82%B9_%E3%82%B5%E3%83%9D%E3%83%BC%E3%83%88_%E3%83%AB%E3%83%BC%E3%83%81%E3%83%B3]]

>var
>  guid: TGUID;
>begin
>  if CreateGUID(guid) = S_OK then
>  begin
>    memo(GUIDToString(guid));
>  end
>  else
>  begin
>    memo('GUIDの生成に失敗。');
>  end;

**コードの折りたたみ
[[REGION>http://docwiki.embarcadero.com/RADStudio/Berlin/ja/REGION]]

>{$REGION 'コメント'}
> :
>{$ENDREGION}

**ブレークポイントがずれる
10.2.3 Tokyo
ブレークポイントが、ソースとずれる現象が発生。リビルドしようがDCU消そうが、何しようがダメ。
原因は、ソースファイル(pas)の改行コード異常だった。
改行コードに$0A$0Dが混ざっていて、それを$0D$0Aに修正したところ、正常にブレーク可能になった。

図：ブレーク位置異常
&img(break_ng.png);

改行コードが異常なソース(address=$000B,$0238)
&simg(break_fail.png);

改行コードが正常なソース
&simg(break_ok.png);

**なんか例外出る0xFEEEFEEE
ファイルをダイアログで開いて、スレッドで読み込みして少し経過後例外が出る。
ファイル読み込みに使用したfsは、fs.freeしている。
↓
対策
↓
fs.free後fs:=nilしたら出なくなった。ような気がしたがやっぱりたまに出てる。

なんか↓に似ている
[[http://rarara.cafe.coocan.jp/cgi-bin/lng/vc/vclng.cgi?print+201205/12050011.txt]]

**リンク
[[CodeGear 旧Delphi FAQ>http://support.codegear.com/jp/article/36488]]
[[Delphi Library [Mr.XRAY]>http://mrxray.on.coocan.jp/index.htm]] 高度なサンプル有ります。
[[Delphi 2009 特集>http://totonica.s41.xrea.com/doc/delphi_tiburon/]] ★必読。漢字コードの問題に関してわかりやすく解説されています。
[[ＤＥＫＯのアヤシいお部屋。>http://homepage1.nifty.com/ht_deko/]] 読みやすいので、ささっと目を通すだけでも役に立ちます。
[[CとDelphiの対比表>http://www.geocities.jp/fjtkt/program/2003_0024.html]]
[[Delphi 7ユーザと初心者のためのDelphi 2010入門>http://edn.embarcadero.com/article/images/40483/1C.pdf]]
[[ホワイトペーパー: モバイル開発のためのDelphi言語>http://www.embarcadero.com/images/jp/dm/technical-papers/the_delphi_language_for_mobile_development_wp_jp.pdf]] Delphi言語仕様変わる

2018-10-24 10:18:03 32400