VPF::ListBox & FindFiles - Форум программистов

AL CAPONE

Дата 20.1.2006, 15:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Привет крутым программерам ! Вопросец вот какой: есть процедура поиска файлов по маске в заданной директории:

Код


procedure TForm1.FindFiles(APath:string);
var
  FSearchRec:TSearchRec;
  FindResult:integer;
begin
  APath:=DirectoryListBox.Directory;
  FindResult:=FindFirst(APath+'\'+'*.doc',faAnyFile,FSearchRec);
    try
      while FindResult=0 do
        begin
          ListBox.Items.Add(FSearchRec.Name);
          FindResult:=FindNext(FSearchRec);
        end;
    finally
     FindClose(FSearchRec);
    end;
end;

Трабла вот в чём: выражение FSearchRec.Name содержит правильное имя файла и его расширение, а при записи в ListBox.Items.Add(FSearchRec.Name) происходит следующее: на форме отображается всё гут в ListBox-е, но при обращении к нему для получения имени файла через str:=ListBox.Items.ValueFromIndex[0] оно считывается без первого символа, каким бы он ни был. Например:
FSearchRec.Name равен "Календарный.doc";
делаем ListBox.Items.Add(FSearchRec.Name);
после на форме в ListBox появляется строка "Календарный.doc" (как и положено собственно), а при считывании через str:=ListBox.Items.ValueFromIndex[0] в переменную str передаётся только "алендарный.doc", причём это случается и на файлах с именем абсолютно разных размеров (даже если файл типа "1.doc", то будет передана строка ".doc").

П О М О Г И Т Е ! ! !

Это сообщение отредактировал(а) Girder - 20.1.2006, 23:40

z-END

Дата 20.1.2006, 15:23 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

Цитата(AL CAPONE @ 20.1.2006, 15:18

)

str:=ListBox.Items.ValueFromIndex[0]

а потомучто нефик так деалть smile

)
str:=ListBox.Items[0] надо...
данный механизм используется если у тебя в TStrings информация хранится в виде:
ITEM1=VALUE1
ITEM2=VALUE2

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Guedda

Дата 20.1.2006, 15:31 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

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

Репутация: 14
Всего: 78

Код


Str := ListBox1.Items[ListBox1.ItemIndex];

--------------------

Ll 2

Romikgy

Дата 20.1.2006, 16:16 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Имхо так проще получить список файлов

Код


 SendMessage(ListBox.Handle,LB_DIR,DDL_READWRITE,Integer(Pchar(APath)));

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

AL CAPONE

Дата 23.1.2006, 15:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Всем спасибо огромное за советы. Они очень помогли.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »