请问关于数据的显示操作.

Question

procedure TForm1.Button1Click(Sender: TObject);
var
    i:integer;
begin
   //listbox1.Items:=table1.FieldList; //获取所有字段列表
   table1.First;
   while not table1.eof do
   begin
     listbox1.items.Add(table1.fieldbyname('last_name').asstring);
     table1.Next;
   end;
end;
if button=mbMiddle then//中键

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: integer;
  Str: string;
begin
ADOTable1.First;
for i := 0 to ADOTable1.RecordCount -1 do
  begin
    Str := '';
    for j := 0 to ADOTable1.FieldCount -1 do
      begin
        Str := Str + '   ' + ADOTable1.Fields.Fields[j].AsString;      end;
    ADOTable1.Next;
    ListBox1.Items.Append(Str);
  end;
end;
另可以自己控制空格的数量以使数据字段对齐。

Answer 2

这样：
procedure TForm1.Button1Click(Sender: TObject);
var
   i: integer;
begin
   With Adoquery1 do
   begin
     Close;
     SQL.Clear;
     SQL.Text:=' select * from TableName;
     Open;
     while not eof do
     begin
       for i:=0 to FieldCount-1 do
       begin
         if (Fields[i].AsString<>null) and (Fields[i].AsString<>'') then
         Listbox1.Items.Add(Fields[i].AsString);
       end;
       next;
     end;
   end;
end;