ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add ( 'select * from Table 1'); ADOQuery1.Open; adoquery1.First; while not adoquery1.Eof do begin szbuf1: = ADOQuery1.fieldbyname ( 'name' ) .value; // szbuf1: = szbuf1 inttostr (AdoQuery1.fieldbyname); //szbuf1: =szbuff1 adoquery1.fieldbyName ('Gender') .value; szbuf2: = SZBUF2 SZBUF1 Adoquery1.next; end; memo1.text: = szbuf2;
