Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   como usar una funcion (https://www.clubdelphi.com/foros/showthread.php?t=57676)

MOCOSO07 24-06-2008 21:15:33

como usar una funcion
 
hola buen dia lo que pasa es que no se como mandar llamar una funcion ejemplo:
tengo mi funcion pero no se como mandarle los parametros para que se ejecute y como usarla despues de que ya tiene parametros

esto es lo que estoy tratando de hacer
Código Delphi [-]
function filtrado(plan : string; area : String):boolean;
begin
frm_DataModule.qry_revyEqui.close;
  frm_DataModule.qry_revyEqui.SQL.Clear;
  frm_DataModule.qry_revyEqui.SQL.Add('SELECT * FROM ALUMNO');
  frm_DataModule.qry_revyEqui.SQL.Add('WHERE ALUMNO.PLAN_ESTUDIOS = '+QuotedStr(plan)+' AND ALUMNO.AREA_ACADEMICA = '+ QuotedStr(area) + '');
  frm_DataModule.qry_revyEqui.Open;
  frm_DataModule.qry_revyEqui.FetchAll;
end;

mi idea es que me jale el valor de mi variable plan y area en el evento onchangue

Código Delphi [-]
if (Sender is TComboBox) then
begin
  plan := TComboBox(sender).Text;
end;

y que el resultado de mi funcion me lo muestre en dbgrid

gracias de antemano espero y que me haya sabido explicar

coso 24-06-2008 21:47:52

hola,

creo que con

Código Delphi [-]
filtrado(plan,area);

te deberia servir.

saludos

MOCOSO07 25-06-2008 15:37:46

gracias!!

problema resuelto coso!!:rolleyes:

MOCOSO07 30-06-2008 19:14:23

Amigos mi funcion ya quedo terminada y funciona solo que estoy usando sender para el envio de parametros a mi funcion y en un combobox si funciona
Código Delphi [-]
if (Sender is TComboBox) then
begin
  grupo := TComboBox(sender).Text;
end;

pero cuando uso un componente que instale(rx) DBLookupComboBox ya no me envia nada lo intente con las siguientes propiedades .text y .keyvalue pero no me manda nada no saben por que?

Código Delphi [-]
if (Sender is TDBLookupCombobox) then
begin
  area := TDBLookupComboBox(sender).keyValue;
end;

estoy usando delphi 5

muchas gracias por su atencion


La franja horaria es GMT +2. Ahora son las 01:34:22.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi