[Lazarus-es] Load combobox

[Fredy Gonzales]

Amigos,

Estoy trabajando un programa sencillo, pero me he trancado en un problema con el combobox.

Estoy cargando un combobox con data, alli coloco la descripcion y tambien creo un array global al formulario donde guardo el id de la data.

Digamos algo asi

var
  TxtQuery: String;
  nCont: Integer;
begin
  TxtQuery:='Select emp_id,emp_razsoc from empresa';
  DataModule1.lstempresa.SQL.Text:=TxtQuery;
  DataModule1.lstempresa.Open;
  cboempresa.Items.Clear;
  if DataModule1.lstempresa.RecordCount >0 then
     begin
        SetLength(aItems, DataModule1.lstempresa.RecordCount );
        nCont:=1;
        while Not DataModule1.lstempresa.EOF Do
        begin
            cboempresa.Items.Add(DataModule1.lstempresa.FieldByName('emp_razsoc').AsString);
            aItems[nCont]:=DataModule1.lstempresa.FieldByName('emp_id').AsString;  //array creado para guardar el ID de empresa.
            DataModule1.lstempresa.Next;
            nCont:=nCont + 1;
        end;
     end;
  DataModule1.lstempresa.Close;   

Hasta alli todo OK, el punto esta cuando realizo la sinconizacion Combobox + Array desde el evento OnChange del combobox.

if (cboempresa.ItemIndex>0) then
 begin
    DataModule1.lstcencosto.Close;
    DataModule1.lstcencosto.Params.ParamByName('ID').AsString:= aItems[cboempresa.ItemIndex];
    DataModule1.lstcencosto.Open;
    DataModule1.lstcencosto.Refresh;
   // monitor de valores
    stdato.caption:=aItems[cboempresa.ItemIndex] ;
 end;     

Como veran este me refresca otro DataSet con informacion x empresa, pero el combobox no se ubica en la posicion que deberia ser, siempre se salta un registro.Por tanto, el codigo de empresa no siempre es el real.

Es problema de logica o no debi usa el evento OnChange si no otro ?.

No uso el DBCombobox ni el DBLookupCombox  porque no despliegan la lista, asi que estoy usando algo que siempre usaba en VB6.

Saludos.

FG

------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20090615/d4b45b77/attachment-0002.html>