Ayudaaa Pilas estaticas

[[Lepe]]

Lo que Delphius te dijo es:

Código Delphi [-]
 unit Pilas;
   interface
    const max=10;
    type
     tdato=char;
    type
     tpila=class
       public
       // variables públicas
       cima:0..max;
       elem:array[1..max]of tdato;
       // procedimientos y funciones
       function vacia:boolean;
       function llena:boolean;
    Constructor Create;
    Destructor Destroy;
       procedure poner (var ele:tdato);
       procedure sacar (var ele:tdato);
     end;
 implementation
  function tpila.vacia:boolean;
   begin
    vacia:=(cima=0);
   end;
  function tpila.Llena:boolean;
   begin
     llena:=(cima=max);
   end;
  Constructor tpila.Create;
   begin
       inherited; // herencia amigo.
    cima:=0;
   end;
  Destructor Tpila.Destroy;
  begin
     // liberar lo que sea
     inherited;
  end;
  
  procedure tpila.poner(var ele:tdato);
   begin
    cima:=cima+1;
    elem[cima]:=ele;
   end;
  procedure tpila.sacar(var ele:tdato);
   var
     i:integer;
   begin
     for i:=1 to cima-1 do
       elem[i]:=elem[i+1];
     cima:=cima-1
   end;
  end.

Y la forma de usarlo:

Código Delphi [-]
 procedure comienzo;
  var
   pila:tpila;
   i:integer;
   palabra:string;
 begin
   i:=0;
   palabra:=form1.Edit1.Text;
   pila := Tpila.create; // aqui estaba el fallito
   while (not pila.llena) and (form1.Edit1.Text[i+1]<>'') do
    begin
      i:=i+1;
      pila.poner(palabra[i]);
    end;
 end;

Eso sin ver los fallos internos que pueda tener la pila, que no lo he mirado

Saludos

[[Delphius]]

Empezado por Lepe

Lo que Delphius te dijo es

Si y no... lo dije "indirectamente", pensaba que se daba a entender que debía llamar a Create() antes usar el objeto instanciado.

Si lo hubiera explicado mejor, con mayores detalles... tal vez.... alekandro ya lo hubiera tenido solucionado. Daba por entendido con mi explicación cómo debía proceder.
No quería poner tanto código... pues... sería como darlo de "regalo", y yo (no es que esté de malas) creo que se debe entender bien algunas ideas iniciales como para la otra persona pueda sacarlo. Algo como "yo te tiro la pelota... tu juegas".

[[Lepe]]

Empezado por Delphius

y yo (no es que esté de malas)

¿seguro?

El código no es lo importante, lo importante es por qué está escrito así, por qué inherited se pone antes o despues, ahí es donde ... una vez visto el código, hay que estudiarlo, y eso es tarea del amigo alekandro

Saludos

[alekandro]

Gracias muchachos , de aqui en adelante voy a intentar continuar solo, Delphius no te preocupes que fue tal como vos querias .

Lo que me dio Lepe fue un empujoncito, aun me faltan muchas cosas por resolver.

Lo bueno fue que me dieron una mano, estaba trabado desde hace tiempo. Como dije soy nuevo en esto y todo lo que estuve averiguando por internet no me resolvia esa duda, lo entenderian como una tonteria quizas, gracias amigos.