如何获取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