Ver Mensaje Individual
  #4  
Antiguo 23-02-2008
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Reputación: 25
Delphius Va camino a la fama
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,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita