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

listview   Найти похожие ветки 

← →
Змей ©   (2004-12-01 17:14) [0]

у меня не получается проверить пустоту первой строки
 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 17:17) [1]

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

---

← →
olookin ©   (2004-12-01 17:20) [2]

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

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

---

← →
novice_man ©   (2004-12-01 17:20) [3]

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) [4]

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) [5]

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

---

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

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

---

← →
novice__man   (2004-12-01 18:40) [7]

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

---

← →
begin...end ©   (2004-12-01 18:43) [8]

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

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

> edit1.text:=inttostr(x)

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

---

← →
novice__man   (2004-12-01 18:43) [9]

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:50) [10]

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

---

← →
TButton ©   (2004-12-01 20:45) [11]

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

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

---

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

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



Память: 0.47 MB
Время: 0.025 c