ファイル保存に際して拡張子設定するには？

解決

なお 2002-08-08 02:17:37 No: 1223

基本の基本で申し訳ないのですが、メニュー作成で「名前を付けて保存」を作り、実行してみて、保存しようとすると、拡張子を全く選べないのですがどうしたら拡張子を設定できるか教えて頂けないでしょうか？
一応以下のようにプログラミングしたのですが・・・

procedure TForm1.SaveAs1Click(Sender: TObject);
begin
  SaveDialog1.Options :=[ofOverWritePrompt];
  if SaveDialog1.execute then
    begin
      FName := SaveDialog1.FileName;
      Caption := FName;
      Memo1.Lines.SaveToFile(FName);
      Memo1.Modified := false;
    end;
end;

ご返事お待ちしております。

たかみちえ URL 2002-08-08 02:20:17 No: 1224

設計中にダイアログの"Filter"プロパティをいじってみてください。
それでどうすればいいかわかると思います。

なお 2002-08-12 20:39:46 No: 1225

どうもありがとうございました。無事解決しました。