No se porque falla esto :-(

[jorgegetafe]

Código Delphi [-]
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  ficheroOpciones = text;

  TForm2 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    GroupBox2: TGroupBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  fOpciones: ficheroOpciones;

implementation

{$R *.dfm}

PROCEDURE TForm2.Button1Click(Sender: TObject);                                 // Cerrar opciones
  BEGIN
    close;
  END;

PROCEDURE TForm2.Button2Click(Sender: TObject);                                 // Aceptar opciones
  BEGIN
    assign (fOpciones, 'Opciones.txt');
    rewrite (fOpciones);
    writeln (fOpciones, 't');
    // grabar opciones
    Button1Click(Sender);
  END;

END.

Me da un error de compilación, cuando asigno el fichero lógico al físico (assign (fOpciones, 'Opciones.txt') diciendome: "Incompatible types: 'TPersistent' and 'Text' " no tengo ni idea de porque... alguien me puede ayudar?

Muchisimas gracias.

[delphi.com.ar]

Supongo que estará tomando el método Assign del TForm2, prueba utilizando "System.Assign(fOpciones, 'Opciones.txt');"

Saludos!

[jorgegetafe]

Empezado por delphi.com.ar

Supongo que estará tomando el método Assign del TForm2, prueba utilizando "System.Assign(fOpciones, 'Opciones.txt');"

Saludos!

Perfecto!!!!! muchíiiiisimas gracias.

[axesys]

Otra puede ser usando AssignFile como aquí

http://www.delphibasics.co.uk/RTL.asp?Name=AssignFile