Skocz do zawartości

[Delphi]ListView i Omijanie błędu


DoNcEr

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;

Odnośnik do komentarza
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:

Odnośnik do komentarza
Udostępnij na innych stronach

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

Jedynie 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ę poniżej.

Zaloguj się
  • Ostatnio przeglądający   0 użytkowników

    • Brak zarejestrowanych użytkowników przeglądających tę stronę.
×
×
  • Dodaj nową pozycję...