Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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:
Opa, valeu por responder. Deu certo. :thumbsup:
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.