Contar cuantos edits hay

[lbidi]

Hola, amigos.
Necesito crear una consulta sql sobre varios campos edits, ingresados por el usuario, pero no todos o ninguno pueden tener valor.
O sea, necesito cuando edits con valor hay, para asi agregar el "and" en la consulta sql. Me explico??

Gracias

[dec]

Hola,

Más que contarlos, pareciera que lo que necesitas es saber si un determinado "Edit" tiene algún valor o no. Vamos, eso me parece así, a bote pronto. Si quieres puedes buscar información en los foros sobre el método "CountrolCount()" conque cuentan los componentes (que descienden de "TWinControl").

En todo caso algo parecido a esto podría llevarse a cabo:

Código Delphi [-]
function TotalControls(container: TWinControl;
 classType: TClass) : integer;
var
  i: integer;
begin
  result := 0;
  for i := 0 to container.ControlCount-1 do begin
    if (container.Controls[i] is classType) then
      Inc(result);
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  Caption := IntToStr( TotalControls(Self, TEdit) );
end;

[lbidi]

Gracias, me sirvio mucho ese for. No lo conocia.
Ahora como hago para preguntar dentro del for, si el tedit tiene valor?
o si su propiedad "text" no esta vacia??

Gracias otra vez

[[Bicho]]

Hola,

ahora mismo no tengo Delphi a mano, pero creo recordar que es simplemente así:

Código Delphi [-]
function TotalControls(container: TWinControl;
 classType: TClass) : integer;
var
  i: integer;
begin
  result := 0;
  for i := 0 to container.ControlCount-1 do begin
    if (container.Controls[i] is classType) then begin
      Inc(result);
     
      if (container.Controls[i] is classType).Text = 'Hola' then ...
  
    end;
  end;
end;

Si voy mal, por favor que me corrigan.

Saludos

[[maeyanes]]

Para preguntar si un TEdit no está vació basta con:

Código Delphi [-]
if Edit1.Text <> '' then

Ya con el ejemplo de Dec y lo que agregó Bicho debes poder lograr lo que buscas...


Saludos...