Delphi - error de declaracion externa

   
Vista:

error de declaracion externa

Publicado por flanismo (6 intervenciones) el 20/04/2008 19:12:45
estoy haciendo una pequeña aplicacion en delphi 7 y este es el codigo que ya tengo

unit Unit1;

interface

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

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Label3: TLabel;
ComboBox1: TComboBox;
Button1: TButton;
Panel1: TPanel;
Label4: TLabel;
RadioGroup1: TRadioGroup;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Button2: TButton;
MainMenu1: TMainMenu;
Principal1: TMenuItem;
Salir1: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Salir1Click(Sender: TObject);

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if ComboBox1.Text='Suma'Then
begin
Label4.Caption:=FloatToStr(StrToFloat(Edit1.Text)+StrToFloat(edit2.Text));
end;
if ComboBox1.Text='Resta'Then
begin
Label4.Caption:=FloatToStr(StrToFloat(Edit1.Text)-strToFloat(Edit2.Text));
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if RadioButton1.Checked=True then
Form1.Color:=ClBlue
else
Form1.Color:=clBtnFace;
end;
end.

procedure TForm1.Salir1Click(Sender: TObject);
begin
Application.Terminate;
end;

end.

bueno, todo va solo en un Form, pero cuando quiero correrlo me aparecen los siguientes errores:

[Warning] Unit1.pas(66): Text after final 'END.' - ignored by compiler
[Error] Unit1.pas(30): Unsatisfied forward or external declaration: 'TForm1.Salir1Click'[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

la verdad apenas comienzo en esto y no entiendo nada! si alguien me puede ayudar lo mas rapido posible se los agradecere...mi trabajo es para mañana XD, necesito saber porque aparecen esos errores y como puedo corregirlos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:error de declaracion externa

Publicado por juancho (193 intervenciones) el 21/04/2008 13:54:39
En el evento click de tu Button2 hiciste un end sin un begin
procedure TForm1.Button2Click(Sender: TObject);
begin
if RadioButton1.Checked=True then
Form1.Color:=ClBlue
else
//<-----------Aqui debe haber un begin
Form1.Color:=clBtnFace;
end;// <------ End sin begin
end.
Todo end empieza con un begin ya que es un bloque de codigo:
procedure TForm1.Button2Click(Sender: TObject);
begin
if RadioButton1.Checked=True then
Form1.Color:=ClBlue
else
begin //<----------begin
Form1.Color:=clBtnFace;
end;//<-------------end;
end.
Te recomiendo que descargues un tutorial de Delphi o Pascal para interiorisarte un poquito mas ;).
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar