<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
Hola, sólo quería comentar unas cosillas que tal vez te puedan ayudar.<br>
Al realizar la sentencia de adición de items al cualquier TStrings,
como son los items del combobox devuelve el indice que a añadido por lo
que no haría falta el contador y todo su control, es decir que bastaría
con<br>
<pre wrap=""> <b>nCont :=</b> cboempresa.Items.Add(DataModule1.lstempresa.FieldByName('emp_razsoc').AsString);
</pre>
Otra idea, si en vez de usar Items.Add existe un Items.AddObject(
descripcion, objeto ) que resulta más útil para cuando queremos listas
más complejas.<br>
Puede parecer más complejo pero da una mayor flexibilidad, sobretodo de
cara a que posteriormente queramos ampliar los datos a guardar. Por
ejemplo.<br>
<blockquote><small>// Declaración de los datos a guardar<br>
type <br>
TmiObjeto = class<br>
private<br>
FCampo1: String;<br>
FCampo2: String;<br>
public<br>
property Campo1: String read FCampo1 write FCampo1;<br>
property Campo2: String read FCampo2 write FCampo2;<br>
end;<br>
<br>
// Declaracion de variables<br>
var opc: TmiObjeto;<br>
<br>
// Rutina de carga<br>
while Not DataModule1.lstempresa.EOF Do<br>
begin<br>
opc := TmiObjeto.Create;<br>
opc.Campo1 :=
DataModule1.lstempresa.FieldByName('emp_razsoc').AsString;<br>
opc.Campo2 := DataModule1.lstempresa.FieldByName('emp_id').AsString;<br>
cboempresa.Items.AddObject(DataModule1.lstempresa.FieldByName('emp_razsoc').AsString,
opc);<br>
DataModule1.lstempresa.Next;<br>
end;<br>
<br>
// Rutina de recogida de datos<br>
DataModule1.lstcencosto.Params.ParamByName('ID').AsString:=
cboempresa.Items.Objects[cboempresa.ItemIndex].Campo2;<br>
</small></blockquote>
Espero haberme expresado correctamente, se entienda y sobre todo sea de
utilidad.<br>
<br>
P.S.: Los objetos del combobox son liberados al destruir el combobox, a
menos que se cambie una propiedad del mismo a false pero que no me
recuerdo ahora cual es.<br>
<pre wrap="">
</pre>
<blockquote
cite="mid:mailman.394.1245105528.54703.lazarus-es@lists.lazarus.freepascal.org"
type="cite">
<pre wrap="">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
</pre>
</blockquote>
</body>
</html>