Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> расширение вlistbox 
:(
    Опции темы
Михалыч
Дата 31.8.2011, 17:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Загружаем в 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;





--------------------
За частый поиск был забанен во всех известных поисковых системах.
Обиженных  комодераторов: 1 
PM MAIL   Вверх
superVad
Дата 31.8.2011, 17:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 4
Всего: 15
Код

  For index := 0 to form1.fllst1.Count -1 do
  begin
    ExtractOnlyFileName(form1.fllst1.Items[index]);
    ComboBox1.Items.Add(file_extension);//переменная string
  end;


Код

function TForm1.ExtractOnlyFileName(const FileName: string): string;
begin
 Result := StringReplace(ExtractFileName(FileName),ExtractFileExt(FileName),'',[]);
end;

//И потом:
ComboBox1.Items.Add(ExtractOnlyFileName(form1.fllst1.Items[index]));


Глобальные переменные - это не очень хорошо.

Это сообщение отредактировал(а) superVad - 31.8.2011, 17:19
PM MAIL   Вверх
Keeper89
Дата 31.8.2011, 17:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58
Ну потому что во всем этом ужасе надо сделать хотя бы так:
Код

  For index := 0 to form1.fllst1.Count -1 do
  begin
    ExtractOnlyFileName(form1.fllst1.Items[index]);
    ComboBox1.Items.Add(file_extension);//переменная string
  end;


Добавлено через 21 секунду
Опоздал smile


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Михалыч
Дата 31.8.2011, 17:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Спасибо! Но а почему не загружается весь список? В чем ошибка?

Теперь я опоздал, спасибо

Это сообщение отредактировал(а) Михалыч - 31.8.2011, 17:19


--------------------
За частый поиск был забанен во всех известных поисковых системах.
Обиженных  комодераторов: 1 
PM MAIL   Вверх
superVad
Дата 31.8.2011, 17:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 4
Всего: 15
Цитата(Михалыч @  31.8.2011,  16:18 Найти цитируемый пост)
Спасибо! Но а почему не загружается весь список? В чем ошибка?

Обрати внимание на  begin end. Если все равно не понятно то надо читать книжки по делфи.
PM MAIL   Вверх
Михалыч
Дата 31.8.2011, 17:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
А есть вариант другого ужаса?

Спасибо ,обратил внимание,сразу не понял


Ну а че,этот ужас, совсем ужас или нормально?

Это сообщение отредактировал(а) Михалыч - 31.8.2011, 17:25


--------------------
За частый поиск был забанен во всех известных поисковых системах.
Обиженных  комодераторов: 1 
PM MAIL   Вверх
Keeper89
Дата 31.8.2011, 18:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58
Если хочется иметь отдельную функцию, то можно сделать так:
Код

For index := 0 to form1.fllst1.Count -1 do
    ComboBox1.Items.Add(ExtractOnlyFileName(form1.fllst1.Items[index]));

function TForm1.ExtractOnlyFileName(const FileName: string): string;
begin
  Result := StringReplace(ExtractFileName(FileName),ExtractFileExt(FileName),'',[]);
end;



--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
superVad
Дата 31.8.2011, 19:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 4
Всего: 15
Цитата(Михалыч @  31.8.2011,  16:23 Найти цитируемый пост)
Ну а че,этот ужас, совсем ужас или нормально?

Работает и ладно.

Я бы только файлы искал по другому. Ссылка - таким бы образом сразу вставлял строчки в комбобокс (вместо листбокса в примере) возможно.
PM MAIL   Вверх
Keeper89
Дата 31.8.2011, 19:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58
Цитата(superVad @  31.8.2011,  19:16 Найти цитируемый пост)
Работает и ладно.

Что значит работает и ладно? Это пипец использовать функцию для изменения глобальной переменной да еще и ничего не возвращать.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
superVad
Дата 31.8.2011, 20:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 4
Всего: 15
Цитата(Keeper89 @  31.8.2011,  18:23 Найти цитируемый пост)
Что значит работает и ладно? Это пипец использовать функцию для изменения глобальной переменной да еще и ничего не возвращать.

Ну я с той точки зрения, что про это уже выше написано.

 smile поздравляю с сертификатом  smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0650 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.