DirectoryListBox
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
DirectoryListBox
DiroctoryListBox da bir üst klasöre nasıl çıkabilirim?
Select * From LiFe Where Your EYES
http://Www.Gebze.Org
http://Www.Gebze.Org
Merhaba,
Aklıma gelen bir yol aşağıda ki gibi. Bunun başka bir komutlada belki yapılabilir ama.
var
a:string;
i,tut:integer;
begin
a:=DirectoryListBox1.Directory;
for i:=length(a) DOWNto 0 do
if a='\' then begin
tut:=i;
Break;
end;
DirectoryListBox1.Directory:=copy(a,1,tut);
end;
Bu şekilde yapabilirsin.
Kolay Gelsin.
Aklıma gelen bir yol aşağıda ki gibi. Bunun başka bir komutlada belki yapılabilir ama.
var
a:string;
i,tut:integer;
begin
a:=DirectoryListBox1.Directory;
for i:=length(a) DOWNto 0 do
if a='\' then begin
tut:=i;
Break;
end;
DirectoryListBox1.Directory:=copy(a,1,tut);
end;
Bu şekilde yapabilirsin.
Kolay Gelsin.