Fehler bei Rechenoperation

[Giss]

Hallo zusammen,

ich habe eine Problem. Eine bestimmte Anweisung funktioniert nicht und ich weiß gerade nicht, warum. Könnt Ihr mir helfen?

Code: Alles auswählen

 
for y := 1 to StringGrid.RowCount-1 do
StingGrid1.Cells[6,y]:=FloatToStr(RoundTo(StrToFloat(StringGrid1.Cells[0,y])*StrToFloat(StringGrid1.Cells[4,y]) Div 100*(100+5) ,-2));
 

Die Unit Math habe ich eingebunden.

Als Fehlermeldung kommt bei der ersten Multiplikation:

Code: Alles auswählen

 
unit8.pas(64,88) Error: Incompatible types: got "Extended" expected "LongInt"
 

[theo]

Vielleicht würde es schon helfen, dass ganze etwas zu entflechten und sorgfältiger anzugehen.

Wie heisst das Ding jetzt? Sind es mehrere?

Ich finde in diesen zwei Zeilen drei Namen für StringGrids:

StringGrid
StingGrid1
StringGrid1

So kann man dir nicht helfen.

[Giss]

Mein Fehler.

Das Ding heißt StringGrid1 - Danke.

Der Fehler mit den inkompatiblen Datentypen bleibt davon jedoch leider unberührt.

[Michl]

"Div" geht nur bei ganzen Zahlen, müsstest du durch ein "/" ersetzen!

Code: Alles auswählen

  caption:=FloatToStr(RoundTo(100.33 Div 100*(100+5) ,-2));  //geht nicht
  caption:=FloatToStr(RoundTo(100 Div 100*(100+5) ,-2));     //geht
  caption:=FloatToStr(RoundTo(100.33 / 100*(100+5) ,-2));    //geht   

[wp_xyz]

Die Operation "Div" ist nur für Integer-Typen verfügbar, nicht für Floating Point. Einen solchen Datentyp hast du erhalten, weil du "StrToFloat" verwendest. "StrToInt" würde funktionieren. Oder du belässt es beim "StrToFloat" und ersetzt das "Div" durch "/".

Offenbar möchtest du das Produkt von zwei Zahlen im Grid auf zwei Nachkommastellen runden. Das genau macht die Funktion "RoundTo". Du versuchst aber zusätzlich noch, manuell zu runden. Ich bezweifle, ob das so nötig ist.

[m.fuchs]

div akzeptiert nur Integer-Werte als Operanden. Benutze stattdessen /.

Edit: Heute sind ja viele hier.

[Giss]

Vielen Dank Michl, das war es.



PS: Allen anderen natürlich auch