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

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

listview

Змей ©   (2004-12-01 17:14:00) 

у меня не получается проверить пустоту первой строки
 for x := 0 to lv.Items.Count-1 do  begin
         if  lv.Items[0].Caption<>emptystr  then begin
           edit1.text:=inttostr(x);
         end;
         end;
вот так получается ну если не пустая строка то   edit1.text:=inttostr(x);
а вот как сделать ? если она пустая то showmessage('нет текста')
if  length(lv.Items[0].Caption)<0  then begin
         showmessage('нет текста')

                    end;

не получается
заранее благодарю

---

TButton   (2004-12-01 20:45:00) [1]

> Отхватит эксепшн ;)

а мне этот эксцепшен нафих не упал. просто инфа для долгих раздумий зимними вечерами.

---

novice__man   (2004-12-01 18:50:00) [2]

Если lv: TListView(что косвенно можно определить по названию), то должно быть lv.Items.Item[0].Caption <> ''

---

begin...end   (2004-12-01 18:43:00) [3]

> [6] Змей ©   (01.12.04 17:50)

Я вот одного не пойму. Вот эта строка:

> edit1.text:=inttostr(x)

- она зачем вообще?

---

novice__man   (2004-12-01 18:43:00) [4]

for x := 0 to lv.Items.Count-1 do  begin
    if lv.Items[0].Caption <> ''  then begin
      edit1.text:=inttostr(x);
      end else showmessage('нет текста');
   end;

---

novice__man   (2004-12-01 18:40:00) [5]

lvукажи тип переменной

---

Змей   (2004-12-01 17:50:00) [6]

edit1.text:=inttostr(x);
       end else showmessage('нет текста');
не катит тож пробовал

---

novice__man   (2004-12-01 17:21:00) [7]

for x := 0 to lv.Items.Count-1 do  begin
    if  lv.Items[0].Caption<>emptystr  then begin
        edit1.text:=inttostr(x);
        end else showmessage('нет текста');
    end;


TButton ©   (01.12.04 17:17) [1]

1. >не получается а что получается?
2. а если этой строки нет в принципе и lv.Items[0]=0?


Отхватит эксепшн ;)

---

novice__man   (2004-12-01 17:21:00) [8]

for x := 0 to lv.Items.Count-1 do  begin
    if  lv.Items[0].Caption<>emptystr  then begin
        edit1.text:=inttostr(x);
        end else showmessage('нет текста');
    end;


TButton ©   (01.12.04 17:17) [1]

1. >не получается а что получается?
2. а если этой строки нет в принципе и lv.Items[0]=0?


Не пройдет дальше  for x := 0 to lv.Items.Count-1 do

---

olookin   (2004-12-01 17:20:00) [9]

if  length(lv.Items[0].Caption) <0  then begin
        showmessage('нет текста')
        end;

А разве должно получиться?

---

novice_man   (2004-12-01 17:20:00) [10]

for x := 0 to lv.Items.Count-1 do  begin
    if  lv.Items[0].Caption<>emptystr  then begin
        edit1.text:=inttostr(x);
        end else showmessage('нет текста');
    end;


TButton ©   (01.12.04 17:17) [1]

1. >не получается а что получается?
2. а если этой строки нет в принципе и lv.Items[0]=0?


Отхватит эксепшн ;)

---

TButton   (2004-12-01 17:17:00) [11]

1. >не получаетсяа что получается?
2. а если этой строки нет в принципе и lv.Items[0]=0?

---

Наверх