Условие If Then для отсутствующей строки ЛистБокса

[Alex_09]

Не могу понять как написать условие IF строка с индексом 0 в листбоксе отсутствует THen ShowMessage('mytext') подскажыте кто нибудь.. новичок все таки..

[Viteef]

if Length(ListBox1.Items.Strings[0])>0 then

[SibBear]

Строка с индексом 0 не может отсутствовать, это значит, что List пустой

procedure TForm1.Button1Click(Sender: TObject);
begin
 if ListBox1.Count=0 then ShowMessage('ListBox Пустой')
 else
 begin
 Label1.Caption:=inttostr(ListBox1.Count);
 Label2.Caption:=ListBox1.Items[0];
 end;
end;

[XuTpbIu]

SibBear
Специально для тебя.
Alex_09
if ListBox1.Items[0] = '' then {blablabla}

[Пепел Феникса]

SibBear, мой тебе совет.
пойми разницу между пустой строкой и отсутствующей строкой

[Stilet]

Ну вообще-то частично не согласен ни с одним из постов. Чтоб проверить на "пустость" ЛистБокса нужно просто прописать:

if ListBox1.Items.Text='' then Пусто

Вот протестируйте такое:

procedure TForm1.FormCreate(Sender: TObject);
begin
if ListBox1.Items[0]='' then caption:='';
end;

Будет ругаться?

[XuTpbIu]

Буду) я написал по сути то же самое)) разве что коммент на заменить на что-то более осмысленное

[Stilet]

XuTpbIu

Дружище, ты похоже мою мыслю не уловил. Я к тому что твой код заругается ошибкой если с ЛистБоксом не работали, не присваивли его Итемсам ничего и никак, так что надежнее и аккуратнее проверять именно свойство Text.

впрочем try...except еще не отменили

[XuTpbIu]

А всё.... мысль уловил... Виноват... каюсь...