NOTA: Si colocas código delphi puedes utilizar los TAG´s de Delphi (
Delphi y
/Delphi entre corchetes).
Código Delphi
[-]
procedure TFrm_Consulta_Exp.NumeroChange(Sender: TObject);
const
STRSQL = 'select * from Maestro_Expediente';
STRORDER = ' ORDER BY Numero_Expediente';
begin
Qry_busca_Expediente.Close;
if (Numero.Text = '') then begin
Qry_busca_Expediente.SQL.Text := STRSQL;
end
else begin
Qry_busca_Expediente.SQL.Text := STRSQL +
' WHERE Numero_Expediente = ' + StrToInt(Numero.Text) +
STRORDER;
end;
qry_busca_Expediente.Open;
end;