No recuerdo quien pregunto algo al respecto, de ¿Como guardar en unas variables Extended, los valores que tenian en unos Edits (Eran como 20) de un Form, sin necesidad de asignarle uno por uno?:
Recuerdo que sugerimos manejar las variables como un Array de Extended, y yo presente una solución que al final quedo asi, con el argumento que explicare al final de este post:
Código Delphi
[-]
var
a :Array of Extended;
x :Integer;
begin
SetLength(a, 0);
for x := 0 to ComponentCount - 1 do
if Components[x] is TEdit then
begin
SetLength(a, Length(a)+1);
a[High(a)] := StrToFloatDef(TEdit(Components[x]).Text, -1);
end;
end;
Dije que esta función tiene como ventaja, el hecho de que no hay que tener en cuenta el nombre de los Edit, ni tampoco su cantidad, de manera que si alguien coloca un nuevo Edit (Ya sea en Diseño o ejecución) esta función lo tendra en cuenta, sin necesidad de modificar el Array(Manualmente), porque de hecho, para eso le llaman dinamico
.
Espero que esto sirva
