Einzelnen Beitrag anzeigen

Decadoria

Registriert seit: 23. Mai 2011
7 Beiträge
 
#1

DIV Problem (Integer?)

  Alt 23. Mai 2011, 06:57
Hallo Ihr
Ich hab n problem und finde meinen Fehler nicht!
Und zwar geht es darum das ich in meinem Programm eine Rechnung machen will,
als ergebnis will ich aber nur GANZE zahlen ausgegeben bekommen.

Ich hab daher jetzt in meiner Rechnung mit DIV statt / gerechnet..
Allerdings bekomme ich nun immer folgende Fehlermeldung:


[Fehler] Unit1.pas(42): Operator ist auf diesen Operandentyp nicht anwendbar

Hier Nochmals mein Quelltext... Kann mir jemand sagen was ich jetzt Falsch gemacht habe???

var
Form1: TForm1;
L,H,L2,H2:real;


procedure TForm1.RechneClick(Sender: TObject);

begin
L:=strtoint (Laenge.text);
H:=strtoint (Hoehe.text);

if L>H then begin
L2:=L;
H2:=(L div 3)*2;
end
else
begin
H2:=H;
L2:=(H div 3)*2;
end;

Hoehe2.text:=inttostr(H2) ;
Laenge2.Text:=intttostr(L2) ;

end;


LG Deca
  Mit Zitat antworten Zitat