TSMH’s blog

多趣味人間のメモ

OpenDialog/SaveDialogの使用方法

OpenDialog/SaveDialogの使い方簡単にまとめる
(私的)よく使うのはファイル(.txt、.csv)を開く/なんらかの処理/保存

OpenDialog

画面にOpenDialogButtonMemoコンポーネントを配置

ファイルの拡張子を指定したい場合は
OpenDialogのプロパティのFilterをクリックして
「ファイルの設定」
ファイル名:テキスト
ファイル:*.txt;*.csv
指定しない場合、全てのファイルが対象となる

procedure TForm1.Button1Click(Sender: TObject);
begin
  if  OpenDialog1.Execute  then
  begin
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  end;
end;      

SaveDialog

画面にSaveDialogButtonMemoコンポーネントを配置
保存する時拡張子が省略された場合、デフォルトの拡張子を指定
OpenDialogのプロパティのDefaultExtで「txt」とする

procedure TForm1.Button1Click(Sender: TObject);
begin
  if  SaveDialog1.Execute  then
  begin
    Memo1.Lines.SaveToFile(SaveDialog1.FileName);
  end;
end;