1:
2:
3:
4:
5:
6:
7:

  TNews = class(TObject)
  private
    FID: Integer;
    procedure SetID(const Value: Integer);
  public
    property ID: Integer read FID write SetID;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure TFM_News.LoadNewsList;
var
  oDataSet: TZQuery;
  oItem: TListItem;
  FNews : TNews;
begin
  oDataSet := nil;
  try
    oDataSet := TZQuery.Create(nil);
    oDataSet.Connection := HPControl.MySQLConnection;
    oDataSet.SQL.Text := 'SELECT * FROM news INNER JOIN user ON news.nautor = user.uid ORDER BY ntimestamp DESC';
    oDataSet.Open;
    while not oDataSet.Eof do
    begin
      FNews := TNews.Create;
      FNews.ID := oDataSet.FieldByName('nid').AsInteger;
      oItem := lvNews.Items.Add;
      oItem.Data := FNews;
      oItem.Caption := oDataSet.FieldByName('ntitel').AsString;
      oItem.SubItems.Add(oDataSet.FieldByName('uname').AsString);
      oItem.SubItems.Add(oDataSet.FieldByName('ntimestamp').AsString);
      oDataSet.Next;
    end;
    oDataSet.Close;
  finally
    FreeAndNil(oDataSet);
  end;
end;					

1:
2:
3:
4:
5:

procedure TFM_News.lvNewsSelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  showmessage(IntToStr(TNews(lvNews.Selected.Data).ID));
end;					

1:
2:
3:
4:
5:
6:

procedure TFM_News.lvNewsSelectItem(Sender: TObject; Item: TListItem;  
  Selected: Boolean);  
begin  
  if lvNews.Selected<>Nil then 
    showmessage(IntToStr(TNews(lvNews.Selected.Data).ID));  
end;