Как вывести весь каталог txt файлов в ListBox

[Пепел Феникса]

1)не идентичны
2)а что скопировать готовый код и применить его это сложно?

[ШеФФ]

Не сложно=) Но привлекает идея написать одну строчку вместо нескольких.

[_SERGEYX_]

Все работает. Заменим LB_DIR на CB_DIR

SendMessage(ComboBox1.Handle,CB_DIR, 0,integer(pchar('c:\*.txt')));

[ШеФФ]

Вах=) Спасибо большое!!!

[ШеФФ]

И еще вопрос... Как отображать при этом в комбобоксе только имена файлов без расширения?

[bulldog5293]

SendMessage(ComboBox1.Handle,CB_DIR, 0,integer(pchar('c:\*.*')));

Если не ошибаюсь то так

[ШеФФ]

Мммм...нет, нужно именно файлы заданного формата, но чтобы в комбобоксе отображались только их имена. Пример: example.txt отображался бы как example

[Serge_Bliznykov]

Сообщение от ШеФФ

Не сложно=) Но привлекает идея написать одну строчку вместо нескольких.

Сообщение от ШеФФ

Мммм...нет, нужно именно файлы заданного формата, но чтобы в комбобоксе отображались только их имена. Пример: example.txt отображался бы как example

думаю, что это несовместимые желания...

Либо обработайте в цикле имена полученные одной строкой.
Либо в процедуре заполнения вытягивайте только имя, без расширения.

[ШеФФ]

for i:= 0 to ComboBox1.Items.Count - 1 do Delete(ComboBox1.Items[i],Length(ComboBox1.Items[i])-5,5);

Делаю так. Ругается: "Constant object cannot be passed as a var parameter" =(

[Serge_Bliznykov]

правильно ругается.

вот, примерно так:

for i:= 0 to ComboBox1.Items.Count - 1 do begin
    s := ComboBox1.Items[i];
    Delete(s,Length(s)-5+1,5);
    ComboBox1.Items[i] := s;
end;

константы -5 , 5 в функции удаления я оставляю на Вашей совести!