Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Операционные системы > Софт
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 04.06.2010, 18:20   #1
DimOn4Ik
Форумчанин
 
Регистрация: 10.10.2009
Сообщений: 206
Репутация: 25
По умолчанию Название файлов в TListBox

Помогите пожалуйста загрузить названия файлов в TListBox без расширения..
DimOn4Ik вне форума   Ответить с цитированием
Старый 04.06.2010, 18:55   #2
DimOn4Ik
Форумчанин
 
Регистрация: 10.10.2009
Сообщений: 206
Репутация: 25
По умолчанию

простите,ошибся разделом..
DimOn4Ik вне форума   Ответить с цитированием
Старый 04.06.2010, 20:21   #3
spamer
Software Developer
Профессионал
 
Аватар для spamer
 
Регистрация: 19.12.2008
Адрес: Ukraine, Kremenchug
Сообщений: 2,075
Репутация: 1142

skype: denis.piskunov.ua
По умолчанию

Вот как то :
Код:

procedure  TForm1.FindFile(Dir : String);
Var
  SR:TSearchRec;
  FindRes, k, exelen :Integer;
  FileName : string;
begin
  FindRes:=FindFirst(Dir + '*.*', faAnyFile, SR);
  While
    FindRes = 0 do
    begin
      if ((SR.Attr and faDirectory) = faDirectory) and
         ((SR.Name = '.')or(SR.Name = '..')) then
        begin
          FindRes := FindNext(SR);
          Continue;
        end;

      if ((SR.Attr and faDirectory) = faDirectory) then
        begin
          FindFile(Dir+SR.Name+'\');
          FindRes := FindNext(SR);
          Continue;
        end;
  k:=length(SR.Name); exelen:=pos('.', SR.Name)-1;
  FileName := copy(SR.Name, 0, exelen);
  ListBox1.Items.Add(FileName);

  FindRes:=FindNext(SR);
  end;
FindClose(SR);
end;

з.ы. код ищется легко в гугле, дорабатывается за 2 минуты...ну это так...к слову
з.з.ы желательно что бы модераторы перенесли тему в соответствующий раздел...
__________________
Будь проще и люди к тебе потянутся
spamer вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
TidFtp + TListBox Richard22 Общие вопросы Delphi 3 24.05.2010 18:06
Английские название папок и файлов. Alex Cones Свободное общение 4 30.11.2009 20:32
Одни из jpg файлов реальные JPEG а другие только название. как загрузиь только картинки? AgressiveBehavior Общие вопросы Delphi 1 16.09.2009 09:39
TListBox Dr.Badnezz Компоненты Delphi 3 04.02.2009 00:15
Вопрос с TListBox Манжосов Денис :) Помощь студентам 11 06.04.2008 23:26


21:33.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru