listview에서
특정 row를 클릭하면 특정row에 caption값을 가져서
query를 하여 메뉴에 뿌려줍니다.
procedure TForm.listview1Click(Sender: TObject);
begin
sNumber := trim(listview1.Selected.Caption);
if Length(sNumber) <> 0 then
show_Detail(sNumber);
end;
이렇게 했는데 items.count보다 큰값에 click 하면 error가 납니다.
해결방법 좀....
procedure TForm.listview1Click(Sender: TObject);
begin
if ListView1.Selected <> nil then
begin
sNumber := trim(listview1.Selected.Caption);
if Length(sNumber) <> 0 then
show_Detail(sNumber);
end;
end;
^^ 항상 즐코하세요.
허브 wrote:
> listview에서
> 특정 row를 클릭하면 특정row에 caption값을 가져서
> query를 하여 메뉴에 뿌려줍니다.
>
> procedure TForm.listview1Click(Sender: TObject);
> begin
> sNumber := trim(listview1.Selected.Caption);
> if Length(sNumber) <> 0 then
> show_Detail(sNumber);
> end;
> 이렇게 했는데 items.count보다 큰값에 click 하면 error가 납니다.
> 해결방법 좀....