Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi addieren (https://www.delphipraxis.net/68208-addieren.html)

Pump3r 26. Apr 2006 11:07


addieren
 
Hallo, kann mir vielleicht jemand sagen, wie ich zu 1,50 + 0,10 dazu zähle?

danke, gruß pump :angel:

chrisw 26. Apr 2006 11:09

Re: addieren
 
Delphi-Quellcode:
var a : real;
.....
begin
  .....
  a := 1.5 +0.1;
  showmessage(FloatToStr(a)); //ergibt dann 1,6
 ......
end;

Oder war das ein Scherz ?

Matze 26. Apr 2006 11:10

Re: addieren
 
Hi

Äh, wie meinst du das? Gleitkommazahlen (z.B. Typ: Double) kann man doch normal addieren (1.50 + 0.10), oder habe ich dich jetzt falsch verstanden? :gruebel:


Edit: Red box, where have you been? ^^

Pump3r 26. Apr 2006 11:12

Re: addieren
 
und wie kann ich zb:

q : real;
i : string;
i := ini2.ReadString('handelspreis','1','');

also ist i bei mir: 1.5

jetzt würd ich gerne zu diesen 1.5, 0.1 dazu zählen.

aber: q := i +0.1;
geht nicht.


weiß jemand ne lösung?

danke, pump :angel:

Flare 26. Apr 2006 13:30

Re: addieren
 
Hi Pump3r!

Es geht nicht, weil i bei dir ein String ist! Du müsstest also den String auswerten und in einer Gleitkommazahl speichern.
Delphi-Quellcode:
var
  q,p : real;
  code: integer;
  i : string;
begin
  i := ini2.ReadString('handelspreis','1','');
  Val(i, p, code);
  if code=0 then
  begin
    q := p + 0.1;
    ShowMessage('Der Handelspreis ist '+floattostr(q));
  end;
end;

Flare

//Edit: Falsche Parameter richtig getauscht.

jim_raynor 26. Apr 2006 13:35

Re: addieren
 
Oder auch StrToFloat nutzen, wobei da eventuell eine Exception auftritt wenn im String keine gültige Gleitkommazahl steht.

Pump3r 26. Apr 2006 13:43

Re: addieren
 
flare ich bekomm jetzt eine meldung: inkompatible typen.

Matze 26. Apr 2006 13:47

Re: addieren
 
Zitat:

Zitat von Pump3r
flare ich bekomm jetzt eine meldung: inkompatible typen.

Dann tausche mal i und p. Sieh dir doch an, was für Parameter Val erwartet: Delphi-Referenz durchsuchenVal. Delphi zeigt das doch auch nett als Hint an.

ichbins 26. Apr 2006 13:50

Re: addieren
 
Wandle den String in der Ini einfach mit Strtofloat in eine Gleitkommazahl um:

Delphi-Quellcode:
var
  r:real;
  i:string;
begin
  i:=readstringetc...
 
  r:=strtofloat(i);
  r:=r+0.01;
 
  label1.caption:=floattostr(r);
ausserdem bekommt man Augenkrebs von deinem Programmierstil :cyclops: ;)
Verwende NIE den Variablennamen i für einen String !!!
i heisst integer, c heisst char und s heisst string, diese Namen sind absolut tabu für andere Typen :!:

dieses I als Stringname schränkt die Lesbarkeit des Codes brutal ein. Immer wenn ich ein i sehe weiss ich sofort dass es sich um eine integer handelt.

Flare 26. Apr 2006 13:51

Re: addieren
 
Zitat:

Zitat von Pump3r
flare ich bekomm jetzt eine meldung: inkompatible typen.

Sorry, Parameter vertauscht...aber Matze hats ja schon erklärt :thumb:


Flare


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:24 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz