Problemas con estructuras

[[Lepe]]

En la ayuda dice esto:

TStack maintains a last-in first-out array of pointers.

Unit
Contnrs

por tanto, debe que dar así:

Código Delphi [-]
unit Compilador;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, HashTrie,
  Contnrs // la unidad que viene en la ayuda "Unit"
  ;

type

  TMiObjeto = class(TObject);
    public
       nombre:string;
   end;

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);
  private
    htable :TStringHashTrie;
    htable2 : TStringHashTrie;
    Stack : TStack;
   //procedure ShowTable;
  public

  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
var
  miLista:TStringList;
  listaAux :TStringList;
  Stack: TStack;
  c :TMiObjeto;
begin
   Stack := TStack.Create; // adquirimos memoria y creamos el objeto


   Stack.free; // finalmente para destruirlo

Te aconsejo que mires en la ayuda, yaque existe TObjectQueue y TobjectStack que son más fáciles de usar, así como otros tipos de pilas LIFO y FIFO.

Saludos

[godel]

Muchas Gracias por el consejo lo probare y haber como queda .

[[Delphius]]

Amigo Lepe, creo que un error al hacer copy/paste.
Modificando un poquito el codigo creo que va a funcionar:

Código Delphi [-]
unit Compilador;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, HashTrie,
  Contnrs // la unidad que viene en la ayuda "Unit"
  ;

type

  TMiObjeto = class(TObject);
    public
       nombre:string;
   end;

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);
  private
    htable :TStringHashTrie;
    htable2 : TStringHashTrie;
    Stack : TStack;
   //procedure ShowTable;
  public

  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
{ ya la tenemos en el private del form!
var
  miLista:TStringList;
  listaAux :TStringList;
  Stack: TStack;
  c :TMiObjeto;
  estas variables están de más!
}
begin
   Stack := TStack.Create; // adquirimos memoria y creamos el objeto

...
end;

Saludos,