ajuda numero 2

[sandroI9]

Boa Tarde a todos, galera oh eu de novo precisando da ajuda de vocês, o qua acontece é que não paro mesmo, estou determinado a aprender. então pergunto, fiz um programa de raiz quadrada, mais quando vou copilar dar um erro :

[Error] Unit7.pas(30): Overloaded procedure 'Edit2Change' must be marked with the 'overload' directive.

o programa é o seguinte :

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Button1: TButton;

GroupBox1: TGroupBox;

Label2: TLabel;

Label3: TLabel;

Edit2: TEdit;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

Label4: TLabel;

Label5: TLabel;

Edit3: TEdit;

Edit4: TEdit;

procedure Button1Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Edit1KeyPress1(Sender: TObject; var Key: Char);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure Edit2KeyPress(Sender: TObject; var Key: Char); {erro aqui }

procedure Edit2Change(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure Edit3Change(Sender: TObject);

procedure Edit3Change(Sender: TObject);

procedure Edit4Change(Sender: TObject);

procedure Edit4Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var vr : real;

vraiz : real;

pt : real;

pf : real;

begin

vr:=strtofloat(edit1.Text);

vraiz:=sqrt(vr);

edit2.Text:=floattostr(vr);

pt:=int(vraiz);

pf:=vraiz-pt;

if strtoint(edit1.Text) mod 2=0 then

label2.Caption:=edit1.Text+'É Um Numero Par'

else

label2.Caption:=edit1.Text+'É Um Numero impar';

if pf = 0 then

begin

radiobutton1.Checked:=true;

edit3.Text:=floattostr(pt);

edit4.Text:=0';

end

else

begin

radiobutton1.Checked:=true;

edit3.Text:=floattostr(pt);

edit4.Text:=floattostr(pf);

end;

end;

a mesnsagem de erro e a seguinte [Error] Unit8.pas(26): Overloaded procedure 'Edit1Change' must be marked with the 'overload' directive ? alguém sabe como conserto isso, por que quero ainda colocar o comando :

procedure TForm1.Edit1KeyPress(Sender:TObject; var Key : Char);

begin

if not (key in ['0'..'9]) then key :=#0;

end;

se alguém tiver alguma dica, agradeço , abraço a todos

[Jhonas]

[Error] Unit8.pas(26): Overloaded procedure 'Edit1Change' must be marked with the 'overload' directive ?

[Erro] Unit8.pas(26): Procedimento sobrecarregado ' Edit1Change ' deve ser marcado com o ' overload' diretivo?

Verifique se isto esta certo

procedure Edit1KeyPress1(Sender: TObject; var Key: Char);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

e isto tambem: ( porque voce esta repetindo ? )

procedure Edit2KeyPress(Sender: TObject; var Key: Char); {erro aqui }

procedure Edit2Change(Sender: TObject);

procedure Edit2Change(Sender: TObject); // repetindo o comando

procedure Edit3Change(Sender: TObject); // repetindo o comando

procedure Edit3Change(Sender: TObject); //

procedure Edit4Change(Sender: TObject); //

procedure Edit4Change(Sender: TObject); //

abraço