evento onclick del button

[keyboy]

A ver, no hace falta "construir" el objeto con

Código Delphi [-]
p := TPila.Create;

ó

Código Delphi [-]
p := TPila.Init;

De hecho, la primera da un error de Undeclared identifier. Sí, leyeron bien. No hace falta porque el compañero Richard está usando el tipo object, que no sigue el mismo modelo de construcción que TObject.

Empezado por ayuda de delphi

You can create instances of an object type using the New procedure and destroy them with the Dispose procedure, or you can simply declare variables of an object type, just as you would with records.

El ejemplo que pone, lo he probado y no me ha presentado errores, siempre y cuando se use P.Init o se de un valor inicial a tope, de lo contrario en la inserción

Código Delphi [-]
items[tope]:=x;

seguramente se accederá a un elemento inexistente del arreglo.

Por otra parte, aunque no me marca errores, se debe usar una variable P que trascienda los eventos OnClick. Al ser variables locales, una no tiene que ver con la otra.

Pero, lo más importante, es que deje de usar el tipo object, que ya no se recomienda, y use las clases tal como todos las conocemos.

Bye

[richard187]

a pesar de todas las ayudas..
sobretodo a keyboy que me aclaro algunas dudas..

mi programa sigue con los mismos errores :S

nose que hizo keyboy para que a el mi programa no le presente errores o kisas la version del delphi influye (estoy usando la version 7.2)

ayuden uds que saben del tema

thanks

ah y por cierto.. el uso del tipo object, me recomendo la docente de la materia.. (de uso impresindible para la estructura de los datos)

link de la imagen del error: http://www.sucrevip.net/img/error.JPG

y gracias nuevamente

[Northern]

Cierto, ahora que lo miré un poco yo lo haría de esta manera:

Código Delphi [-]
unit uPilas;
interface
uses StdCtrls, Dialogs;
const
  maxpila=10;
type
  tipoinfo = string ;
  TPila = class(Tobject)
  private
    tope: 0..maxpila;
    items:array [1..maxpila]of tipoinfo;
  public
    constructor Create;
    function vacia: boolean;
    function llena: boolean;
    procedure insertar(x: tipoinfo);
    function eliminar: tipoinfo;
  end;
implementation
constructor TPila.Create;
begin
  inherited Create;
  tope:=0;
end;
function TPila.vacia: boolean;
begin
  vacia := (tope = 0);
end;
function TPila.llena: boolean;
begin
  llena := (tope=maxpila);
end;
function TPila.eliminar: tipoinfo;
begin
  if vacia then
    ShowMessage('Pila vacia')
  else
  begin
    eliminar:=items[tope];
    dec(tope);
  end;
end;
procedure TPila.insertar(x: tipoinfo);
begin
  if llena then
    showmessage('Pila llena')
  else
  begin
    inc(tope);
    items[tope] := x;
  end;
end;
end.

La unit ufPilas (la del form):

Código Delphi [-]
unit ufPilas;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    eInsertar: TEdit;
    bInsertar: TButton;
    bEliminar: TButton;
    lbMostrar: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure bInsertarClick(Sender: TObject);
    procedure bEliminarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
uses uPilas;
{$R *.dfm}
var
  P: TPila;
procedure TForm1.FormCreate(Sender: TObject);
begin
  p := TPila.Create;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
  eInsertar.SetFocus;
  eInsertar.SelectAll;
end;
procedure TForm1.bInsertarClick(Sender: TObject);
begin
  if length(eInsertar.Text) = 0 then
    showmessage('texto en blanco')
  else
  begin
    lbmostrar.items.Append(eInsertar.Text);
    p.insertar(eInsertar.Text);
    eInsertar.setfocus;
    eInsertar.SelectAll;
  end;
end;
procedure TForm1.bEliminarClick(Sender: TObject);
var
  x: Tpila;
begin
  p.eliminar();
  lbmostrar.Items.delete(lbmostrar.ItemIndex);
end;
end.

Así ya funciona...eso creo


Saludos

[richard187]

gracias a todos las participaciones todas me fueron sumamente utiles.

ahora me surgio un ultimo problema, talves sea mas de logica que de uso de la sintaxis de delphi, pero quisiera algunos sugerencias..

como puedo programar el evento onclick del button bEliminar, para que elimine los elementos de la pila uno por uno (como corresponde en una pila), puesto que como yo lo puse no funciona correctamente

gracias nuevamente..!!