Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   cargar un vector con una oracion (https://www.clubdelphi.com/foros/showthread.php?t=73663)

luisito2011 08-05-2011 16:11:44

cargar un vector con una oracion
 
ola... como les dije.. ya me toca vectores..:D
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! :D

LoPiTaL 08-05-2011 18:43:27

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


La franja horaria es GMT +2. Ahora son las 03:19:33.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi