Duda sobre Edits

[jhonny]

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

[[ArdiIIa]]

jhonny . Yo creo que ahora tenemos respuesta sin pregunta...
Ciertamente ayer se habló del asunto.

[jhonny]

Empezado por ArdiIIa

jhonny . Yo creo que ahora tenemos respuesta sin pregunta...
Ciertamente ayer se habló del asunto.

Parece que si , pero es que no queria que ese codigo se quedara tan solito en mi computador, sabiendo que alguien lo necesitaba

[Kamael]

Lo dicho. Me funciona perfectamente.

[ContraVeneno]

¿no hubiera sido más facil usar un TJvValidateEdit?

Viene en las Jedi y son gratis.

[jhonny]

Empezado por ContraVeneno

¿no hubiera sido más facil usar un TJvValidateEdit?

Viene en las Jedi y son gratis.

Parece que voy a tener que comenzar a conocer las Jedi