DIV Problem (Integer?)

[Decadoria]

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

[DeddyH]

DIV funktioniert nur mit ganzen Zahlen, L ist aber vom Typ real.

P.S.: Willkommen in der DP

[mkinzler]

Warum deklarist du die Variablen als Reals und nicht als Integer?

[himitsu]

Warum sind eigentlich L,H,L2,H2:real; global deklariert, obwohl sie nur lokal benötigt werden?

Zitat von mkinzler:

Warum deklarist du die Variablen als Reals und nicht als Integer?

Vorallem da du ja eigentlich überall Integer haben wolltest.
siehe L:=strtoint , intttostr(L2) , div und vorallem

Zitat:

DIV Problem (Integer?)

Zitat:

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

Operator = dein DIV
Operandentyp = Typ deiner Variable
Also, da kann man aus der Fehlermeldung herauslesen, daß die Variable einen unpassenden Typen besitzt, welcher nicht mit dieser Operation vereinbar ist.
PS: Für Fließkommazahlen nutzt man das / als Divisionsoperator.



Man hätte nicht alles fett schreiben müssen und der Code paßt auch ganz gut in ein [code]...[/code] oder sogar ein [delphi]...[/delphi] (der Knopf mit dem roten Helm) rein.
Für Fehlerstellen macht sich z.B. ein Kommentar ala // <<<<< hier ist es nicht verkehrt.

[Decadoria]

Aaaaaa Danke schön

Ich hatte das problem das am anfang immer die fehlermeldung kam das InttoFloat nicht möglich ist ^-^
Aber habe das problem behoben xD

danke euch xD

und das mit [delphi] und Code und so wusste ich nich - . - sorry

[Deep-Sea]

Zitat von Decadoria:

[...] die fehlermeldung kam das InttoFloat nicht möglich ist [...]

So eine Funktion gibt es auch nicht. Für was auch?!

[himitsu]

Er/Sie/Es meinte vermutlich StrToFloat und die Zuweisung an einen Integer.

[Decadoria]

Also ne xD Das mit Int und Floats hab ich noch nich kapiert xD

Ich krieg dauerhaft Fehlermeldungen - .-

Code:

procedure TForm1.RechneClick(Sender: TObject);

var V,L,H,L2,H2:integer;

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

if V>1.5 then
  begin
  H:= L div 1.5; // [Fehler] Unit1.pas(47): Operator ist auf diesen Operandentyp nicht anwendbar
  end
else
  begin
  L:=1.5*H;
  end
end;

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

omg - . - Warum ist mein Operator jetz nich anwendbar?? ich hab das doch als Integer deklariert ö.ö

Sorry bin zu blöd für Delphi glaub ich langsam xD

[DeddyH]

Integerergebnis := Integer div Integer; Alle 3 Teile müssen ganzzahlig sein, sonst kannst Du DIV nicht anwenden. 1,5 geht also nicht.

[Deep-Sea]

Weil 1,5 nun mal keine ganze Zahl ist, der div-Operator aber nur für ganze Zahlen zu nutzen ist. Wenn du durch 1,5 teilen musst, musst du den normalen Teilungsoperator "/" nutzen. Um das Gleitkommaergebnis dieser Operation wieder in eine ganze Zahl zu wandeln hilft z.B. die Funktion Round.