Announcement

Collapse
No announcement yet.

delphi 1 und string in double konvertieren!

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • delphi 1 und string in double konvertieren!

    hi,

    wie konvertiert man mit delphi 1 einen string in einen double?<br>
    folgendes versagt: <br>

    eurofaktor := inifile.readstring 'Währung','Euroumrchnungsfaktor','1,95538');
    val(eurofaktor,euro,code);<br>
    Showmessage(inttostr(code));<br>

    er stört sich wohl am komma!!! <br>
    wer weiß rat?<br>

    gruß

    markus
    Herzliche Grüße

    Markus Lemcke
    barrierefreies Webdesign

  • #2
    Hi Markus,

    Manchmal wirkt ein Blick in die Hilfe Wunder.

    procedure Val(S; var V; var Code: Integer);
    S ist ein String-Ausdruck und muß einer vorzeichenbehafteten ganzen Zahl entsprechen.

    mfg Klaus-Pete

    Comment


    • #3
      Hallo Markus,<p>
      ich möchte nicht kleinkariert sein aber falls Dein Programmcode<br>
      real eingesetzt wird, sollte auch der korrekte Umrechnungskurs<br> des Euros eingegeben werden:<br>
      1,955<b>83</b> anstatt 1,955<b>38</b><p>
      siehe auch unter<p>
      http://europa.eu.int/euro/html/rubrique-cadre3.html?pag=rubrique-defaut3.html|lang=3|rubrique=196|chap=13
      Nur so als Hinweis.<p>
      Gruß, Tom

      Comment


      • #4
        kann sein ich habe mich vertippt!!<br>
        habe es nicht mehr im kopf!! <br>

        gruß

        marku
        Herzliche Grüße

        Markus Lemcke
        barrierefreies Webdesign

        Comment


        • #5
          Hallo Markus und auch Klaus-Peter,

          in procedure val(S,...)
          muss S keineswegs eine vorzeichenbehaftete ganze Zahl sein, sondern
          kann auch eine reelle Zahl sein.
          Die Dezimalstellen müssen allerdings tatsächlich durch einen
          Punkt - und nicht durch ein Komma - getrennt sein.

          Mit freundlichem Gruss
          Jochim

          wein Blick in die Hilfe genügt nicht, man muss sie auch lesen k&#246

          Comment

          Working...
          X