[Delphi]ListView i Omijanie błędu

[DoNcEr]

Witam czy ktoś może mi pomóc z tym: Mam 22 itemy w listViewie zrobiłem tam kontakty gg i gdy klikne poza itemy (jak na obrazku) to wywala mi błąd.

Wystarczy taki kod zeby był error:

 

procedure TForm1.ListView1Click(Sender: TObject);
var
  s:string;
begin
  s:= ListView1.Selected.Caption;
  GroupBox3.Caption:='Pisanie Wiadomosci do: '+s;
end;

 

 

Myślę, ze można było spróbować to tak:

Tylko nie wiem jak zapisać ten warunek ze jeśli itemindex jest w granicy od 0 do 22 (nie większy i nie mniejszy) to spełnia warunek

 

var
  s:string;
begin
if ListView1.ItemIndex=0 or 1 or 2 or 3 or 4 or 5 ...tak do 22  then begin //;]
  s:= ListView1.Selected.Caption;
  GroupBox3.Caption:='Pisanie Wiadomosci do: '+s;
end;
end;

[gnysek]

to nie mozesz sprawdzić czy itemIndex < itemsCount, ew. try catch ?

[DoNcEr]

to nie mozesz sprawdzić czy itemIndex < itemsCount, ew. try catch ?

no dzięki za pomysł działa dobrze taki warunek

 if ListView1.ItemIndex > -1 then try

[Moe]

var
  s:string;
begin
if ListView1.ItemIndex=[b]0 or 1 or 2 or 3 or 4 or 5 ...tak do 22[/b]  then begin
  s:= ListView1.Selected.Caption;
  GroupBox3.Caption:='Pisanie Wiadomosci do: '+s;
end;
end;

 

Możesz to zastąpić:

 

 if ListView1.ItemIndex <=22 then

( Gdy mniejsze od 22 )

 

To jako ciekawostka :thumbsup: