Как получить имена столбцов в экземпляре 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

Нашел это. Используется areader.dataType [index] .name