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>