String --> Single Single-->String

[DelphiManiac]

Hallo ich habe habe folgendes Problem.
Ich arbeite mit dem Datentyp Single (einfache Genauigkeit nach IEEE)

Nun möchte ich Konvertierungen vom Typ String ( beispielsweise beim Auslesen eines Single Wertes aus einer INI-Datei)
in den Typ Single wandeln,

mache es zurzeit mit der Funktion StrToFloat:

 function StrToFloat(const S: string): Extended; overload; doch hier habe ich das Problem, dass Ungenauigkeiten entstehen, da der Rückgabetyp von StrToFloat höher auflöst (Extended) als
der Datentyp Single...


Hoffe ihr versteht meine Problematik.

Danke euch

[Robert Marquardt]

Max doch einfach eine Hex-Repraesentation des Single.

Delphi-Quellcode:

type
  THexSingle = record
  case Boolean of
    False: (Value: Single;);
    True:  (Hex: array [0..SizeOf(Single)-1] of Byte;);
  end;

var
  Conv: THexSingle;
  S: string;
  I: Integer;
begin
  Conv.Value := 7.326;
  S := '';
  for I := Low(Conv.Hex) to High(Conv.Hex) do
    S := S + Format('%.2x', [Conv.Hex[I]]);
end;

Ich glaube die umgekehrte Konversion kriegst du alleine hin.

[DelphiManiac]

Hi!!

Würde gerne eine Funktion haben, die mir Bsp.: '1,2345678' als Single speichert
Gibt es keine Delphi Funktion die mir aus einem String den entsprechenden Single zurückgibt (nicht als Extended)?

[TeronG]

Und einfach die Extended runden geht nicht!? (Genauigkeit wegrunden: Weichzeichner für Zahlen )

[OldGrumpy]

Gibt es denn einen zwingenden Grund, mit Single zu arbeiten? Ich habe hier zufällig gerade ein Projekt vorliegen wo ebendies zu groben Darstellungsungenauigkeiten führt (was allerdings auch teilweise auf "unelegante" Handhabung zurückzuführen ist...)

[DelphiManiac]

Wie meinst du das mit wegrunden?

Nunja ich habe folgende Stringdarstellung einer Single Zahl:

'1,2345678'

daraus ergibt sich

1,2345677844578 oder so ähnlich

[DelphiManiac]

@OldGrumpy:

Ja der Datentyp Single ist hier zwingend erforderlich,
da eine Kommunikation mit einem uController besteht und der auf Single-Basis rechnet.

Deswegen kann ich nicht höher gehen als der uC kann...

[OldGrumpy]

Da hab ichs ja richtig gut, hier rechnet die Software alles in grosse Integers um die dann an den µC gehen

[TeronG]

Zitat von DelphiManiac:

Nunja ich habe folgende Stringdarstellung einer Single Zahl:

'1,2345678'

daraus ergibt sich

1,2345677844578 oder so ähnlich

Schon komischer ... wenn ich mich mit den Zahlentypen besser auskennen würde währs bestimmt logisch ^^
naja das mit dem Runden hab ich grade getestet und so einfach mit roundto(x,-7) geht's doch nicht

[DelphiKlaus]

Bei einer Konvertierung von String nach Single nach String wird in den seltensten Fällen wieder das Original herauskommen, da Single nur sieben bis acht Stellen speichern kann. Es kann bei reellen Zahlen nur eine sehr beschränkte Teilmenge des Zahlenvorrats abgebildet werden und das führt dann eben zu Rundungsproblemen.