Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Показать имена папок при выбранном пути.


Автор: Elfebet 23.8.2006, 20:24
вот есть стринг лист в нем лежать пути
Код

obj\
obj\Debug\
bin\
bin\Debug\
image\

и вот мне нужна функция которая бы показывала списко имен, чтоб было понятно приведу пример:
если dir:='' то obj, bin,image
если dir:='obj', то Debug
и так далее.
плиз помогите, очень нужно, уже домой хочу....

Автор: Romikgy 23.8.2006, 21:16
Цитата(Elfebet @  23.8.2006,  19:24 Найти цитируемый пост)
 бы показывала списко имен,

в чем?

Автор: kindDevil 23.8.2006, 21:24
всё.
допер.
тебе нужно отображать вложенные директории smile 
тогда тебе нужно что-то вроде:


Код

procedure GetTreeDirs(Root: string; OutPaper: TStringList);
var
  i: Integer;
  s: string;

  procedure InsDirs(s: string; ind: Integer; Path: string; OPaper: TStringList);
  var {Вставляет в Memo список вложенных директорий}
    sr: TSearchRec;
    attr: Integer;
  begin
    attr := 0;
    attr := faAnyFile;
    if DirectoryExists(Path) then
      if FindFirst(IncludeTrailingBackslash(Path) + '*.*', attr, SR) = 0 then
      begin
        repeat
          if (sr.Attr = faDirectory) and (sr.Name[Length(sr.Name)] <> '.') then
            OPaper.Insert(ind, s + sr.Name);
        until (FindNext(sr) <> 0);
        FindClose(SR);
      end
  end;

begin
  {Проверяем существуетли начальный каталог}
  if not DirectoryExists(Root) then
    exit;
  {Создаем список каталогов первой вложенности}
  if root[Length(Root)] <> '\' then
    InsDirs(root + '\', OutPaper.Count, Root, OutPaper)
  else
    InsDirs(root, OutPaper.Count, Root, OutPaper);
  i := 0;
  repeat
    s := OutPaper[i]; //в s получаем путь к уже внесенному в список кат.
    // Вставляем сразу за данной директорией в списке,
    // список вложенных в нее директорий.
    // Тем самым увеличиваем OutPaper.Lines.Count.
    // Таким образом катологи в которых поиск еще не производился,
    // оказываются ниже и очереь до них еще дойдет.
    InsDirs(s + '\', i + 1, OutPaper[i], OutPaper);
    inc(i);
  until (i = OutPaper.Count);
end;


а вот так можно юзать

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  Strs: TStringList;
begin
  Strs := TStringList.Create;
  try
    GetTreeDirs('C:\', Strs);
    FillTreeViewWithFiles(TreeView1, Strs);
  finally
    Strs.Free;
  end;
end;

Автор: Romikgy 23.8.2006, 21:48
Код

procedure subby(const sx: string;  s1: TStrings;  s2: TStrings);
var sl,sl1,sl2: TStringList;
i: LongInt;
begin
sl:=TStringList.Create;
sl.Delimiter:='\';
sl1:=TStringList.Create;
sl2:=TStringList.Create;
sl1.Assign(s1);
sl2.Duplicates:=dupAccept;
//sl2.Assign(s2);
for i:=0 to sl1.Count-1 do
begin
  sl.DelimitedText:=sl1[i];
  if (sx='') then
  begin

  if sl[0]<>'' then sl2.Add(sl[0]);
  end
  else
  begin
   if (sl[0]=sx) and (sl.Count>1) then sl2.Add( sl[1]);
  end;
end;
if sl2.Count>1 then

For i:=sl2.Count-2 downto 0 do
if sl2[i]=sl2[i+1] then sl2.Delete(i+1);;
s2.Assign(sl2);
sl2.Free;
sl1.Free;
sl.Free;
end;

в sx вводишь что ищешь
s1 - список в чем ищешь
s2 - список куда выводится ответ
пример юзания
Код

subby('obj',Memo1.Lines,Memo2.Lines);

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)