Código Delphi [-] DM.Q_loc.SQL.Clear; DM.Q_loc.SQL.Add('select DISTINCT LOCALIDAD from LOCALIDADES'); DM.Q_loc.Open; while not DM.Q_loc.Eof do begin loc_cons_inst.Items.Add(DM.Q_loc.FieldByName('LOCALIDAD').AsString); DM.Q_loc.Next; end;
DM.Q_loc.SQL.Clear; DM.Q_loc.SQL.Add('select DISTINCT LOCALIDAD from LOCALIDADES'); DM.Q_loc.Open; while not DM.Q_loc.Eof do begin loc_cons_inst.Items.Add(DM.Q_loc.FieldByName('LOCALIDAD').AsString); DM.Q_loc.Next; end;