VPF::Показать имена папок при выбранном пути.

Elfebet

Дата 23.8.2006, 20:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 545
Регистрация: 15.5.2006
Где: Украина. Запорожь е.

Репутация: 2
Всего: 14

вот есть стринг лист в нем лежать пути

Код


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

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

--------------------

Программист не должен всё знать... он должен знать где можно посмотреть

Romikgy

Дата 23.8.2006, 21:16 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Цитата(Elfebet @ 23.8.2006, 19:24

)

бы показывала списко имен,

в чем?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

kindDevil

Дата 23.8.2006, 21:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 110
Регистрация: 10.10.2005

Репутация: нет
Всего: нет

всё.
допер.
тебе нужно отображать вложенные директории 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 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Код


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);

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »