String in Integer wandeln.

[smart]

Wie kann man ein String: 1,29 in Integer umwandeln. Mit StrToInt geht es nicht. Da kommt eine Fehlermeldung. Ich habe das schon mal hinbekommen, leider wieder vergessen.

[Zacherl]

StrToFloat

[Airblader]

1,29 ist natürlich kein Integer

Wenn du ein Float draus machen willst, siehe über mir.

Soll es doch ein Integer sein, müsstest du mit entsprechenden Funktionen wie round, ceil oder floor runden

Also z.B.:

Delphi-Quellcode:

var
   zahl: string;
   floatzahl: float;
   integerzahl: integer;
begin

zahl := '1.29'; // Dein String

// Umwandeln in Float
floatzahl := StrToFloat(zahl);

// Umwandeln in Integer
integerzahl := StrToInt(Round(StrToFloat(zahl))); // = 1
integerzahl := StrToInt(Ceil(StrToFloat(zahl))); // = 2
integerzahl := StrToInt(Floor(StrToFloat(zahl))); // = 1

D.h:

Du rundest(zahlabhängig/auf/ab) die Zahl, indem du sie vorher zu einem Float machst und sie nach dem Runden in den Integer wandelst

Round = "mathem.", zahlenabhängiges Runden
ceil = Aufrunden
floor = Abrunden

air

[smart]

Nein, es Sollte nicht gerundet werden. Eigendlich brauch nur das Komma entfernt zu werden und dann könnte man bei der Ausgabe /100 verwenden.

[Zacherl]

Dann Multipliziere den Wert doch erst mit 100.

[smart]

Nur, man kann ein String leider nicht Multiplizieren.

[Die Muhkuh]

Mach halt so:

Mach nen Float draus, multipliziere mit 100, mach nen Integer draus und dividiere wieder mit 100. Umständlicher und ungenauer wird halt nich gehen

[smart]

Auf die Idee bin ich auch schon gekommen, was mich daran stört ist nur, dass jeder dummer Taschenrechner dann genauer rechnet.

[Die Muhkuh]

Dann bleibt dir nichts anderes übrig, es so zu machen, wie Airblader.

[Lannes]

Hallo,

Zitat von smart:

Nein, es Sollte nicht gerundet werden. Eigendlich brauch nur das Komma entfernt zu werden und dann könnte man bei der Ausgabe /100 verwenden.

Komma entfernen:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var i : Integer;
    s : String;
begin
  s := Copy('1,20',1,Pos(',','1,20')-1);
  s := s + Copy('1,20',Pos(',','1,20')+1,10000);
  i := StrToInt(s);
end;

MfG Lannes