Hallo, ich weiß, dass case nur mit Ordinaltypen funktioniert, jedoch zeigt mir Delphi trotzdem einen Fehler an.
a,Tausend sind ein Real
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10:
| a:=StrToFloat(edAlgebra.text); Tausend:=a/1000; Tausend:=Trunc(Tausend); a:=a-1000*Tausend; case Tausend of 1: b:='M'; 2: b:='MM'; 3: b:='MMM'; 4: b:='MMMM'; end; |
Fehler: Ordinaltyp erforderlich
Mit Trunc wandle ich doch einen Real in einen Integer um.
Ich versteh nicht was ich flasch gemacht habe
Könnt ihr mir bitte sagen was ich falsch gemacht habe?
Schweini