3 respuestas en este tema

[mdvc0002]

Hola como digo en el asunto soy nuevo en esto. Estoy tratando de hacer una calculadora por medio de codetyphon pero hay un error que deber ser muy tonto por que no estoy haciendo nada complejo por el momento.

Aquí está el código:

delphi

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button10: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Construir(var numero:integer);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var
  num: integer;
begin
  num:=strtoint(Button1.Caption);
  Construir(num);
  //Display.Caption:=Display.caption+Button1.Caption;
end;
 
procedure Construir(var numero:integer);
 
var
   mostrar: string;
begin
   mostrar:=inttostr(numero);
   Label1.Caption:=mostrar;
end;
 
end.

Bien, al querer poner en el caption de Label1 el número pulsado, me da error de que el identificador no se encuentra. ¿Tengo la función mal declarada? Alguien me puede dar algún consejo para no cometer este tipo de errores a la hora de declarar procedimiento, funciones, variables, etc...??

Muchas gracias.

[Delphius]

El error está en la sección implementation. Para la implementación del método Construir debes anteponerle la clase a la que pertenece. Es decir debe ser:

delphi

procedure TForm1.Construir(numero: integer);

y tu tienes

delphi

procedure Construir(numero: integer);

Oberva justamente como se ha hecho de forma automática el método Button1Click.

Sólamente en la declaración (la sección interface) se omite el "TForm1." Pero en el código si se debe indicar.

Te recomiendo la lectura del libro La Cara Oculta de Delphi 4, capítulo 6. Si bien se trata de Delphi, tanto Lazarus como Delphi siguen el mismo lenguaje: Object Pascal. Ese capítulo explica todo acerca de POO. Es la piedra angular para comprender el lenguaje.

Saludos,

[mdvc0002]

Muchas gracias Delphius. Probaré tu solución. También buscaré el libro para enterarme bien de como va esto.

Un saludo

[Delphius]

El libro lo puedes descargar libremente. Su autor (Ian Marteens) ha cedido la autorización de difundirlo mientras se le respete su autoría.
Puedes encontrarlo fácilmente, creería que aún puede encontrarse en el sitio de él.

Saludos,