problema de posicionamiento en tabla

[Casimiro Noteví]

Quitas el componente tabla y pones un componente query. En su sentencia select pones lo que te he escrito antes, y aprovechando tu código, quedaría así:

Código Delphi [-]
query.First;
while not (query.EOF) do begin
     lista.Items.Add(query.FieldByName(codig).AsString);
     query.Next;
end;

Empezado por viaraSOFT.com

Gracias Casimiro! yo estoy recorriendo la tabla con un ciclo porque no estoy utlizando un dblist si no un objeto lista corriente. El código es sencillo:
tabla.First;
while not (tabla.EOF) do begin
lista.Items.Add(tabla.FieldByName(codig).AsString);
tabla.Next;
end;

[[Lepe]]

Para completar un poco...En Bases de datos Sqls, Al hacer un "tabla.insert", no se guarda al final de tabla. Esto se hace por eficiencia, no tiene sentido irse al final de la tabla para insertar y después volver a donde se estaba.
Se busca un hueco de un registro eliminado (por ejemplo) y se inserta allí mismo.


En Paradox y demás BBDD de escritorio, el "tabla.Append" sí lo inserta al final de la tabla. El "tabla.insert" lo hace donde pueda.

Te recomiendo usar un tZQuery de esos con el sql : "select codig from tabla order by codig" y que hagas una rutina que usarás más de lo que crees, sobre todo si la aplicación es multiusuario.

Código Delphi [-]
procedure CampoALista (campo, tabla : string; Lista : TStrings);
begin 
   {crear el zquery, asignar el transaction y base de datos}
   zqry.sql.text := Format ('select %s from %s order by %s', [campo, tabla, campo]);
   zqry.Open() ; // ya está en el primer registro.
   while not zqry.eof() do begin 
      lista.Add(zqry.FieldbyName(campo). asstring));
      zqry.next();
   end;
   zqry.Free();
end;

Ahora la puedes llamar:

Código Delphi [-]
Form1.combobox1.items.Clear;
CampoALista( 'codig', 'nombretabla', Form1.combobox1.items )

Saludos

[Casimiro Noteví]

Empezado por Lepe

Saludos

> Doctor, doctor, todo el mundo me ignora.
>> ¡Que pase el siguiente!

[viaraSOFT.com]

Muchas gracias amigos ya logré resolver el problema mediante la propiedad "sortedfields" del TZTable, le establecí el campo codigo y autompáticamente me seteó la propiedad "IndexFieldNames" = codigo Asc y listo ahora si me despliega el TList debidamente ordenado, gracias por la ayuda! Adjunto unas imágenes para ilustrar el problema y la solución usando esta propiedad por si a alguno algún se topa con el mismo inconveniente.
Tabla.jpg Antes.jpg Despues.jpg