Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   No se porque falla esto :-( (https://www.clubdelphi.com/foros/showthread.php?t=46220)

jorgegetafe 26-07-2007 16:57:33

No se porque falla esto :-(
 
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 26-07-2007 17:02:54

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

Saludos!

jorgegetafe 26-07-2007 17:08:29

Cita:

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 26-07-2007 17:19:58

Otra puede ser usando AssignFile como aquí

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


La franja horaria es GMT +2. Ahora son las 09:28:56.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi