{ TBitFieldRec }
  TBitFieldRec = packed record
    // 型変換 (代入時)
    class operator Implicit(a: DWORD): TBitFieldRec;                            // 暗黙の型変換: TBitFieldRec に DWORD を代入 (レコードが左辺)
    class operator Implicit(a: TBitFieldRec): DWORD;                            // 暗黙の型変換: DWORD に TBitFieldRec を代入 (レコードが右辺)
    // 算術演算子 (単項)
    class operator Negative(a: TBitFieldRec): TBitFieldRec;                     // 符号反転: -
    class operator Positive(a: TBitFieldRec): TBitFieldRec;                     // 符号恒等: +
    // 算術演算子
    class operator Add(a, b: TBitFieldRec): TBitFieldRec;                       // 加算: +
    class operator Subtract(a, b: TBitFieldRec): TBitFieldRec;                  // 減算: -
    class operator Multiply(a, b: TBitFieldRec): TBitFieldRec;                  // 乗算: *
    class operator IntDivide(a, b: TBitFieldRec): TBitFieldRec;                 // 整数除算: div
    class operator Modulus(a, b: TBitFieldRec): TBitFieldRec;                   // 剰余: mod
    // 論理演算子
    class operator LogicalNot(a: TBitFieldRec): TBitFieldRec;                   // 否定: not
    class operator LogicalAnd(a, b: TBitFieldRec): Boolean;                     // 論理積: and
    class operator LogicalOr(a, b: TBitFieldRec): Boolean;                      // 論理和: or
    class operator LogicalXor(a, b: TBitFieldRec): Boolean;                     // 排他的論理和: xor
    // 論理（ビット）演算子
    class operator BitwiseAnd(a, b: TBitFieldRec): TBitFieldRec;                // ビット and: and
    class operator BitwiseOr(a, b: TBitFieldRec): TBitFieldRec;                 // ビット or: or
    class operator BitwiseXor(a, b: TBitFieldRec): TBitFieldRec;                // ビット xor: xor
    class operator LeftShift(a, b: TBitFieldRec): TBitFieldRec;                 // ビット単位の左シフト: shl
    class operator RightShift(a, b: TBitFieldRec): TBitFieldRec;                // ビット単位の右シフト: shr
    // 関係演算子
    class operator Equal(a, b: TBitFieldRec): Boolean;                          // 等しい: =
    class operator NotEqual(a, b: TBitFieldRec): Boolean;                       // 等しくない: <>
    class operator LessThan(a, b: TBitFieldRec): Boolean;                       // より小さい: <
    class operator GreaterThan(a, b: TBitFieldRec): Boolean;                    // より大きい: >
    class operator LessThanOrEqual(a, b: TBitFieldRec): Boolean;                // 以下: <=
    class operator GreaterThanOrEqual(a, b: TBitFieldRec): Boolean;             // 以上: >=
    // インクリメント / デクリメント
    class operator Inc(a: TBitFieldRec): TBitFieldRec;                          // インクリメント: Inc()
    class operator Dec(a: TBitFieldRec): TBitFieldRec;                          // デクリメント: Dec()
    {$IFDEF CONDITIONALEXPRESSIONS}
    {$IF CompilerVersion >= 20.0}
    // Include / Exclude
    class operator Include(a: TBitFieldRec; b: TBits32): TBitFieldRec;          // 含める: Include()  (2009 or later)
    class operator Exclude(a: TBitFieldRec; b: TBits32): TBitFieldRec;          // 含めない: Exclude()  (2009 or later)
    // 集合演算子
    class operator In(a: TBit32; b: TBitFieldRec): Boolean;                     // メンバかどうか: in  (2009 or later)
    {$IFEND}
    {$ENDIF}
  private
    function GetBit(Index: TBit32): Boolean;
    procedure SetBit(Index: TBit32; const aValue: Boolean);
  public
    function GetBitField(aStartBit: TBit32; aCount: TCnt32): DWORD;             // ビットフィールドの値を取得
    procedure SetBitField(aStartBit: TBit32; aCount: TCnt32; aValue: DWORD);    // ビットフィールドへ値を設定
    function ToString: string;                                                  // 10 進数文字列へ変換
    function ToHexString(Digits: Integer = 1): string;                          // 16 進数文字列へ変換
    function ToBinString(Digits: Integer = 1): string;                          // 2 進数文字列へ変換
    property Bits[Index: TBit32]: Boolean read GetBit write SetBit; default;    // ブール型ビット値 (bit0..bit31)
  case BYTE of                                                                  // ペイロード共用体
    0: (Value: DWORD);                                                          //  - DWORD
    1: (Words: array [0..1] of WORD);                                           //  - ワード配列
    2: (LoWord, HiWord: WORD);                                                  //  - Lo / Hi ワード
    3: (Bytes: array [0..3] of BYTE);                                           //  - バイト配列
  end;

  unsigned int a, b, c;

  a = 0x0002;
  b = 0x0004;

  // Bitwise AND
  c = a & b;
  printf("a & b: 0x%08x\n", c);

  // Logical AND
  if (a && b)
    printf("a && b: True");
  else
    printf("a && b: False");

var
  a, b, c: DWORD;
begin
  a := $0002;
  b := $0004;

  // Bitwise AND
  c := a and b;
  Writeln(Format('a & b: %.8x', [c]));

  // Logical AND / Boolean AND
  if LongBool(a) and LongBool(b) then
    Writeln('a && b: True')
  else
    Writeln('a && b: False');
end;

var
  a, b: TBitFieldRec;
begin
  a := $0002;
  b := $0004;

  // こう書きたい！
  if a and b then
    ShowMessage('True')
  else
    ShowMessage('False');
end;

var
  a, b: DWORD;
begin
  a := $0002;
  b := $0004;

  // LongBool 1 - Logical And / Boolean And
  if LongBool(a) and LongBool(b) then
    Writeln('LongBool1: True')
  else
    Writeln('LongBool1: False');

  // LongBool 2 - Bitwise And
  if LongBool(a and b) then
    Writeln('LongBool2: True')
  else
    Writeln('LongBool2: False');
end;

var
  a, b, c: TBitFieldRec;
  d: Boolean;
begin
  a := $0002;
  b := $0004;

  c := a and b; // ビット演算したつもり
  d := a and b; // 論理演算 (ブール演算) したつもり
end;

uses
  ..., Types;

// TIntegerDynArray = array of Integer;  
// TBooleanDynArray = array of Boolean;

function PrimeNumber(const MaxValue: Integer): TIntegerDynArray;
var
  Tbl: TBooleanDynArray;
  i, j, Cnt: Integer;
begin
  // 負数や 2 以下の場合は抜ける
  if MaxValue < 2 then
    begin
      SetLength(result, 0);
      Exit;
    end;

  // 素数テーブルを初期化
  SetLength(Tbl, MaxValue + 1);

  // 2 を素数に設定、2 の倍数以外を対象に
  Tbl[2] := True;
  for i:=3 to High(Tbl) do
    if Odd(i) then
      Tbl[i] := True;

  // 3 以降の素数を求める
  for i:=3 to Trunc(Sqrt(MaxValue)) do
    begin
      if not Tbl[i] then
        Continue;
      for j:=2 to (MaxValue div i) do
        Tbl[i*j] := False;
    end;

  // 素数の数を求め、戻り値の配列数を設定
  Cnt := 0;
  for i:=2 to High(Tbl) do
    if Tbl[i] then
      Inc(Cnt);
  SetLength(result, Cnt);

  // 戻り値として素数の動的配列を返す
  Cnt := 0;
  for i:=2 to High(Tbl) do
    begin
      if not Tbl[i] then
        Continue;
      result[Cnt] := i;
      Inc(Cnt);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  PN: TIntegerDynArray;
begin
  //      10 以下の素数:     4
  //     100 以下の素数:    25
  //    1000 以下の素数:   168
  //   10000 以下の素数:  1229
  //  100000 以下の素数:  9592
  // 1000000 以下の素数: 78498
  Memo1.Clear;
  Memo1.Lines.BeginUpdate;
  try
    PN := PrimeNumber(StrToIntDef(Edit1.Text, 0));
    Caption := Format('素数の数: %d', [Length(PN)]);
    if Length(PN) > 0 then
      begin
        for i:=Low(PN) to High(PN) do
          Memo1.Lines.Add(IntToStr(PN[i]));
      end;
  finally
    Memo1.Lines.EndUpdate;
  end;
end;

var
  S: String;
  C: PChar;
begin
  S := 'ABC';      // S に文字列を代入
  C := @S[1];      // C に String データの先頭アドレスを指定
  ShowMessage(C^); // C が指すアドレスのデータ (Char) を表示
end;

type
  TTestRec =
    record
      Code: Integer;
      Name: String;
    end;
  PTestRec = ^TTestRec;

var
  S: String;
  C: Char;
begin
  S := 'ABC';
  C := ^S;
  ShowMessage(Format('%x', [Ord(C)]));
end;

var
  S: String;
  C: Char;
begin
  S := 'ABC';
  C := #19; // #$13
  ShowMessage(Format('%x', [Ord(C)]));
end;

var
  S: String;
begin
  S := 'ABC'^M^J'DEF';
  ShowMessage(s);
end;

var
  S: String;
begin
  S := 'ABC'#13#10'DEF';
//S := 'ABC'#$0D#$0A'DEF';
  ShowMessage(s);
end;

@echo off
cls
::==============================================================================
:: 環境設定
::==============================================================================
set SCRIPTNAME=upload.ftp
:: -----------------------------------------------------------------------------
set SERVERNAME=FTP サーバ名
set USERNAME=FTP ユーザ名
set PASSWORD=FTP パスワード
set HOSTDIR=/
::==============================================================================

if "%1" == "" goto EXIT

:: -----------------------------------------------------------------------------
:: FTP 用スクリプト作成
:: -----------------------------------------------------------------------------
echo open %SERVERNAME%>%SCRIPTNAME%
echo %USERNAME%>>%SCRIPTNAME%
echo %PASSWORD%>>%SCRIPTNAME%
echo bin>>%SCRIPTNAME%
echo cd %HOSTDIR%>>%SCRIPTNAME%
echo put %1>>%SCRIPTNAME%
echo quit>>%SCRIPTNAME%

:: -----------------------------------------------------------------------------
:: FTP コマンド実行
:: -----------------------------------------------------------------------------
ftp -s:%SCRIPTNAME%

:: -----------------------------------------------------------------------------
:: 終了
:: -----------------------------------------------------------------------------
:EXIT

type
  // ズーム範囲
  TGM_ZoomRange = 0..22;

  // 検索方法 (文字列 / 緯度・経度)
  TGM_SerchType = (gmstString, gmsLocation);

  // 地図の種類 (地図 / 写真 / 地図 + 写真 / Google Earth / 地形)
  TGM_MapType = (gmmtMap, gmmtSatellite, gmmtHybrid, gmmtGoogleEarth, gmmtTerrain);

  { TGoogleMapBrowser }
  TGoogleMapBrowser = class(TWebBrowser)
  private
    FDescription: string;
    FHostLanguage: string;
    FLatitude: Double;
    FLongitude: Double;
    FMapType: TGM_MapType;
    FParam: string;
    FSearchString: String;
    FSearchType: TGM_SerchType;
    FURL: string;
    FZoomLevel: TGM_ZoomRange;
    procedure BuildParams;
    function GetURL: string;
    function Getparent: TWinControl;
    procedure InitURL;
    procedure SetParent(const Value: TWinControl); reintroduce;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure ShowBlank;                                                                      // 空白ページを表示する
    procedure ShowMap;                                                                        // Google Map を表示
    procedure PageSetup;                                                                      // ページ設定ダイアログを表示
    procedure Print(ShowDialog: Boolean = True);                                              // 印刷 (ShowDialog = False で即印刷)
    property Parent: TWinControl read Getparent write SetParent;                              // Parent を再定義し、TOleControl(WebBrowser).Parent のようなキャストを不要にする。
    property URL: string read GetURL;                                                         // 構築された URL (ReadOnly)
  published
    property Description: string read FDescription write FDescription;                        // 情報ウィンドウに表示される説明
    property HostLanguage: string read FHostLanguage write FHostLanguage;                     // ホストの言語を指定 (Ex.ja)
    property Latitude: Double read FLatitude write FLatitude;                                 // 緯度 (SearchType = gmsLocation 時)
    property Longitude: Double read FLongitude write FLongitude;                              // 経度 (SearchType = gmsLocation 時)
    property MapType: TGM_MapType read FMapType write FMapType default gmmtMap;               // 表示する地図の種類
    property SearchString: string read FSearchString write FSearchString;                     // 検索文字列 (SearchType = gmstString 時)
    property SearchType: TGM_SerchType read FSearchType write FSearchType default gmstString; // 検索方法
    property ZoomLevel: TGM_ZoomRange read FZoomLevel write FZoomLevel default 14;            // ズームレベル
  end;

uses
  ..., uGoogleMapBrowser{$IFDEF WIN64}, Math{$ENDIF};

// フォーム作成時
procedure TForm1.FormCreate(Sender: TObject);
begin
  {$IFDEF WIN64}
  SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide, exOverflow, exUnderflow, exPrecision]);
  {$ENDIF}
  GoogleMapBrowser := TGoogleMapBrowser.Create(Self);
  GoogleMapBrowser.Parent := Self;
  GoogleMapBrowser.Align := alClient;
end;

// 住所または名称から検索
procedure TForm1.Button1Click(Sender: TObject);
begin
  with GoogleMapBrowser do
    begin
      HostLanguage := 'ja';        // ホスト言語: 日本
      MapType      := gmmtMap;     // 地図種類: 地図
      SearchType   := gmstString;  // 検索方法: 文字列
      SearchString := Edit1.Text;  // 検索文字列
//    Description  := 'ここです';
      ShowMap;
    end;
end;

// 緯度・経度から検索
procedure TForm1.Button2Click(Sender: TObject);
begin
  with GoogleMapBrowser do
    begin
      HostLanguage := 'ja';                         // ホスト言語: 日本
      MapType      := gmmtHybrid;                   // 地図種類: 地図 + 写真
      SearchType   := gmsLocation;                  // 検索方法: 緯度・経度
      Latitude     := StrToFloatDef(Edit2.Text, 0); // 緯度
      Longitude    := StrToFloatDef(Edit3.Text, 0); // 経度
//    Description  := 'ここです';
      ShowMap;
    end;
end;