OpenDialog

Delphi

04/04/2003

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.


Anonymous

Anonymous

Curtidas 0

Respostas

Jycn

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


GOSTEI 0
Anonymous

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...


GOSTEI 0
Anonymous

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


GOSTEI 0
POSTAR