StrToCurr (Pascal-Script) #

Beschreibung #

StrToCurr konvertiert einen String, der eine Gleitkommazahl darstellt, in einen Währungswert.

Syntax #

function StrToCurr(const S: string): Currency;

Argumente #

Mit StrToCurr kann der String S in einen Gleitkommawert konvertiert werden. S kann ein Vorzeichen (+ oder –), einen String mit Ziffern und einem optionalen Dezimaltrennzeichen und eine optionale Mantisse enthalten. Die Mantisse setzt sich aus ‘E’ oder ’e’, einem optionalen Vorzeichen und einer ganzen Zahl zusammen. Leerzeichen am Anfang und Ende werden ignoriert.

Als Dezimalkomma ist abhängig von der Landeseinstellung des Betriebssytems. Bei einer Deutschen Installation von Windows ist es standardmäßig ein Komma. Tausendertrennzeichen und Währungssymbole sind nicht zulässig. Enthält S keinen gültigen Wert, wird ein Kompilierfehler ausgelöst.

Beispiel #

var
  S1 : String;
  c : Currency;
  S2 : String;
begin
  S1:='12,35';
  c:=StrToCurr(S1);
  c:=c+15;
  S2:=CurrToStr(c);
  ShowMessage(S2);
end;

Der String-Variablen S1 wird der Text ‘12,32’ zugewiesen. Dieser wird über die Funktion StrToCurr in einen Gleitkommawert umgewandelt und der Variablen c zugewiesen. Anschließend wird auf c ein Wert von 15 addiert und das Ergebnis mit CurrToStr in S2, einen String rückkonvertiert. Mit ShowMessage wird S2 ausgegeben; es wird 27,35 angezeigt. Beachten Sie, dass bei StrToCurr die Landeseinstellung für die Eingabe des Komma relevant sind.

ShowMessage zeigt: 27,35