Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
19. Dez 2005
Einen Pferdefuß hat dieser Ansatz - er beschränkt die Zahl der signifikanten Stellen in deiner Real-Variablen auf etwa 8. Vielleicht möchtest du deinen String-Ansatz ja noch etwas im Auge behalten...
Gute Nacht
marabu
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
19. Dez 2005
Das geht nicht?
function Gerundet(rValue: real): real;
begin
Result := Round(rValue * 1000) / 1000;
end;
marabu
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
19. Dez 2005
Besser, du schreibst mal, was du erreichen willst. Was geht rein in deine Prozedur (ein string, welches Format?), was soll raus kommen? Wieder ein String? Du verwendest ohne Not globale Variablen (erg2, erg3, ...), die in deiner Prozedur nicht initialisiert werden. Der Name Runden() suggeriert ja schon etwas. Welches Rundungsverfahren willst du umsetzen? Welche Genauigkeit bzw. wieviele...
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
19. Dez 2005
Herzlich willkommen in der Delphi-PRAXiS.
Offensichtlich scheint das nicht ganz zu stimmen. Du kannst es überprüfen, indem du die fehlerhafte Zeile auf Kommentar setzt und folgende Prozedur aufnimmst:
procedure ConversionTest;
var
s: string;
r: real;