Optimizar el sgte codigo

[[cHackAll]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const Values: array[0..2] of string = ('Soc_Rut', 'Soc_Nombre', 'Soc_Apellido');
begin
 Datos.AQ_Select.Close;
 Datos.AQ_Select.SQL.Clear;
 Datos.AQ_Select.SQL.Add('select * from Socio where ' + Values[CB_Buscar.ItemIndex] + ' like ''%' + vBus.Text + '%''');
 Datos.AQ_Select.Open;
end;

[[BlueSteel]]

Gracias a todos

mañana cuando llegue a mi oficina.. probare lo que me entregarón....

[[BlueSteel]]

Hola cHackAllJusto andaba buscando algo parecido.. me funciono perfecto...No he probado los otros códigos.. pero veo que estan weno... si tengo tiempo los probaré..

[[Luis M.]]

Empezado por cHackAll

Código Delphi [-]Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
const Values: array[0..2] of string = ('Soc_Rut', 'Soc_Nombre', 'Soc_Apellido');
begin Datos.AQ_Select.Close; Datos.AQ_Select.SQL.Clear; Datos.AQ_Select.SQL.Add('select * from Socio where ' + Values[CB_Buscar.ItemIndex] + ' like ''%' + vBus.Text + '%''');
Datos.AQ_Select.Open;
end;

Muy bueno...
Nunca se me había ocurrido (soy aprendiz de novato).
Este me lo guardo.
Un saludo.