Estructuras de parametros en delphi

[jularaXD]

Vale, ya lo he conseguido
Muchas gracias por la ayuda!

[[ElKurgan]]

Sólo una cosa más.

No dejes de leer "La cara oculta de Delphi 4", del Maestro Marteens. Aunque es antiguo, los primeros capítulos son un compendio de lo que son las clases, propiedades, métodos, clases abstractas, métodos de clase...

Altamente recomendable

Saludos

[jularaXD]

Descargado!

[jularaXD]

Miento, no he conseguido que funcione... Si que me funcionan los procedimientos cuando los llamo, pero las variables parece como si no me las iniciara...


Este es el codigo:

Código Delphi [-]
unit UConfig;

interface

uses  inifiles, SysUtils, Forms;

Type
  TOptions = class

    procedure SaveConfig();

   public
      ComAuto : Boolean;
      ComPort : Integer;
      Language : String[10];
  End;

  var
  Options : TOptions;


implementation

procedure TOptions.SaveConfig();
var
  INI : TIniFile;
begin
  ComAuto := True;

end;

end;

end.

Y cuando intento acceder a una variable me salta este error en el programa:
First chance exception at $005E1272. Exception class $C0000005 with message 'access violation at 0x005e1272: write of address 0x00000004'. Process Test.exe (4500)
Como podria solventar esto? :S

[ecfisa]

Hola jularaXD.

Si creaste una instancia de TOptions, acceder a un atributo de la misma no tendría por que elevar una excepción. El error no está en el código visible en tu mensaje.

Aunque existen múltiples motivos que provocan la excepción "Access violation", el mas común es que se intenta usar un recurso no creado o liberar uno que ya fué liberado. Asegurate de que todas las clases estén instanciadas antes de usarlas y verifica la existencia antes de liberarlas. Es buena idea poner el puntero a nil cuando liberas el objeto (vg. FreeAndNil) , de ese modo podrías comprobar lo anterior usando la función Assigned.

En cuanto al mensaje "First chance exception" nunca lo había visto, pero mirando un poco en la web pareciera que podría deberse a la configuración del depurador: What is a First Chance Exception?

Y como siempre, sería de mucha ayuda ver las líneas donde se produce el error. Usar un breakpoint al inicio del código donde se estima que se produce el error y luego realizar Trace Into (F7) para ubicarlo.

Saludos

[[ElKurgan]]

No vero donde está la línea

Código Delphi [-]
Opciones := TOptions.create;

Si no se crea primero el objeto de la clase, siempre tendrás un Access Violation.

¡Lee el libro!

Saludos

[[nlsgarcia]]

jularaXD,

Empezado por jularaXD

...quiero hacer una estructura...que incluya variables, procedimientos, funciones...

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

type

  TMathNum = object
    N1, N2 : Double;
    Operador : String;
    function CalNum(Op : Char) : Double;
    Procedure DspResult(R : Double);
  end;

function TMathNum.CalNum(Op : Char) : Double;
begin

   case Op of

      'S' :
       begin
          Result := N1 + N2;
          Operador := '+';
       end;

      'R' :
       begin
          Result := N1 - N2;
          Operador := '-';
       end;

      'M' :
       begin
          Result := N1 * N2;
          Operador := '*';
       end;

      'D' :
       begin
          Result := N1 / N2;
          Operador := '/';
       end;

   end;

end;

Procedure TMathNum.DspResult(R: Double);
var
   Msg : String;
begin
   Msg := FormatFloat('#,###,###,###,###.00',R);
   Msg := Format('%f %s %f = ',[N1,Operador,N2]) + Msg;
   MessageDlg(Msg,mtInformation,[mbOK],0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   M : TMathNum;
begin
   M.N1 := 789.45;
   M.N2 := 210.55;
   M.DspResult(M.CalNum('S'));
   M.DspResult(M.CalNum('R'));
   M.DspResult(M.CalNum('M'));
   M.DspResult(M.CalNum('D'));
end;

end.

El código anterior implementa y utiliza el objeto TMathNum para realizar operaciones aritméticas de dos números reales y mostrar su resultado.

Nota: El tipo object permite instanciar objetos sin usar el método Create y es muy util para implementaciones de tipos abstractos simples, para desarrollos formales orientados a objetos se debe usar el tipo Class.

Espero sea útil

Nelson.