[Resolvido] Adicionar extensão automaticamente

[crf_h0m3r 5]

Boa tarde galera,

tenho um programa que tem a possibilidade de salvar os registros, porém toda vez que eu tenho que salvar eu tenho que escrever: NomeArquivo.xml, gostaria se saber como adicionar a extensão automaticamente.

Tenho o seguinte código:

procedure TDespesas.BtSalvarClick(Sender: TObject);
begin
if SaveDialog1.Execute then
 begin
   ClientDataSet1.SaveToFile(SaveDialog1.FileName, dfXMLUTF8);
 end;
end;

 

Desde já, obrigado! :thumbsup:

[wBB 0]

Em seu SaveDialog1 experimente preencher a propriedade DefaultExt com a extensão que você quer que seja a padrão. Ao salvar, se o arquivo não possuir uma extensão já reconhecida pelo Windows, então a extensão padrão que você informou será colocada automaticamente.

[crf_h0m3r 5]

Opa, valeu por responder. Deu certo. :thumbsup: