Hola a todos y gracias por leer otra vez mis mensajes.
El problema que tengo es el siguiente: no se si sea una variable perdón si me equiboque, bueno lo que pasa es que al declarar
me da un error y no puedo ejecutar mi programa la verdad no se cual pueda ser mi error. de ante mano muchas gracias por la atencion que me prestan.
Codigo del programa:
Código Delphi
[-]unit Calcular;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Forms,
Dialogs, StdCtrls, Controls;
type
TForm1 = class(TForm)
LRadio: TLabel;
LArea: TLabel;
LLongitud: TLabel;
Earea: TEdit;
ERadio: TEdit;
ELongitud: TEdit;
BCalcular: TButton;
BCerrar: TButton;
procedure BCalcularClick(Sender: TObject);
procedure BCerrarClick(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BCalcularClick(Sender: TObject);
var r,ar,long:real;
a,l:string i:integer; const
pi=3.1415;
begin
val (Eradio.text,r,i); ar:=pi*r*r;
long:=2*pi*r;
str(ar:6:2,a);
str(long:6:2,1);
EArea.text:=a;
ELongitud.text:=1;
end;
procedure TForm1.BCerrarClick(Sender: TObject);
begin
close;
end;
end.