Hola colegas! Estoy haciendo un sistema para una veterinaria.. Tengo una libreria de enlace simple para Razas, y una libreria de arbol binario para Mascotas.
Uno de los datos que contiene el registro de Mascotas, es la Raza de la misma. Las razas estan previamente cargadas, y en mi formulario de mascotas uso un COMBOBOX para ingresar la raza. Lo que quiero es saber como cargar ese combobox con las razas que ya tengo guardados en el archivo Razas.
Intente hacer esto, pero solo me muestra una sola raza. Tambien intente ponerle la posicion, pero me tira error de codigo
Código Delphi
[-]procedure TMascotas.FormCreate(Sender: TObject);
var
pos: TipoPosicion;
RD: TipoRegRazaDatos;
begin
CrearMascota(MeMascotas);
AbrirMe (MeRaza);
for Pos:= Primero(MeRaza) to Ultimo(MeRaza) do
begin
Capturarme(MeRaza,Pos,RD);
Mascotas.Raza.Items.Text:= RD.Nombre;
end;
CerrarMe(MeRaza);
end;
Desde ya muchas gracias por la ayuda que puedan brindar! Saludos