cargar un vector con una oracion

[luisito2011]

ola... como les dije.. ya me toca vectores..
vectores y lo abia llevado y para mi era re facil.. por que estaba en form ..
pero.. en esta materia.. bueno.. eso no inporta..

(este es el ejercicio.. cargar un vector de tal forma que cada casilla tenga
una oracion).. no inporta si me ayudan a resolver por
que ya lo hice en form. pero en console
es distinto..por eso de la unit

//Como puedo hacer para que mi Unit de mi vector cargue letras y numeros..//
//tendria que poner otro array de tipo string? //
//que cambios tendria.. mi unit ?//
//O seria mejor hacer otro array en la consola?//

esta es mi Unit

Código Delphi [-]
 
unit caja;
interface
CONST MAX=50;
type
cvector = class
  v : array [1..max]of integer;
  N:integer;
  constructor crear;
  procedure dimencionar(dim:integer);
  procedure poner(posi,que:integer);
  function elemento(posi:integer):integer;
  function dimencion :integer;
  procedure cargarvector;
  procedure mostrarvector;
end;
implementation
constructor cvector.crear;
begin
  n:=0;
end;
procedure cvector.dimencionar(dim:integer);
begin
  n:=dim;
end;
procedure cvector.poner(posi,que:integer);
begin
  V[posi]:=que;
end;
function cvector.elemento(posi: Integer):integer;
begin
  elemento:=v[posi];
end;
function cvector.dimencion:integer;
begin
  dimencion:=n;
end;
procedure cvector.cargarvector;
var i,num:integer;
begin
  readln(num); dimencionar(num);
  for i := 1 to dimencion do
    begin
      readln(num); poner(i,num);
    end;
end;
procedure cvector.mostrarvector;
var i:integer;
begin
  for I := 1 to dimencion do
    write(elemento(i):5);
end;
end.

saludos!

[LoPiTaL]

Hola. Tal vez te sería sencillo sustituir

Código Delphi [-]
v : array [1..max]of integer;

por

v : array [1..max]of TComplexClass;

y definir TComplexClass como:

TComplexClass=class
  FInt: integer;
  FStr: string;
  FQueSoy: integer;
end

y en función de FQueSoy, sabes qué valor leer, si FInt o FStr. Recuerda que esta vez tendrías que crear los elementos del vector v, ya que son clases y no sencillamente números.

Si quieres ya algo más complejo, pero sin utilizar clases ni cosas así, mírate el tipo Variant, que permite almacenar cualquier cosa, ints, strings, etc...

Un saludo,
LoPiTaL