拡張子判定

文字列の終わりに拡張子が入っているかどうかをAnsiEndsTextで判定。

s := SaveDialog1.FileName;
if(not AnsiEndsText(s, '.ini'))then
s := s + '.ini';

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です