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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 03.05.2014, 22:04   #1
absxx
Пользователь
 
Регистрация: 13.02.2011
Сообщений: 12
По умолчанию ListView и StringGrid

При заполнении данными ListView, для определенного SubItem'a проверяется соответствие данных со StringGrid. Но сверяется только первая строка в гриде с данными перед заполнением. Подскажите пожалуйста, в чем ошибка

Вот код заполнения ListView:
Код:
procedure TForm1.AddNewFile(SR: TSearchRec;path:string);
var I:integer;
begin
 with ListView1.Items.Add, SR do
 begin
   Caption := Name;
   if (Attr and faDirectory) <> 0 then ImageIndex := 0
     else ImageIndex := 1;
   Size := Size div 1024;
   if Size = 0 then Size := 1;
   if (Attr and faDirectory) <> 0 then SubItems.Add('Папка')
    else SubItems.Add('Файл');
   SubItems.Add(DateTimeToStr((Date)));
   for i:=1 to StringGrid2.RowCount-1 do begin
        if (path=StringGrid2.Cells[1,i]) and (Caption=StringGrid2.Cells[2,i]) then
                SubItems.Add(StringGrid2.Cells[3,i])
           else SubItems.Add('');
      end;
 end;
end;
Вызов прроцедуры:
Код:
fa := faAnyFile;
   if FindFirst(path+'\'+'*.*', fa, SR) = 0 then
   repeat
   If (SR.Name <> '.') and (SR.Name <> '..') Then
    AddNewFile(SR,path);
   until FindNext(SR) <> 0;
    FindClose(SR);

Последний раз редактировалось absxx; 03.05.2014 в 22:45.
absxx вне форума
Старый 03.05.2014, 23:05   #2
absxx
Пользователь
 
Регистрация: 13.02.2011
Сообщений: 12
По умолчанию

Тема закрыта. Решение найдено=)
absxx вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Excel to StringGrid and StringGrid to Exel Євгеній Бєлік Общие вопросы Delphi 3 24.11.2013 00:20
Как перетащить элемент ListView в другой ListView? Paul Hindenburg Компоненты Delphi 5 26.01.2013 11:35
stringgrid+колесо мыши=>stringgrid.onclick aalleexxaa Общие вопросы Delphi 5 16.02.2011 16:58
[C# + WPF] ListView. Узнать выделена ли строка в нём. ListView.View == GridView. Casper-SC WPF, UWP, WinRT, XAML 2 12.08.2010 19:04