necesito reducir este codigo. con una funcion.
el sgt codigo agrupa datos para cargarlos en combobox. para muchos combox con caracteristicas similares.
si alguien me puede ayudar
Código Delphi
[-]
procedure TEstadistica.CargarDatosCombox;
begin
CBDpto.Clear;
CBDpto.Items.Add('TODOS');
With DMDatos.IBConsultaSql do Begin
close;
Sql.Clear;
Sql.Add('Select DEPARTAMENTO as Dato From NACIMIENTOS Group By DEPARTAMENTO ');
Open;
If RecordCount <> 0 Then Begin
First;
While not eof do Begin
CBDpto.Items.Add(fieldbyname('Dato').AsString);
Next;
End;
End;
End;
CBDpto.Text :='TODOS' ;
CBMunicipio.Clear;
CBMunicipio.Items.Add('TODOS');
With DMDatos.IBConsultaSql do Begin
close;
Sql.Clear;
Sql.Add('Select MUNICIPIO as Dato From NACIMIENTOS Group By MUNICIPIO ');
Open;
If RecordCount <> 0 Then Begin
First;
While not eof do Begin
CBMunicipio.Items.Add(fieldbyname('Dato').AsString);
Next;
End;
End;
End;
CBMunicipio.Text :='TODOS' ;
CBAreaNacimiento.Clear;
CBAreaNacimiento.Items.Add('TODOS');
With DMDatos.IBConsultaSql do Begin
close;
Sql.Clear;
Sql.Add('Select AREA_NACIMIENTO as Dato From NACIMIENTOS Group By AREA_NACIMIENTO ');
Open;
If RecordCount <> 0 Then Begin
First;
While not eof do Begin
CBAreaNacimiento.Items.Add(fieldbyname('Dato').AsString);
Next;
End;
End;
End;
CBAreaNacimiento.Text :='TODOS' ;
end;