funcion genérica para cargar combos

[CrazySoft]

Hola, una duda, como podria recuperar una cadena, en lugar de un entero

Código Delphi [-]
    combo.items.addObject(fieldByName('nombre').asString,
                             Pointer(fieldByName('id').asString);

recuperar el valor de id

Código Delphi [-]
var x:String;

x:= combo.items.objects[combo.itemindex]);

Gracias

[droguerman]

Empezado por CrazySoft

Hola, una duda, como podria recuperar una cadena, en lugar de un entero

en ese caso se usa otro stringList o tambien un TList, puesto que la propiedad objects es un arreglo de punteros, pero tambien puede funcionar un array de variants donde objects mantendría los indices, me faltaba comentar que el problema en el ejemplo de Byfed es que el pasa el array por valor es por ello que la función que él hace no guarda los valores de la tabla.

[Byfed]

Gracias, Doguerman,

Me ha venido de perlas tu explicación. También agradezco el resto de aportaciones desde luego. Desconocía la propiedad objects y que se lo podía dar este uso. Ahora ya tengo hecha una función "genérica", que pasandole el nombre de la tabla, el campo que quiero almacenar y el campo que quiero mostrar en el combo, me permite cargar un combo. Esto me va a ahorrar mucho trabajo. Gracias de nuevo.

En todo caso, y ya solo por curiosidad, pregunto:

Si tu tienes una variable global en un unit, pongamos un array de enteros y quieres hacer una función que haga alguna cosa con ellos ¿cómo se ha de pasar el parámetro?. Para ser más específicos. Imaginemos que tengo una variable que es un array de enteros [1,2 y 3] y quiero hacer una función que multiplique ese array por dos (evidentemente, y que los datos permanezcan almacenados en dicho array).

miarray: array[0..2] of integer = (1,2,3);

duplicar_array(miarray)

Lo que me pregunto es si después de ejecutar en el código anterior duplicar_array, imprimo los valores del array, van a seguir siendo 1 2 y 3, porque al llamar a la función, se hace una copia local y luego se destruye. ¿Cómo se evita esto?..

Gracias de nuevo y un saludo.

[CrazySoft]

Cuando se tiene que optener un resultado de tipo string y se tiene el combobox ordenado, se debe relacionar el combobox con el StringList para recuperar los datos de lista

Código Delphi [-]
//Cargado de datos al combo y a list
var
   Lista := TStrings;
   Aux:String;
   i:Integer;
begin
    Lista := TStringList.Create;
    i:=0;
    with table1 do
    while not eof do
    begin
    Lista.Add(fieldByName('city').asString);
    combo.items.addObject(fieldByName('company').asString,
                                 Pointer(i));
             inc(i);
             next;
    end;
end;
// recuperacion de los datos
 
aux := Lista[Integer(combo.items.objects[combo.ItemIndex]];

Gracias

[[Lepe]]

para el tema de arrays, mira aqui

Usa High(nombreArray) y Low(nombreArray) para saber los índices superior e inferior respectivamente.

Saludos