[ テキスト保存 / 開くダイアログのエンコード設定 ]

//=============================================================================
//  TSaveTextFileDialog の EncodingIndex プロパティと Encodings プロパティ
//  TOpenTextFileDialog も同じ
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LEncIndex : Integer;
  LEncText  : string;
begin
  if SaveTextFileDialog1.Execute then begin
    LEncIndex := SaveTextFileDialog1.EncodingIndex;
    LEncText := SaveTextFileDialog1.Encodings[LEncIndex];

    // エンコードのインデックスまたはエンコードの文字列に応じた処理
    ShowMessage(LEncText);
  end;
end;

//=============================================================================
//  保存するテキストを Memo1 ( TMemo ) に表示
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Clear;

  //文字列をセット
  Memo1.Lines.Add(#$4F60#$597D + ' !!');
  Memo1.Lines.Add(#$D842#$DFB7 + ' (サロゲートペアな文字)');
  Memo1.Lines.Add('テキストの保存と読み出し');
end;

//=============================================================================
//  テキストの保存
//  TSaveTextFileDialog におむるエンコードリストの作成
//
//  この場合の Unicode は UTF-16
//  この場合の UTF-8 は BOM 付き
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LEncodings : TStringList;
  LEncIndex  : Integer;
  LEncoding  : TEncoding;
begin
  // エンコードオブジェクトの作成
  LEncodings := TStringList.Create;
  try
    LEncodings.AddObject('Shift_JIS', TEncoding.GetEncoding(932));
    LEncodings.AddObject('Unicode',   TEncoding.Unicode);
    LEncodings.AddObject('UTF-8',     TEncoding.UTF8);

    SaveTextFileDialog1.Encodings.Assign(LEncodings);
  finally
    FreeAndNil(LEncodings);
  end;


  SaveTextFileDialog1.Filter := 'テキストファイル (*.txt)|*.txt|)';
  SaveTextFileDialog1.FileName := ExpandFileName('.\000.txt');
  SaveTextFileDialog1.EncodingIndex := 2;

  if SaveTextFileDialog1.Execute then begin
    // ダイアログで選択した TEncoding を取得
    LEncIndex := SaveTextFileDialog1.EncodingIndex;
    LEncoding := SaveTextFileDialog1.Encodings.Objects[LEncIndex] as TEncoding;

    Memo1.Lines.SaveToFile(SaveTextFileDialog1.FileName, LEncoding);
  end;
end;

//=============================================================================
//  テキストの読み込み
//  TOpenTextFileDialog におむるエンコードリストの作成
//
//  この場合の Unicode は UTF-16
//  この場合の UTF-8 は BOM 付き
//=============================================================================
procedure TForm1.Button3Click(Sender: TObject);
var
  LEncodings : TStringList;
  LEncIndex  : Integer;
  LEncoding  : TEncoding;
begin
  Memo1.Lines.Clear;

  // エンコードオブジェクトのリストを作成
  LEncodings := TStringList.Create;
  try
    LEncodings.AddObject('Shift_JIS', TEncoding.GetEncoding(932));
    LEncodings.AddObject('Unicode',   TEncoding.Unicode);
    LEncodings.AddObject('UTF-8',     TEncoding.UTF8);

    OpenTextFileDialog1.Encodings.Assign(LEncodings);
  finally
    FreeAndNil(LEncodings);
  end;


  OpenTextFileDialog1.Filter := 'テキストファイル (*.txt)|*.txt|)';
  OpenTextFileDialog1.FileName := ExpandFileName('.\000.txt');
  OpenTextFileDialog1.EncodingIndex := 2;

  if OpenTextFileDialog1.Execute then begin
    // ダイアログで選択した TEncoding を取得
    LEncIndex := OpenTextFileDialog1.EncodingIndex;
    LEncoding := OpenTextFileDialog1.Encodings.Objects[LEncIndex] as TEncoding;

    Memo1.Lines.LoadFromFile(OpenTextFileDialog1.FileName, LEncoding);
  end;
end;

// Unicoede リトルエンディアン LEncodings.AddObject('Unicode (Little endian)', TEncoding.GetEncoding(1200)); // Unicoede ビッグエンディアン LEncodings.AddObject('Unicode (Big endian)', TEncoding.GetEncoding(1201));