F�rum SaveDialog como salvar com extes�o definida ? #137351

15/02/2003

Oi Como eu fa�o para salvar os arquivos ja com extes�o definida indepedente do usu�rio ?
Ex: o Usu�rio digitou C:\sistema\sistema_backup
e automaticamente e siria salvo assim
C:\sistema\sistema_backup.BKP
[b:0131b32960]Sintax :[/b:0131b32960]

[color=darkred:0131b32960]procedure TFrmBackup.BitBtn6Click(Sender: TObject);
begin
SaveDialog1.Filter:=�Bakup |*.BKP�;
If SaveDialog1.Execute Then
Edtalias.Text:=SaveDialog1.FileName;
end;[/color:0131b32960]

Alguem pode Me ajudar ??

Romeusql

Curtir t�pico

+ 0

Responder

Posts

15/02/2003

Carnette

procedure TFrmBackup.BitBtn6Click(Sender: TObject);
begin
SaveDialog1.DefaultEx := �BKP� <--- Faltou s� isso
SaveDialog1.Filter:=�Bakup |*.BKP�;
If SaveDialog1.Execute Then
Edtalias.Text:=SaveDialog1.FileName;
end;

Responder

Gostei + 0

15/02/2003

Anonymous

procedure TFrmBackup.BitBtn6Click(Sender: TObject);
begin
SaveDialog1.Filter:=�Bakup |*.BKP�;
SaveDialog1.DefaultExt := �.BKP�;
If SaveDialog1.Execute Then
Edtalias.Text:=SaveDialog1.FileName;
end;

Responder

Gostei + 0

06/01/2023

Wellington Telles

Para garantir que o arquivo tenha uma extens�o espec�fica:

procedure TFrmMain.BtnDestinationClick(Sender: TObject);
var
  fPath : string;
  pName : PChar;
begin
  SaveDialogDestination.InitialDir :=  EdtDirectory.Text;
  SaveDialogDestination.DefaultExt := ''fdb'';
  if SaveDialogDestination.Execute then
  if SaveDialogDestination.FileName <> null then
  begin
    pName := PChar(SaveDialogDestination.FileName);
    fPath := ExtractFilePath(SaveDialogDestination.FileName);
    EdtDestination.Text := fPath+''\\\\''+ChangeFileExt(ExtractFileName(pName),''.fdb'');
  end;
end;

Responder

Gostei + 0

06/01/2023

Wellington Telles

Para garantir que o arquivo tenha uma extens�o espec�fica:

procedure TFrmMain.BtnDestinationClick(Sender: TObject);
var
  fPath : string;
  pName : PChar;
begin
  SaveDialogDestination.InitialDir :=  EdtDirectory.Text;
  SaveDialogDestination.DefaultExt := ''fdb'';
  if SaveDialogDestination.Execute then
  if SaveDialogDestination.FileName <> null then
  begin
    pName := PChar(SaveDialogDestination.FileName);
    fPath := ExtractFilePath(SaveDialogDestination.FileName);
    EdtDestination.Text := fPath+''\\''+ChangeFileExt(ExtractFileName(pName),''.fdb'');
  end;
end;

Responder

Gostei + 0