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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 08.04.2008, 16:57   #1
Altera
Старожил
 
Аватар для Altera
 
Регистрация: 29.01.2008
Сообщений: 2,406
По умолчанию List View ПРОБЛЕМЫ

Привет всем!
У меня проблема с tListView

Код:
procedure adding(const value: string);
var
index: integer;
ext: string;
begin
   ext := extractFileExt(extractFileName(value));
   if ext = '.bmp' then index := 1;
   if ext = '.jpg' then index := 2 else index := 0;
   with test_form1.list.Items.Add do
   begin
      caption := value;
      imageindex := index;
   end;
end;

{$R *.dfm}
procedure Ttest_form1.build_buttonClick(Sender: TObject);
var
counter: integer;
sr: tSearchRec;
begin
   //************* Первый вариант ******************************
   {if findFirst('D:\Documents\Мои рисунки\Разное\CARS\*.*', faAnyFile, sr) = 0 then
   begin
      adding(sr.Name);
      while findNext(sr) = 0 do adding(sr.Name);
   end;}
   //************* Второй вариант ******************************
   if findFirst('D:\Documents\Мои рисунки\Разное\CARS\*.*', faAnyFile, sr) = 0 then
   begin
      with list.Items.Add do
      begin
         caption := sr.Name;
         if extractFileExt(extractFileName(sr.Name)) = '.bmp' then imageIndex := 1;
         if extractFileExt(extractFileName(sr.Name)) = '.jpg' then imageIndex := 2
         else imageIndex := 0;
      end;
      while findNext(sr) = 0 do
      begin
         with list.Items.Add do
         begin
            caption := sr.Name;
            if extractFileExt(extractFileName(sr.Name)) = '.bmp' then imageIndex := 1;
            if extractFileExt(extractFileName(sr.Name)) = '.jpg' then imageIndex := 2
            else imageIndex := 0;
         end;
      end;
   end;
end;
Если юзай первый вариант, то получается одна ерунда, а второй - другая...



Мне надо, что-б под BMP - одна иконка, под JPG - другая, а под всё остальное - третяя. Да, вот вопрос по теме, какие функции приравнивают текст к верхнему и нижнему регистрам??? (.jPg => .JPG => .jpg)............ Спасибо заранее!
Altera вне форума Ответить с цитированием
Старый 13.04.2008, 03:19   #2
Dj_smart
Капсула от спама
Форумчанин
 
Аватар для Dj_smart
 
Регистрация: 04.03.2008
Сообщений: 779
По умолчанию

ansilowercase('БаБаГаЛаМаГа') тебе вернет 'бабагаламага'
Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме?
CncFiles.ru - бесплатный файловый хостинг
Dj_smart вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Index List ofbounds (16) Johnson Общие вопросы Delphi 4 17.07.2008 19:54
List yurik1 Общие вопросы C/C++ 1 06.05.2008 16:34
Где храняться данные в List View Icor Win Api 3 16.04.2008 19:15
E-Mail форма+List Box Nemesisking PHP 8 05.04.2008 12:59
User list RKS Работа с сетью в Delphi 8 10.09.2007 13:42