Código Delphi [-] query1.active:=false; query1.active:=true; while not query1.eof do begin label1.caption:=label1.caption+' '+query1.fields[0].AsString; end;
query1.active:=false; query1.active:=true; while not query1.eof do begin label1.caption:=label1.caption+' '+query1.fields[0].AsString; end;