リンク

拡張子判定

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

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

Posted in Delphi, Program on 4月 16, 2006