F1 en la ayuda de Delphi.
Buscas TSaveDialog y seleccionas propiedad Filter; Pone textualmente:
For example,
OpenDialog1.Filter := 'Text files (*.txt)|*.TXT';
Multiple filters should be separated by vertical bars. For example,
OpenDialog1.Filter := 'Text files (*.txt)|*.TXT|Pascal files (*.pas)|*.PAS';
To include multiple masks in a single filter, separate the masks with semicolons. This works both in the Object Inspector and in program code. For example,
OpenDialog1.Filter := 'Pascal files|*.PAS;*.DPK;*.DPR';
Los valores deben ir por parejas; El 1º descriptivo, el 2º el filtro con el * inclído, el 3º descriptivo, el 4º filtro con astrerisco incluído,...
|