[eside-ghost] Problema Definiendo Clase en Free Pascal

[Geru García]

Hola,

practicando un poco de Pascal, me surge  un problema compilando el siguiente
código en Free Pascal (También he probado en Delphi 7), y me dice quela
clase no está completamente definida (Delphi) o que dicho identificador, es
decir 'class' no lo encuentra (Free Pascal):

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  Tusuario = class;
    Nombre = string;
    Apellidos = string;
    Edad = integer;
    Socio = boolean;
    Codigo_Socio = integer;
    procedure Mostrar_Tusuario;
  end;

procedure Mostrar_Tusuario;
  Begin
      Writeln('Nombre: ', Nombre);
      Writeln('Apellidos: ', Apellidos);
      Writeln('Edad: ', Edad);

      if Socio = True then
      write('Si');
        else if Socio = False then
        write('No')
      else
      write('No es socio.');

      Writeln('Socio: ', Socio);
      Writeln('Codigo de Socio: ', Codigo_Socio);

var
  Geru: Tusuario

begin
  Geru := Tusuario.create;
  Geru.Nombre := 'Geru';
  Geru.Apellidos := 'García Blas';
  Geru.Edad := 21;
  Geru.Socio := True;
  Geru.Codigo_Socio := 01;
  Geru.Mostrar_Tusuario;
end.



Gracias de antemano, un saludo;

Geru.


-- 
--
--------------------------------------------------------------@
Agur!

Aingeru García Blas.

www.codigogeru.com

gerupc en gmail.com

------------------------------------------------------------@
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: https://listas.deusto.es/mailman/private/eside-ghost/attachments/20070717/da25a928/attachment.htm