[delphi-br] Incompatibilidade

Mon, 17 Dec 2007 06:36:18 -0800 

Tava tudo compilando até que botei a divisao no E: /4....
e ta dando erro.. diz que é 
incompatible types integer and real
Por que ta dando isso??
Sendo que divisao usa integer...
TO iniciando em delphi aqui no trabalho..valew

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit3: TEdit;
    Label6: TLabel;
    Edit4: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Edit3KeyPress(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.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9']) then key:=#0;
end;

procedure TForm1.Edit2KeyPress(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,E:integer;
begin
A:=strtoint(edit1.Text);
B:=strtoint(edit2.Text);
C:=strtoint(edit3.Text);
D:=strtoint(edit4.Text);
E:=A+B+C+D/2;
Label3.Caption:='Resultado:'+inttostr(E);
end;
procedure TForm1.Edit3KeyPress(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.

Responder a