delphi - 如何获取 TDbxReader 实例中的列名称

Question

我想使用 TDbxReader 实例制作报告，但找不到获取 aReader.value[index] 列名称的方法。有人可以帮助我吗？

  aCmnd.Text := 'SELECT * FROM Country'; 
  aCmnd.Prepare; 
  aReader := aCmnd.ExecuteQuery; 

  aColCount := aReader.ColumnCount; 
  Writeln( 'Results from Query: ' + aCmnd.Text ); 

  // write column headers, but don´t know column names
  for iColumn:= 0 to aColCount -1 do 
    Write(aReader.Value[iColumn].name + '  '); //would like unexistent name property
                                               //How can I do something like this?     
  writeln;
  while aReader.Next do 
  begin 
    for iColumn:= 0 to aColCount -1 do  
      Writeln( aReader.Value[iColumn].GetAnsiString + '  '); //assume string fields
  end; 

问候，赫克托耳

Answer 1

找到了。使用了areder.dataType[index].name