OpenDialog
04/04/2003
0
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
Curtir tópico
+ 0
Responder
Posts
04/04/2003
Jycn
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
Responder
04/04/2003
Anonymous
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...
Responder
04/04/2003
Anonymous
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
Responder
Clique aqui para fazer login e interagir na Comunidade :)
