adoquery查询结果如何赋给一个变量(delphi和c++ builder)

我用的是adoquery进行数据库查询，但是我不想把查询的结果显示出来，只是想赋给一个变量，请问我这个变量该怎样去设置呢 ？

procedure TForm1.Button1Click(Sender: TObject);

var

i: String;

begin

Adoquery1.Close;

Adoquery1.SQL.Clear;

AdoQuery1.SQL.Add('select name from student where id=02');

AdoQuery1.Open;

i:= trim(AdoQuery1.FieldByName('name').AsString);

end;

如果你查询出的是多条数据，就定义个数组。

while not(ADOQuery1.EOF) do

a[i]:=trim(AdoQuery1.FieldByName('name').AsString);

i:= i+1;

Query1.Next;

c++ builder:

<code>ADOQuery1-&gt;Close();</code>

<code>        </code><code>AnsiString name[10];</code>

<code>        </code><code>ADOQuery1-&gt;Open();</code>

<code>        </code><code>int</code> <code>i=0;</code>

<code>        </code><code>while</code><code>(!ADOQuery1-&gt;Eof)</code>

<code>        </code><code>{</code>

<code>        </code><code>name[i]=ADOQuery1-&gt;FieldByName(</code><code>"NAME"</code><code>)-&gt;AsString;</code>

<code>        </code><code>i++;</code>

<code>        </code><code>ADOQuery1-&gt;Next();</code>

<code>        </code><code>}</code>

<code>        </code><code>Edit1-&gt;Text=name[5];</code>