// Delphi の整数型と Windows API で使用する整数型
  // これは Windows の場合
  // 例 : LongWord は iOS および Linux では 64 ビット符号なし整数型

  Int8  = ShortInt   
  Int16 = SmallInt = SHORT  
  Int32 = Integer = LongInt 
  Int64 = LONG64 = LONGLONG

  UInt8  = Byte 
  UInt16 = WORD 
  UInt32 = Cardinal = DWORD = LongWord = UINT
  UInt64 = DWORDLONG = ULONGLONG  
  
  // 32 ビットの EXE では 32 ビットに，64 ビットの EXE では 64 ビットの整数型になる型
  NativeInt
  NativeUInt

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add(CurrToStr(MinCurrency));
  Memo1.Lines.Add(CurrToStr(MaxCurrency));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  LUInt16 : UInt16;
  LUInt32 : UInt32;
begin
  Memo1.Lines.Clear;

  // 代入先のビット数が大きければ，そのビット数の範囲内であれば代入可能
  LUInt16 := High(UInt16);
  LUInt32 := LUInt16 + 500;
  Memo1.Lines.Add(IntToStr(LUInt16));
  Memo1.Lines.Add(IntToStr(LUInt32));
//
  // UInt16 で扱える範囲を超えていても変数であれば代入可能
  // ただし値は正しくない
  LUInt32 := High(UInt16);
  LUInt16 := LUInt32 + 500;
  Memo1.Lines.Add(IntToStr(LUInt16));

  // これはコンパイル時にエラーとなる
  // UInt16 で扱える範囲を超えている
//  LUInt16 := 66035;
end;

//=============================================================================
//  符号付き整数型の変数に符号なし整数型の変数を代入
//  符号付き整数型の最大値以下の値を代入する場合
//  単に代入するだけでよい
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LInt16  : Int16;
  LUint16 : Uint16;
begin
  Memo1.Lines.Clear;

  LUInt16 := 32000;
  Lint16  := LUInt16;

  Memo1.Lines.Add('元の値-符号なし整数値 : ' + UIntToStr(LUint16));
  Memo1.Lines.Add('結果値-符号付き整数値 : ' + IntToStr(Lint16));
end;

//=============================================================================
//  符号付き整数型の変数に符号なし整数型の変数を代入
//  符号付き整数型の最大値を超える値を代入する場合
//  代入は可能だが期待する値にならない
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LInt16  : Int16;
  LUint16 : Uint16;
begin
  Memo1.Lines.Clear;

  LUInt16 := 50000;
  Lint16  := LUInt16;

  Memo1.Lines.Add('元の値-符号なし整数値 : ' + UIntToStr(LUint16));
  Memo1.Lines.Add('結果値-符号付き整数値 : ' + IntToStr(Lint16));

  Memo1.Lines.Add('');
  Memo1.Lines.Add('符号付き整数値の最大値 : ' + IntToStr(High(Lint16)));
end;

//=============================================================================
//  符号なし整数型の変数に符号付き整数型の変数を代入
//  負の値を代入する場合
//  代入は可能だが期待する値にはならない
//
//  符号なし整数型の変数に負の値は直接代入できない
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LInt16  : Int16;
  LUint16 : Uint16;
begin
  Memo1.Lines.Clear;

  LInt16  := -12000;
  LUint16 := LInt16;

  Memo1.Lines.Add('元の値-符号付き整数値 : ' + IntToStr(Lint16));
  Memo1.Lines.Add('結果値-符号なし整数値 : ' + UIntToStr(LUint16));
end;

//=============================================================================
//  IntToStr と UIntToStr 関数による処理結果
//  正の値の場合
//
//  符号付き整数型であれば 64 ビットまでどちらの関数でも処理可能
//  符号なし整数型の場合は，32 ビットまでならばどちらの関数でも処理可能
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LInt32  : Int32;
  LUInt32 : UInt32;
  LInt64  : Int64;
  LUInt64 : UInt64;
begin
  Memo1.Lines.Clear;

  // 符号付き 32 ビット整数型の場合
  LInt32 := High(Int32);
  Memo1.Lines.Add(IntToStr(LInt32));
  Memo1.Lines.Add(UIntToStr(LInt32));

  // 符号なし 32 ビット整数型の場合
  LUInt32 := High(UInt32);
  Memo1.Lines.Add(IntToStr(LUInt32));
  Memo1.Lines.Add(UIntToStr(LUInt32));

  // 符号付き 64 ビット整数型の場合
  LInt64 := High(Int64);
  Memo1.Lines.Add(IntToStr(LInt64));
  Memo1.Lines.Add(UIntToStr(LInt64));

  // 符号なし 64 ビット整数型の場合
  LUInt64 := High(UInt64);
  Memo1.Lines.Add(IntToStr(LUInt64));
  Memo1.Lines.Add(UIntToStr(LUInt64));
end;

//=============================================================================
//  符号付き 16 ビット整数値を文字列にして表示
//  IntToStr と UIntToStr 関数による結果の違い
//  UIntToStr 関数は負の値を認識しない
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LValue : Int16;
begin
  LValue := -15000;

  Memo1.Lines.Clear;
  Memo1.Lines.Add(IntToStr(LValue));
  Memo1.Lines.Add(UIntToStr(LValue));
end;