Duda sobre Edits

[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

[ContraVeneno]

Pues será mi mania de controlar lo más que se pueda con los controles, para evitar lo más que se pueda el tener que escribir el código.

Este componente, tiene una propiedad llamada "DisplayFormat", en donde puedes seleccionar una de 16 opciones, no las recuerdo todas, pero al seleccionar una, te ajusta automáticamente el control para que solo permita ese tipo de opción. Float, Currency (igual que el float pero le agrega el símbolo de moneda al inicio) hexadecimal, decimal, alpha, alphanumeric, boolean y mucha sotras.

Y lo mejor, es que este control te permite seleccionar el tipo de dato por código (Control.AsFloat, AsInteger, AsBoolean, AsCurrency) para que no tengas la necesidad de hacer conversiones por código.

[jhonny]

Ahhh, bueno, segun lo que te entiendo es que esos controles te permiten manejar los tipos de datos que alli se trabajen tal y cual como un campo de un DataSet...

Pero lo que necesitamos es guadar en un arreglo, los datos de 20 Edit en Form sin necesidad de asignar, uno por uno.

Mejor dicho, según lo que te entendi, de todas maneras abria que hacer codigo y quedaria algo asi:

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 TJvValidateEdit then
    begin
      SetLength(a, Length(a)+1);
      a[High(a)] := TJvValidateEdit(Components[x]).AsFloat;
    end;
end;

La unica diferencia radicaria en que ya no tengo que hacer la conversión con la función StrToFloatDef, si no que aprovecho la propiedad del TJvValidateEdit para realizar el ejercicio.

[ContraVeneno]

Yo entendí que quería convertir de String a Float pero sin tener que usar la función strtofloat en cada uno.