fieldbyname

ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select * from 表1'); ADOQuery1.Open; adoquery1.First; while not adoquery1.Eof do begin szbuf1:=ADOQuery1.fieldbyname('名字').value; //szbuf1:=szbuf1+inttostr(adoquery1.fieldbyname('学号').value); //szbuf1:=szbuf1+adoquery1.fieldbyname('性别').value; szbuf2:=szbuf2+szbuf1; adoquery1.Next; end; memo1.text:=szbuf2;