Problema en código

[Robert01]

Esta es una parte del código de un programa posiblemente en delphi3:

Código Delphi [-]
 tipo_elemento=(programa,clase,atributo,metodo,especializacion,asociacion);
        { contiene los posibles elementos del  fichero registro}

  reg_parametros=record
                       nombre,tipo_para:string;
                 end;
       {registro para guardar los parametros de cada metodo de las clases}

  elemento=record
     case tipo_elemento of
        programanombre_pro:string); //93
        clasenombre_clase:string);
        atributonombre_atri,tipo_atri:string);
        metodonombre_metodo:string;tipo_met:boolean;parametros:reg_parametros);
        especializacionsuperclase:string);
        asociacioncon_clase:string);
     end;
     {registro para almacenar el fichero de resultados}

  regis=record
              nom_reg,asoc:string;
         end;
    {registro para almacenar asociaciones que estén dentro de un campo del mismo}

var
  f:textfile; {fichero de visualizacion de resultados} /111

Al tratar de compilar da los siguientes errores:

[Error] EXPLORAR.PAS(93): Type 'String' needs finalization - not allowed in variant record
[Error] EXPLORAR.PAS(94): Type 'String' needs finalization - not allowed in variant record
[Error] EXPLORAR.PAS(95): Type 'String' needs finalization - not allowed in variant record
[Error] EXPLORAR.PAS(96): Type 'String' needs finalization - not allowed in variant record
[Error] EXPLORAR.PAS(96): Type 'reg_parametros' needs finalization - not allowed in variant record
[Error] EXPLORAR.PAS(97): Type 'String' needs finalization - not allowed in variant record
[Error] EXPLORAR.PAS(98): Type 'String' needs finalization - not allowed in variant record
[Error] EXPLORAR.PAS(111): Type 'elemento' needs finalization - not allowed in file type

¿De que forma se podría solucionar el problema?

Saludos

[[Delphius]]

Hola Robert01,
Cuando uno declara un type record obligadamente debe indicarle un tamaño determinado al string. Por ejemplo:

Código Delphi [-]
TCliente = record
  Nombre: string[30];
end;

Los "errores string" se deben a ello.
El error sobre "elemento" se debe a que te falta un end. Necesitas dos end. Uno para el case y otro para indicar el fin del record.

Saludos,

[Neftali [Germán.Estévez]]

Esto se ve raro:

Código Delphi [-]
:string);

[Robert01]

Gracias por responder

Se trata de un proyecto para analizar el código de programas orientados a objetos escritos en turbo pascal. Estoy viendo como usar objetos y quise probar ese código.
Según indica es un trabajo de fin de carrera.

Saludos

[[Delphius]]

Hola Robert01,
Estuve viendo el documento que aparece en el enlace y por lo que he podido comprender se trata de simular un Analizador Léxico/Semantico para programas escitos en Turbo Pascal, y orientados a Objetos.

Por lo que comprendo del código, lo que hace es dado un programa escrito, extraer la información sobre las clases y su relaciones con otras.

Por ponerte un ejemplo, si en un aplicativo tienes las clases TCliente, TFactura, TDetalleFactura. El programa te mostrará la la información y la relación de estas tres clases: métodos, campos, tipos, etc.

El uso de esos records que ves no es más que para guardar la información que se va leyendo del archivo.

En ningún momento hace empleo de técnicas Orientadas a Objetos el programa. Se basa en bucles, y más bucles explorando el archivo.

Si quieres meterte en la teoria de objetos en Delphi, lo mejor es leer el capítulo 6 de la Cara Oculta. Lo explica a mi modo de ver, bastante bien.

Saludos,

[Robert01]

Gracias Delphius por tomarte el trabajo. Voy a ver la "cara oculta de delphi" ya que tengo el libro hace tiempo.

Saludos