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 :wink:

[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. :wink:

[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 :mrgreen:

[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:

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