Skocz do zawartości
DoNcEr

[Delphi]ListView i Omijanie błędu

Rekomendowane odpowiedzi

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;

 

180bcb96196f8d192e493db9aa8748cd2879.jpg

 

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;

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

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

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach
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

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

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:

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Tylko zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się tutaj.

Zaloguj się tutaj

  • Przeglądający   0 użytkowników

    Brak zarejestrowanych użytkowników, przeglądających tę stronę.

×