String --> Single Single-->String

[Klaus01]

Wenn Du dem spanischen ein wenig mächtig bist -> http://www.clubdelphi.com/foros/showthread.php?t=30929
Oder ein wenig einfacher:

Delphi-Quellcode:

function StrToSingle(St : String) : Single;
var
 Code : Integer;
begin
     Val(St,Result,Code);
end;

Grüße
Klaus

[TeronG]

Zitat:

Zitat von Klaus01

Delphi-Quellcode:

function StrToSingle(St : String) : Single;
var
 Code : Integer;
begin
     Val(St,Result,Code);
end;

:gruebel:
macht aus '1,2345678' eine 1
und aus '1.2345678' eine 1,2345677614212

edit: Wo ist nur Hagen (oder einer der andern Mathe/Zahlenprofi's) wenn man ihn mal brauch!? :mrgreen:

[jfheins]

Könnte es sein, dass 1,2345678 als 1,2345677614212 gespeichert wird? Denn bekanntlicherweise sind float werte sowiso nur Nährerungswerte, und ungenau ...

Wenn es dir nur darum geht, eine kurze Zahl im String zu haben, kannst du sie ja auch mit 10000000 multiplizieren und runden ;)

[Robert Marquardt]

Warum verfolgst du meine Idee nicht weiter? Einfach die binaere Repraesentation des Single in einen Hex-String verwandeln und wieder zurueck. Dabei geht kein Bit verloren.
Bei der Konversion von der binaeren Repraesentation ins Dezimalsystem ergeben sich zwingend Ungenauigkeiten. Jede Zahlendarstellung mit endlicher Stellenanzahl umfasst nur eine endliche Menge von Zahlen. Entsprechend gibt es im Zahlenraum viele Luecken. Bei verschiedenen Zahlendarstellungen (binaer, dezimal) sitzen die Luecken an unterschiedlichen Stellen. Bei der Umwandlung werden daher zwingend Zahlen die in eine Luecke fallen wuerden auf die naechstliegende Zahl geaendert.

[DelphiManiac]

@Robert

Hi,
ich glaube das mit der Hexdarstellung werde ich so machen oder so ähnlich, aber mein Problem liegt ausserdem noch hier:

Benutzer gibt einen Fliesskommawert (Koeffizienten einer Polynomberechnung) ein in ein Textfeld,
diesen Wert muss ich als Single Wert abspeichern, d.h. von String nach Single,
jedoch kann Delphi, doch nur StrToFloat mit Extended.

Könnte ihr mir da irgendwie weiterhelfen???

Gruß
DelphiManiac

[Klaus01]

-- war nix, Frage missverstanden --
Klaus

[Robert Marquardt]

Na hier greift einfach die Zuweisung. Mit der Ungenauigkeit muss man leben.

[DelphiManiac]

@Robert


Hi, was meinst du mit :

Delphi-Quellcode:

Na hier greift einfach die Zuweisung. Mit der Ungenauigkeit muss man leben.

Danke Dir!

[DelphiManiac]

Könntet ihr mir eventuell erklären,

was der Paramter Precision (Genauigkeit) bei FloatToStrF
genau macht?

Angenommen ich habe einen Singlewert: 0.00000000000000123456789?


Gracias Community

[alzaimar]

Zitat:

Zitat von DelphiManiac

Angenommen ich habe einen Singlewert: 0.00000000000000123456789?

Es gibt keinen solchen Single-Wert. Die haben nämlich nur 7-8 signifikante Stellen.

Zitat:

Zitat von Die Delphi-Hilfe

The Precision parameter specifies the precision of the given value. It should be 7 or less for values of type Single, 15 or less for values of type Double, and 18 or less for values of type Extended.
The Digits and Format parameters together control how the value is formatted into a string. For details, see the description of TFloatFormat.

Wer lesen kann...