Silver
30-08-2003, 20:00:33
Tengo un problema que me esta afectando mucho, se trata de que necesito hacer una clase que almacene datos y cuando se los pida los devuelva. El problema esta en que quiero hacer las clases en tipo de ejecución y eliminarlas pero para ello quiero utilizar palabras.
type
THombre = class
Edad: Integer;
Peso: String;
end;
var
Juan, Antonio: THombre; //Se añaden más variables en tiempo de ejecución ¿cómo lo hago?
Ejem:
Juan := THombre.Create;
Juan.Edad := 29;
Juan.Peso := '70 kg';
Antonio := THombre.Create;
Antonio.Edad := 30;
Antonio.Peso := '88 kg';
>> En un boton <<
DeQuien := Juan; // DeQuien es equivalente a Juan ¿como hago esto?
Label1.Caption := IntToStr(DeQuien.Edad); //Obtengo la edad de Juan
Label2.Caption := DeQuien.Peso; // Obtengo el peso de Juan
// Para obtener el de Antonio utilizo la variable Antonio (pero resulta que tengo que especificarla y en tiempo de ejecucion aparecen nuevos nombres
Pues bien para esto tengo que utilizar variables y yo quiero que las variables se creen en tiempo de ejecución. ¿Cómo las puedo crear para hacer esto?
Saludos, y gracias.;)
type
THombre = class
Edad: Integer;
Peso: String;
end;
var
Juan, Antonio: THombre; //Se añaden más variables en tiempo de ejecución ¿cómo lo hago?
Ejem:
Juan := THombre.Create;
Juan.Edad := 29;
Juan.Peso := '70 kg';
Antonio := THombre.Create;
Antonio.Edad := 30;
Antonio.Peso := '88 kg';
>> En un boton <<
DeQuien := Juan; // DeQuien es equivalente a Juan ¿como hago esto?
Label1.Caption := IntToStr(DeQuien.Edad); //Obtengo la edad de Juan
Label2.Caption := DeQuien.Peso; // Obtengo el peso de Juan
// Para obtener el de Antonio utilizo la variable Antonio (pero resulta que tengo que especificarla y en tiempo de ejecucion aparecen nuevos nombres
Pues bien para esto tengo que utilizar variables y yo quiero que las variables se creen en tiempo de ejecución. ¿Cómo las puedo crear para hacer esto?
Saludos, y gracias.;)