Sugerir nome do arquivo no SaveDialog

Question

no componente SaveDialog, como fazer para sugerir um nome para o arquivo que vai ser salvo?e se for poss�vel tem como obrigar o usu�rio a salvar o arquivo apenas com o nome sugerido?...

Marco Salles · Answer

apesar de voce n�o ter , em alguma situa��es �correspondido� a minha assinatura :cry: :cry: :cry: :cry: :cry:

procedure TForm1.Button2Click(Sender: TObject);
var
NomeDoArquivo:String;
begin
saveDialog1.InitialDir:=�C:\�; //********Opcional*****
NomeDoArquivo:=�OLA�;
saveDialog1.FileName:=�OLA�;
if savedialog1.Execute Then
 begin
   While (pos(NomeDoArquivo,saveDialog1.FileName)<= 0) do
     begin
       saveDialog1.FileName:=NomeDoArquivo;
       Showmessage(�O Nome Do Arquivo Tem Que ser : �+NomeDoArquivo);
       if not (savedialog1.Execute) Then
         begin
           NomeDoArquivo:=��;
           Break;
        end
     end;
   end
 else
   NomeDoArquivo:=��;
 if pos(NomeDoArquivo,saveDialog1.FileName)> 0 then
   Showmessage(�Gravar�)
 else
   Showmessage(�cancelado�);
end;

segue ainda que voce pode pre-definir o diretorio

[b:f10d8f4e30]saveDialog1.InitialDir:=�Seu Diretorio.. etc...�[/b:f10d8f4e30]

Marco Salles · Answer

outra op��o , entre muitas que poder�o aparecer..

procedure TForm1.Button1Click(Sender: TObject);
var
NomeDoArquivo:String;
NomeDigitado:String;
tamanho:integer;
begin
saveDialog1.InitialDir:=�C:\�; //********Opcional*****
NomeDoArquivo:=�OLA�;
saveDialog1.FileName:=�OLA�;
if savedialog1.Execute Then
 begin
   NomeDigitado:=Copy(savedialog1.filename,
                     length(savedialog1.FileName)-Length(NomeDoArquivo)+1,
                     length(NomeDoArquivo));
   While NomeDigitado <> NomeDoArquivo do
     begin
       saveDialog1.FileName:=NomeDoArquivo;
       Showmessage(�O Nome Do Arquivo Tem Que ser : �+NomeDoArquivo); 
       if not (savedialog1.Execute) Then 
         begin
           NomeDoArquivo:=��; 
           Break; 
        end
       else
         NomeDigitado:=Copy(savedialog1.filename,
                length(savedialog1.FileName)-Length(NomeDoArquivo)+1,
                length(NomeDoArquivo));
     end; 
   end
 else 
   NomeDoArquivo:=��; 
 if pos(NomeDoArquivo,saveDialog1.FileName)> 0 then
   Showmessage(�Gravar�) 
 else 
   Showmessage(�cancelado�);

a diferen�� desta para a primeira que esta ultima compara o �valor� do que foi digitado na caixa do dialogo e n�o somente a posi��o da string �OLA� no SaveDialog1.FileName

Por exemplo , se voce tiver Um Caminho (Com a pasta) �OLA� no primeiro exemplo , independentemente do que for digitado para o nome do Arquivo a Instru��o
pos(NomeDoArquivo,saveDialog1.FileName)<= 0 sera falsa..

Alem disso , usando algumas fun�oes , pode-se desconsiderar Maiscula de minusclas e vice-versa.

Raserafim · Answer

mais uma vez valeu marco salles pelas sempre prestativas respostas....

F�rum Sugerir nome do arquivo no SaveDialog #326454