Вниз
Скачать: CL | DM;

Строка из ListView передается не полностью   Найти похожие ветки 

← →
Perf2k2 ©   (2007-04-27 15:08) [0]

Всем прив.

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

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

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

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

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

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

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


← →
iXT ©   (2007-04-27 15:18) [1]

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

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

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


← →
Perf2k2 ©   (2007-04-27 15:22) [2]

Кусок кода:



   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);


← →
MBo ©   (2007-04-27 15:25) [3]

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


← →
{RASkov} ©   (2007-04-27 15:25) [4]

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


← →
Perf2k2 ©   (2007-04-27 15:27) [5]

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

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


← →
{RASkov} ©   (2007-04-27 15:27) [6]

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

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


← →
iXT ©   (2007-04-27 15:28) [7]

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.038 c
1-1174978693
serp
2007-03-27 10:58
2007.05.20
Монитор в режим ожидания


2-1177742275
DelphiLexx
2007-04-28 10:37
2007.05.20
Запретить Delphi удалять мои дерективы в dpr-файле


15-1176878638
Pazitron_Brain
2007-04-18 10:43
2007.05.20
MiniUSB --> Com


2-1178200691
RomanLN
2007-05-03 17:58
2007.05.20
Как присвоить цвет Edit программно


2-1177931656
allucard
2007-04-30 15:14
2007.05.20
Функция PaintTo - как убрать рамку?




   Наверх