如何从多字段的结果集中调用需要的字段的结果

Question

如表Student:
Id  Name  Class  Sex
------------------------------------------------------
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('select Id,Name,Class,Sex');
  Query1.SQL.Add('from Student');
  Query1.SQL.Add('where Id ='+:Edit1.text);
  Query1.Open;
------------------------------------------------------
如果我需要把Name字段的结果集，赋值给一个字符串，该怎么做。

Answer 1

如果NAME字段结果集只有一条记录的话:
var
  s: string;
begin
  s := query1.FieldByName('name').asstring;
end;

Answer 2

如果NAME字段的结果集是一条记录的话:
var
  s: string;
begin
  s := query1.FieldByName('name').asstring;  
end;

Answer 3

//定义一str:string;
str:='';
with query1 do
begin
  first;
  while not eof do
  begin
    str:=str+fieldbyname('name').asstring ;
  end;
end;