Ver Mensaje Individual
  #4  
Antiguo 22-10-2007
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Reputación: 20
cHackAll Va por buen camino
Lo primero que se me ocurre es que estas definiendo en tu vector variables que no existen pues todos esos TEdits deben estar dentro de una clase de formulario... talvez debiese funcionar así:

Código Delphi [-]
const
  ArrayX: Array[1..94] of TEdit = (Form1.edtAX,Form1.edtBX,Form1.edtCX...

pero eso tampoco te funcionaría pues no son constantes, son objetos de valor variable. Tales valores variables son 0 y al ser creados toman un valor que apunta a la dirección de memoria que contiene el objeto, yo aconsejo:

Código Delphi [-]
var ArrayX: array [1..94] of TEdit;
 
procedure TForm1.FormCreate(Sender: TObject);
var Index: Cardinal;
begin
 Index := ComponentCount;
 repeat Dec(Index);
  if Components[Index] is TEdit then
   if Components[Index].Tag <> 0 then
    ArrayX[Components[Index].Tag] := (Components[Index] as TEdit);
 until Index = 0;
end;

0j0: cada objeto será definido en tiempo de diseño con un "Tag <> 0" que definirá su índice en el vector (tambien se podría usar TabOrder)

Saludos
Responder Con Cita