取值

begin
    ListView1.ViewStyle:=vsSmallIcon;
    pSql:='select  * FROM XMCX WHERE W_XB=''男''';
    ADOQ_czxm.close;
    ADOQ_czxm.sql.clear;
    ADOQ_czxm.sql.text:=pSQL;
    ADOQ_czxm.open;
    for i:=0 to ADOQ_czxm.RecordCount-1 do
    begin
        pName:=ADOQ_czxm.FieldByName('w_name').AsString;
        pTel:=ADOQ_czxm.FieldByName('w_tel').AsString;

        listItem:=ListView1.Items.Add;
        listItem.Caption:=pName+'   '+pTel;
        listItem.SubItems.Add(pTel);
        ADOQ_czxm.Next;
    end;