Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Строка из ListView передается не полностью [D7, 2000]


Perf2k2 ©   (2007-04-27 15:08:00) 

Всем прив.

В ЛистВью занесены строки такого вида:

12    Иванов     C:\123\456.jpg

Просто по нажатию на кнопку вывожу путь в отдельый Label

Label6.Caption := ListView1.Items[i-1].SubItems.ValueFromIndex[1];

Выводит только :\123\456.jpg

В чем м.б. проблема?

Выводится только


iXT   (2007-04-27 15:28:00) [1]

Ну во первыx
SubItems: TStings
поэтому SubItems[1] ИМХО достаточно
Во вторых не видать что у тебя в этом ListView1


Perf2k2   (2007-04-27 15:27:00) [2]

А так нормально... Что-то я прикола не понял....

Ну спасибо...)


{RASkov}   (2007-04-27 15:27:00) [3]

> [5] Perf2k2 ©   (27.04.07 15:27)
> А так нормально... Что-то я прикола не понял....

Посмотри, что такое ValueFromIndex и все станет ясно.


MBo   (2007-04-27 15:25:00) [4]

А если так:
Label6.Caption := ListView1.Items[i-1].SubItems[1];


{RASkov}   (2007-04-27 15:25:00) [5]

Label6.Caption := ListView1.Items[i-1].SubItems[1];


Perf2k2   (2007-04-27 15:22:00) [6]

Кусок кода:



   Query1.SQL.Text := 'SELECT @@IDENTITY AS LAST FROM fm_fotos';
   Query1.Open;
   last_foto_id := DataSource1.DataSet.FieldByName('LAST').Value;

   if DirectoryExists(frmMain.global_images_path + IntToStr(last_album_id)) = false then
     CreateDir(frmMain.global_images_path + IntToStr(last_album_id));

   Label6.Caption := ListView1.Items[i-1].SubItems.ValueFromIndex[1];

   jpg.LoadFromFile(ListView1.Items[i-1].SubItems.ValueFromIndex[1]);
   bmp.Assign(jpg);
   bmp.Height := 75;
   bmp.Width := 100;
   bmp.Canvas.StretchDraw(bmp.Canvas.Cliprect, jpg);


iXT   (2007-04-27 15:18:00) [7]

Чудес на свете не бывает (поктайней мере тут)
Телепатор тут тоже бессилен.

Это глюки delphi или windows

Пиши в Borland и Microsoft :) или код


Наверх

Титульная страница Поиск, карта сайта Написать письмо