Ver Mensaje Individual
  #3  
Antiguo 25-05-2007
Kenobi Kenobi is offline
Miembro
 
Registrado: mar 2007
Posts: 191
Reputación: 18
Kenobi Va por buen camino
algo asi use en su momento...

hola, al menos en teoria lo que debes hacer es antes de introducir el elemento chequeando que no este y si es asi introducirlo....

yo haria una function llamada buscar en combo

Código SQL [-]
function TFrmCancelRetiroLotes.Buscar_en_combo(Elemento: string): boolean;
var
i:integer;
encontrado:boolean;
begin
encontrado:=false;
 for i:=0 to combo.Items.Count-1 do
 begin
   if Elemento = combo.Items.Item[i].Caption then
   begin
       encontrado:=true;
       break;
   end;
 end;

 Result:=encontrado;

end;

luego antes de introducir el elemento

haria algo asi

Código SQL [-]
Encontrado:=buscar_en_Combo(TEdit.text);
if not Encontrado then 
begin
//aca el codigo para introducir el elemento eso ya lo tienes ......
end;


Espero que te sirva....

Saludos....

Última edición por Kenobi fecha: 25-05-2007 a las 18:10:01.
Responder Con Cita