Gracias Neftali, quedó así, y aprendí a usar los Tags.
Hay algo como los Tags para el código en el programa?
(please no me verdugueen)
Código Delphi
[-]procedure TEdiniFrm.CargarSecciones;
var
i:Integer;
begin
RxMDSecciones.Active:=True;
RxMDSecciones.EmptyTable;
with RxMDCompleto do begin
first;
while not eof do begin
if RxMDCompleto.FieldByName('Tipo').AsInteger=1 then begin
RxMDSecciones.Append;
for i := 0 to RxMDCompleto.FieldCount - 1 do begin
RxMDSecciones.Fields[i].Value:= RxMDCompleto.Fields[i].Value;
end;
RxMDSecciones.Post;
end;
next;
end; end; RxMDSecciones.SortOnFields('Orden_Seccion');
end;