Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.08.2011, 18:04   #1
Михаил Юрьевич
Форумчанин
 
Аватар для Михаил Юрьевич
 
Регистрация: 25.12.2007
Сообщений: 655
По умолчанию расширение в combobox

Загружаем в listbox из папки файлы, далее нужно из listbox загрузить в combobox названия файлов но без расширений , вот чего наэкспериминтировал: Но загружается в combobox только имя пследнего файла

Код:
var
  index: Integer;
begin

  form1.fllst1.Directory := 'c:\555';
 form1.fllst1.Mask := '*.dll';
  For index := 0 to form1.fllst1.Count -1 do
   ExtractOnlyFileName(form1.fllst1.Items[index]);
    ComboBox1.Items.Add(file_extension);//переменная string
end;

function TForm1.ExtractOnlyFileName(const FileName: string): string;
begin
 file_extension:=StringReplace(ExtractFileName(FileName),ExtractFileExt(FileName),'',[]);
end;
За частые поиски был забанен во всех известных
поисковых системах!
Михаил Юрьевич вне форума Ответить с цитированием
Старый 31.08.2011, 18:11   #2
lexaltd
Форумчанин
 
Регистрация: 21.07.2008
Сообщений: 192
По умолчанию

Код:
  var
  index: Integer;
begin
  form1.fllst1.Directory := 'c:\555';
  form1.fllst1.Mask := '*.dll';
For index := 0 to form1.fllst1.Count -1 do
  begin
    ExtractOnlyFileName(form1.fllst1.Items[index]);
     ComboBox1.Items.Add(file_extension);//переменная string
  end;
end;
lexaltd вне форума Ответить с цитированием
Старый 31.08.2011, 18:44   #3
Михаил Юрьевич
Форумчанин
 
Аватар для Михаил Юрьевич
 
Регистрация: 25.12.2007
Сообщений: 655
По умолчанию

Спасибо большое!
За частые поиски был забанен во всех известных
поисковых системах!
Михаил Юрьевич вне форума Ответить с цитированием
Старый 01.09.2011, 14:04   #4
ZuBy
Участник клуба
 
Аватар для ZuBy
 
Регистрация: 29.09.2008
Сообщений: 1,234
По умолчанию

Пишем правильно функции!
Код:
function TForm1.ExtractOnlyFileName(const FileName: string): string;
begin
  Result := ChangeFileExt(ExtractFileName(FileName), '');
end;
изменяем
Код:
var
  index: Integer;
begin
  form1.fllst1.Directory := 'c:\555';
  form1.fllst1.Mask := '*.dll';
  For index := 0 to form1.fllst1.Count -1 do
    ComboBox1.Items.Add(ExtractOnlyFileName(form1.fllst1.Items[index]));
   //ComboBox1.Items.Add(ChangeFileExt(ExtractFileName(form1.fllst1.Items[index]), ''));
end;
ZuBy вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
расширение ISO benni_91 Операционные системы общие вопросы 13 31.05.2011 12:41
Webbrowser и combobox: сделать чтобы в combobox-е оставалась история посещенных сайтов uasya2 Общие вопросы Delphi 6 06.03.2011 20:24
Расширение TGA Foxtrot_1 Gamedev - cоздание игр: Unity, OpenGL, DirectX 4 29.11.2009 22:14
Не могу внести строку из combobox в combobox!? tacer Помощь студентам 1 30.11.2007 19:45
Расширение Slash Общие вопросы Delphi 5 15.08.2007 12:08