pues amos a ver:
Código Delphi [-]
var suma :integer i :integer ctr :TComponent;
begin
i:=1;
try
while i < 21 do
begin
ctr := FindComponent('A'+IntTostr(i)); if ctr = nil then break;
if Trim(Tedit(ctr).Text) <> EmptyStr then suma := suma + strtoint(TEdit(ctr).Text)
inc(i);
end;
ShowMessage('Suma total: '+inttostr(suma));
except
raise Exception.Create('Una Caja de texto no tiene un número válido');
end;
Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
|