Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > ListBox1

Автор: The MASTER 14.8.2004, 14:28

Помогите Плиз, вот у меня 2 ListBox'а, у меня в ListBox2 находятся адреса к файлам, а мне надо, чтоб ListBox1 фильтровал из ListBox2 только имена можно с форматами и добовлял в себя их!

Автор: _hunter 14.8.2004, 14:41

в цикле проходиш все итемы ListBox2 ( свойство Count )
и добавляеш в ListBox1 ExtractFileName(ListBox2.Items[i])

Автор: The MASTER 14.8.2004, 14:45

А как?

Автор: _hunter 14.8.2004, 15:03

что как?

Автор: The MASTER 14.8.2004, 15:08

В цикле пройти все итемы?

Автор: _hunter 14.8.2004, 15:15

Код


    for(int i = 0; i < ListBox2->Count; i++)
        ListBox1->Items->Add(ExtractFileName(ListBox2->Items->Strings[i]));

примерно так ( сорри за язык )

Автор: Ripper 14.8.2004, 16:19

Тока что проверил. Все работает вроде:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
 for i:=0 to ListBox2.Items.Count-1 do
  ListBox1.items.Add(ExtractFileName(ListBox2.Items[i]));
end;

ListBox2 - Пути
ListBox1 - Имена. С расширением показывает...

Автор: Ripper 14.8.2004, 16:40

А кстати, как убрать расширение?

Автор: _hunter 14.8.2004, 17:21

str.Delete(str.Pos(ExtractFileExt(str)), ExtractFileExt(str).Length());

Автор: Dynamic 16.8.2004, 08:03

Цитата(Ripper @ 14.8.2004, 16:40)

А кстати, как убрать расширение?

Код

s := ChangeFileExt(FileName, '');

Автор: The MASTER 1.9.2004, 11:03

Спасибо я уже разобрался!
Добавлено @ 11:04
Там у вас где-то были ошибочки но я не разбирался!
Добавлено @ 11:04
Модераторы, Администраторы, модете закрывать тему!