Salvando uma arquivo em Delphi6

[Evandro Sousa 0]

Bom dia pessoal, a pouco tempo comecei a trabalhar com Delphi 6 na empresa onde estou atualmente e como todo leigo... sempre apanhando.

Gostaria de sabar se tem alguma maneira de exibir a opção para que o usuario escolha o diretório onde ele gostaria de salvar o arquivo, atualmente eu salvo em uma pasta padrão, sem perguntar onde o usuario gostaria de salvar.

Por exemplo, no HTML eu uso a tag <input type="file">..

Abraços..

[marcio.theis 3]

Adicione o componente TSaveDialog da guia Dialogs e no local onde faz o procedimento, faça:

var
	nomeArquivo: string;
begin
nomeArquivo:='';
if (SaveDialog1.Execute) then
	nomeArquivo:=SaveDialog1.FileName;

if (nomeArquivo <> '') then
	begin
	end;

Ou seja, o SaveDialog1.Execute vai abrir a tela para o usuário informar o nome do arquivo desejado e o local onde quer salvar, caso ele clique em salvar, a variável nomeArquivo irá receber a informação do nome do arquivo configurado pelo usuário...