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]

← →
novice__man (2004-12-01 17:21) [5]

← →
Змей © (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]

← →
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 <> ""

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

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

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