[gerupc]

Hola,

mirad tengo un problema al definir una clase, el código es el siguiente:

Código Delphi [-]
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, ¡¡¡¡LADRON!!!! ');

      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.

Lo he probado tanto en FreePascal como en Delphi 7, el error en FPC es el siguiente:

First compilation of c:\fpc\proyectos en pascal\project2.pas
project2.pas(9,14) Error: Identifier not found "class"
project2.pas(9,14) Fatal: You need objFp(-S2) or Delphi (-Sd) mode to compile this module
project2.pas(9,14) Fatal: Compilation aborted

Y en Delphi 7 pues más de lo mismo.

Ya de paso una cosilla más , al definir como tipo de datos 'REAL' me aparece el siguiente resultado (Por ejemplo);

1.256500000000000000E+001 {Siendo el resultado. 12.56}

Un saludo, y gracias de antemano.

Geru.