Alexandre Rodrigues wrote:
> Existe duas possibilidades para teu caso. Declarar "E" como Double ou
> substituir "/" por "div", assim tu terás somente a parte inteira da
> divisão. Digamos se tu dividir fizer 3 div 2 teu resultado será 1 e não
> 1,5 como esperado.
Ou arredondar o resultado com Round();
--
Joao Morais
>
> Renan Fernando Christino henriquer escreveu:
>>
>> 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.
>
