Contar cuantos edits hay
 

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

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;

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

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

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...