OpenDialog
Boa Tarde!
Gostaria de saber qual é a função que abre uma janela tipo OpenDialog, entretando ela deve retornar apenas um direretorio e não um arquivo no diretorio.
Obrigado pela atenção,
Paulo.
Gostaria de saber qual é a função que abre uma janela tipo OpenDialog, entretando ela deve retornar apenas um direretorio e não um arquivo no diretorio.
Obrigado pela atenção,
Paulo.
Anonymous
Curtidas 0
Respostas
Jycn
04/04/2003
Olá..
Sugestão...
Se for só pra pegar o diretorio porque voce não utiliza o DirectoryListBox??
Ex: No OnClick do componente:
Edit1.Text:=DirectoryListBox1.Directory;
(Só sugestão..)
Jycn
Sugestão...
Se for só pra pegar o diretorio porque voce não utiliza o DirectoryListBox??
Ex: No OnClick do componente:
Edit1.Text:=DirectoryListBox1.Directory;
(Só sugestão..)
Jycn
GOSTEI 0
Anonymous
04/04/2003
Paula, tenta assim:
var
file,dir:string;
i:integer;
begin
i:=0;
file:=´´;
dir:=´´;
if opendialog1.execute then
begin
while i<= lenght(opendialog1.filename)do
begin
if opendialog1.filename[i]=´/´ then
begin
dir:=dir+file
file:=´´;
end
else
file:=file+opendialog1[i];
end;
i:=i+1;
end;
espero não ter errado pois escrevi o código agora de cabeça... espero que sirva ok...
var
file,dir:string;
i:integer;
begin
i:=0;
file:=´´;
dir:=´´;
if opendialog1.execute then
begin
while i<= lenght(opendialog1.filename)do
begin
if opendialog1.filename[i]=´/´ then
begin
dir:=dir+file
file:=´´;
end
else
file:=file+opendialog1[i];
end;
i:=i+1;
end;
espero não ter errado pois escrevi o código agora de cabeça... espero que sirva ok...
GOSTEI 0
Anonymous
04/04/2003
Paula, tenta assim:
var
file,dir:string;
i:integer;
begin
i:=0;
file:=´´;
dir:=´´;
if opendialog1.execute then
begin
while i<= lenght(opendialog1.filename)do
begin
if opendialog1.filename[i]=´/´ then
begin
dir:=dir+file
file:=´´;
end
else
file:=file+opendialog1[i];
end;
i:=i+1;
end;
espero não ter errado pois escrevi o código agora de cabeça... espero que sirva ok...
não se esqueça de inserir o componente OpenDialog da paleta Dialogs
var
file,dir:string;
i:integer;
begin
i:=0;
file:=´´;
dir:=´´;
if opendialog1.execute then
begin
while i<= lenght(opendialog1.filename)do
begin
if opendialog1.filename[i]=´/´ then
begin
dir:=dir+file
file:=´´;
end
else
file:=file+opendialog1[i];
end;
i:=i+1;
end;
espero não ter errado pois escrevi o código agora de cabeça... espero que sirva ok...
não se esqueça de inserir o componente OpenDialog da paleta Dialogs
GOSTEI 0