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

Muito obrigado meus caros amigos, as informação oferecidas por vocês estão funcionando corretamente. agora quanto coloco tipo 7.5 ele dar erro, alguém sabe como posso resolver isso ????????????

Boa noite pessoal, estou iniciando meu aprendizado em delphi, comecei a fazer alguns programas simples que já fiz em pascal, mais o que acontece, é que delphi tem muita coisa diferente, então o que acontece é que fiz esse programa abaixo de calculo de media, e quando copilo ele me diz que há incopatibilidade de string and real na variavel r ? se alguém sabe qual o erro, agradeço, obrigado pela ajuda e atenção. unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Button1: TButton; procedure Edit2KeyPress(Sender: TObject; var Key: Char); procedure Edit3KeyPress(Sender: TObject; var Key: Char); procedure Button1Click(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure Edit4KeyPress(Sender: TObject; var Key: Char); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9']) then key:=#0; end; procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9']) then key:=#0; end; procedure TForm1.Button1Click(Sender: TObject); var a,b,c,d : real; r : real ; begin a:=strtoint(Edit1.Text); b:=strtoint(Edit2.Text); c:=strtoint(Edit3.Text); d:=strtoint(Edit4.Text); r:=(a+b+c+d)/4; Label1.Caption:=+r;{erro nessa linha aqui} end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9']) then key:=#0; end; procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9']) then key:=#0; end; end.