disculpa caro pero no te entiendo nada jeje disculpa mi ignorancia pero cuando coloco el locaseinsensitive no me corre el programa
este es el codigo que tengo en mi aplicacion
Código Delphi
[-]
procedure TForm17.ComboBox1Change(Sender: TObject);
begin
if form1.Table7.Locate('cod_prov',ComboBox1.Text,[locaseinsensitive]) then
begin
edit1.Text:=form1.Table7.FieldValues['nom_prov'];
edit2.Text:=form1.Table7.FieldValues['observacion'];
edit4.Text:=form1.Table7.FieldValues['hor_pla'];
edit3.Text:=form1.Table7.FieldValues['gro_pla'];
SpinEdit1.MaxValue:=form1.Table7.FieldValues['can1'];
edit5.Text:=form1.Table7.FieldValues['can2'];
BitBtn1.Enabled:=true;
BitBtn7.Enabled:=true;
BitBtn8.Enabled:=true;
end
else
begin
Application.MessageBox('Erro Grave','');
exit;
end;
end;
gracias adelantadas