MessageDlg Con varios DBEdits

[[enecumene]]

gracias egostar igual me funciona, de nuevo te lo agradezco.

Saludos..

[dec]

Hola,

A riesgo de ser "pedante" o de no aportar nada en absoluto (cualquiera de estas cosas pueden ser) prepararía una función "EmptyTextProperty" tal que esta:

Código Delphi [-]
function EmptyTextProperty(controls:
 array of TWinControl): boolean;
var
  i: integer;
  buffer: array [0..MAX_PATH] of char;
begin
  result := false;
  for i := Low(controls) to High(controls) do begin
    GetWindowText(controls[i].Handle,buffer,Length(buffer));
    if (Trim(buffer) = EmptyStr) then begin
      result := false;
      break;
    end
    else
      result := true;
  end;
end;

De modo que podrías usarla tal que así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if EmptyTextProperty([ then
    DBEdit7,
    DBEdit14,
    DBEdit15,
    DBEdit13,
    DBComboBox2,
    DBLookUpComboBox5,
    DBLookUpComboBox6,
    DBLookUpComboBox7,
    DBLookUpComboBox8,
    DBLookUpComboBox1
  ]) then begin
    // Ningún control tiene su propiedad "Text" vacía
  end else begin
    // Algún control tiene su propiedad "Text" vacía
  end;
end;

Aunque para mi gusto esos controles deberían tener un nombre descriptivo, un identificador que los identificase. De ese modo creo que las cosas quedarían bastante más claras. A modo de ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if EmptyTextProperty([ then
    dbcbPais,
    dbedNombre,
    dbedCiudad,
    dbedApellidos,
    dbcbProvincia,

    { Resto de controles }

  ]) then begin
    // Ningún control tiene su propiedad "Text" vacía
  end else begin
    // Algún control tiene su propiedad "Text" vacía
  end;
end;

En fin. No sé si te valdrá de algo o te darán ganas de mandarme allí donde cristo dio las tres voces, pero, bueno, ahí queda.

[[egostar]]

Empezado por dec

En fin. No sé si te valdrá de algo o te darán ganas de mandarme allí donde cristo dio las tres voces, pero, bueno, ahí queda.

Vamos amigo David, que eso que pones esta genial, a veces uno solo contesta con la respuesta inmediata, pero viendo lo que posteas, no me queda mas que decir, excelente....

Salud OS

[dec]

Hola,

Gracias egostar. Repasando el asunto, parece que no queda muy claro que se llame la función "EmptyTextProperty" y retorne "false" si algún control tiene su propiedad "Text" vacía... pareciera que debería ser al revés, es decir:

Código Delphi [-]
function EmptyTextProperty(controls:
 array of TWinControl): boolean;
var
  i: integer;
  buffer: array [0..MAX_PATH] of char;
begin
  result := true;
  for i := Low(controls) to High(controls) do begin
    GetWindowText(controls[i].Handle,buffer,Length(buffer));
    if (Trim(buffer) = EmptyStr) then begin
      result := true;
      break;
    end
    else
      result := false;
  end;
end;

De este modo ahora se "lee" mejor:

Código Delphi [-]
if EmptyTextProperty([Control1,Control2]) then
  // Alguna propiedad Text de los controles está vacía
else
  // Ninguna propiedad Text de los controles está vacía

Creo que así se lee mejor y más claro. ¿Verdad?

[[egostar]]

Por supuesto, está mejor, por cierto, me has dado una buena idea con ese código,

Salud OS.

[[enecumene]]

Gracias Dec Excelente tambien me sirve. gracias a los dos de nuevo..