type Tarray = Array of char; Tpila = Class Private Datos: Tarray; indice: Integer; NumElementos: Integer; Public Procedure Inicializa(Objeto: Tpila; NumEle: integer); Procedure MeterCaracter(Objeto: Tpila; Dato : string); Procedure Meterpalabra(objeto:TPila;Dato: String); Procedure VaciarPila(objeto:TPila;Dato: TEdit); end; implementation Procedure Tpila.Inicializa(Objeto: Tpila; NumEle: integer); begin If (NumEle < 1) then ShowMessage('La pila debe contener al menos un elemento') else if(NumEle > 25) then ShowMessage('La pila debe contener Como máximo 25elementos') else begin indice := 0; NumElementos := NumEle; SetLength(Objeto.Datos,NumElementos); ShowMessage('su pila Almacenará como máximo ' + IntToStr(NumEle) + ' elementos'); end; end; Procedure Tpila.MeterCaracter(Objeto:Tpila; Dato : string); begin Indice := Indice + 1; If (indice > NumElementos) then begin Showmessage(IntToStr(indice) + ' Ha sobrepasado el tamaño de la pila' +'('+ intToStr(NumElementos) + ')' ); indice := indice - 1; end else Objeto.Datos[indice] := Dato[indice]; end; Procedure Tpila.MeterPalabra(objeto: TPila; Dato: String); Var i: Integer; begin For i := 1 to NumElementos do begin objeto.datos[i] := Dato[i]; Indice := i; end; end; Procedure Tpila.VaciarPila(Objeto: Tpila;dato: TEdit); var i: integer; begin For i := indice downto 1 do begin Dato.text := Dato.text + Objeto.datos[i]; end; end;
Implementación de una clase PILA en delphi
#1
Escrito 17 septiembre 2009 - 12:40
#2
Escrito 17 septiembre 2009 - 12:45
Saludox !
#3
Escrito 17 septiembre 2009 - 12:51
Jejeje que bueno que lo publicaste hasta ahorita mi amor, hace aproximadamente 4 meses se los dejé como problema de investigación a mis alumnos en la Universidad ... y hasta donde sé parieron chayotes para hacerlo, cosa que no hubiera sucedido con este código...
Saludox !
Todo por no registrarse en DA y hacer la pregunta
Salud OS
#4
Escrito 17 septiembre 2009 - 12:56
Jejeje que bueno que lo publicaste hasta ahorita mi amor, hace aproximadamente 4 meses se los dejé como problema de investigación a mis alumnos en la Universidad ... y hasta donde sé parieron chayotes para hacerlo, cosa que no hubiera sucedido con este código...
Saludox !
Todo por no registrarse en DA y hacer la pregunta
Salud OS
Ustedes que les dicen la respuesta y yo que los ahorco
Jejeje, bueno, que lo hagan, ya buscaré la manera de hacerlos parir chayotes de todos modos (6)
Saludox !
#5
Escrito 17 septiembre 2009 - 01:23
A libro abierto o Normal, no se porque nadie queria el de libro abierto
#6
Escrito 17 septiembre 2009 - 02:32
Cuando yo daba clases les daba las opciones, ¿a ver, como quieren el examen?
A libro abierto o Normal, no se porque nadie queria el de libro abierto
Pues resulta que ese tipo de exámenes a libro abierto nos lo hacia un profesor en el bachillerato , son tremendos......
Salud OS
#7
Escrito 17 septiembre 2009 - 03:34
Cuando yo daba clases les daba las opciones, ¿a ver, como quieren el examen?
A libro abierto o Normal, no se porque nadie queria el de libro abierto
Pues resulta que ese tipo de exámenes a libro abierto nos lo hacia un profesor en el bachillerato , son tremendos......
Salud OS
un examen a libro abierto es mas una tarea de investigacion de dos horas que una evaluación de lo que aprendistes al caletre. YO NO ESTOY DE ACUERDO CON LAS EVALUACIONES, ya que no reflejan el real grado de conocimiento del estudiante, solo su capacidad de retención.