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
end else begin
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,
]) then begin
end else begin
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.