Buscar por:
Código Procedure TProcRep.ComboBox1Click(Sender: TObject); begin WITH COMBOBOX1 DO IF (TEXT <> '') AND (ITEMS.INDEXOF (TEXT) < 0) THEN ITEMS.ADD (TEXT); end;
Procedure TProcRep.ComboBox1Click(Sender: TObject); begin WITH COMBOBOX1 DO IF (TEXT <> '') AND (ITEMS.INDEXOF (TEXT) < 0) THEN ITEMS.ADD (TEXT); end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009