Ayuda con TRegistry

[CelestronFan]

Bueno muchachos, hice los cambios y no funciona.

Los errores del compilador son estos:

[Error] NGFS.pas(68): Undeclared identifier: 'RegNGFS'
[Error] NGFS.pas(69): Missing operator or semicolon
[Error] NGFS.pas(70): 'THEN' expected but identifier 'OpenKey' found
[Error] NGFS.pas(71): Missing operator or semicolon
[Error] NGFS.pas(72): Missing operator or semicolon
..... el mismo error hasta línea 78
[Error] NGFS.pas(81): Statement expected but 'PROCEDURE' found
..... luego lo mismo para el otro procedimiento y termina con
[Hint] NGFS.pas(39): Private symbol 'RegNGFS' declared but never used
[Error] NGFS.pas(43): Unsatisfied forward or external declaration: 'TForm1.ReadRegistry'
[Error] NGFS.pas(45): Unsatisfied forward or external declaration: 'TForm1.WriteRegistry'
[Fatal Error] Focuser.dpr(5): Could not compile used unit 'NGFS.pas'

El código es este (Eliminé la parte de "Type" para que no fuera tan largo):

Código Delphi [-]
 unit NGFS;
 
 interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, ComCtrls, ExtCtrls, CPortCtl, CPort, Registry;
 
 type
...........................
 
   private
     { Private declarations }
     RegNGFS: TRegistry;
   public
     { Public declarations }
 
     procedure ReadRegistry(MaxSteps: Integer; MinSteps: Integer;
                       StopOUT: Integer; StopIN: Integer; COMPort: String);
     procedure WriteRegistry( );
 
   end;
 
 var
   Form1: TForm1;
   MaxSteps: Cardinal;   //Número máximo de pasos del Stepper
   MinSteps: Cardinal;   //Número mínimo de pasos del Stepper
   StopOUT: Cardinal;    //Posición de parada sentido OUT del Stepper
   StopIN: Cardinal;     //Posición de parada sentido IN del Stepper
   COMPort: String;      //Puerto Serial seleccionado
 
 implementation
 
 {$R *.dfm}
 
 procedure ReadRegistry(MaxSteps: Integer; MinSteps: Integer;
                        StopOUT: Integer; StopIN: Integer; COMPort: String);
 
 //Procedimiento para leer el registro//
 
 begin
     try
     RegNGFS:= TRegistry.Create;
     RegNGFS.RootKey := HKEY_LOCAL_MACHINE;
     if RegNGFS.OpenKey('SOFTWARE\NGFS', FALSE) then begin
     RegNGFS.ReadCardinal('MaxSteps');
     MinSteps:= RegNGFS.ReadCardinal('MinSteps');
     StopOUT:= RegNGFS.ReadCardinal('StopOUT');
     StopIN:= RegNGFS.ReadCardinal('StopIN');
     COMPort:= RegNGFS.ReadString('COMPort');
     end;
     finally
     RegNGFS.Free;
 end;
 
 procedure WriteRegistry( );
 
 //Procedimiento para escribir el registro//
 
 begin
     try
     RegNGFS:= TRegistry.Create;
     RegNGFS.RootKey := HKEY_LOCAL_MACHINE;
     if RegNGFS.OpenKey('SOFTWARE\NGFS', TRUE) then begin
     RegNGFS.WriteCardinal('MaxSteps', MaxSteps);
     RegNGFS.WriteCardinal('MinSteps', MinSteps);
     RegNGFS.WriteCardinal('StopOUT', StopOUT);
     RegNGFS.WriteCardinal('StopIN', StopIN);
     RegNGFS.WriteString('COMPort', COMPort);
     end;
     finally
     RegNGFS.Free;
 end;
 
 end.

[roman]

Empezado por CelestronFan

Bueno muchachos, hice los cambios y no funciona.

Vuelve a leer mi anterior mensaje y haz todos los cambios que te indiqué.

Empezado por dec

Si te fijas el editor de Delphi tampoco pone en negrita otros tipos, como "integer", por ejemplo. No sé si podrás jugar un poco en las opciones del editor: Tools -> Editor options.

Delphi pone en negritas String porque se trata de una palabra reservada y lo ha sido así, si no me equivoco, desde que Niklaus Wirth lo diseñó. Otros tipos de datos como Integer, Cardinal etc., no son palabras reservadas. Claro que nadie en su sano juicio hará algo como esto:

Código Delphi [-]
procedure Integer(Boolean: String);
begin
  ShowMessage(Boolean + 'es una cadena');
end;

aun cuando sintácticamente sea correcto.

// Saludos

[dec]

Hola,

Empezado por roman

Delphi pone en negritas String porque se trata de una palabra reservada y lo ha sido así, si no me equivoco, desde que Niklaus Wirth lo diseñó. Otros tipos de datos como Integer, Cardinal etc., no son palabras reservadas.

Así es la verdad.

[dec]

Hola,

Empezado por mi mismo

Inclúyelo (todo), aunque sea en un archivo adjunto (...)

No me fijé cuando escribí eso en que no es una unidad simplemente, sino que se trata de un formulario: bastaría que usaras componentes de que no dispusiéramos para que tampoco pudiéramos compilarlo, en todo caso. Repasa lo que te sugiere roman, no creo que tengas mayores problemas. De todos modos, si quieres incluir la unidad junto a su "dfm", todo esto en un archivo adjunto (comprimido en Zip, por ejemplo) hazlo. Por otro lado piensa que un error lleva a otro: probablemente solucionando algunos de los errores que te aparecen los otros dejarán de ser tales, no sé si me explico.