SaveDialog como salvar com extesão definida ?

Delphi

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

Romeusql

Curtidas 0

Respostas

Carnette

Carnette

15/02/2003

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;


GOSTEI 0
Anonymous

Anonymous

15/02/2003

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


GOSTEI 0
Wellington Telles

Wellington Telles

15/02/2003

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;
GOSTEI 0
Wellington Telles

Wellington Telles

15/02/2003

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;
GOSTEI 0
POSTAR