StrToFloat bei Datenexport

[mmw]

Hallo,

oder so

'Data.DB.TField.DisplayFormat'

https://docwiki.embarcadero.com/Libr....DisplayFormat

Gruß

[OsCor]

Mist, ich drücke mich offensichtlich immer noch nicht genau genug aus. Dein Code-Beispiel (KodeZwerg) ist mir völlig klar. Aber es gibt nach meinem jetzigen Wissen keine Möglichkeit, eine Gleitkommazahl formatiert in ein Zahlenfeld meiner Datenbank zu übertragen. In der Datenbank befindet sich der gleiche Wert, wie ihn StrToFloat erzeugt.
Inhalt des Edit-Feldes: 1,1
Übertragung in die Datenbank über ADOTable: ADOTable1.FieldByName('Säure').AsFloat := StrToFloat(Edit1.Text) --> In der Datenbank steht 1,10000000345
Retrieval per DBGrid: in der Zelle für das Feld 'Säure' steht der Wert 1,10000000345

So wie es aussieht, wäre die einzige Möglichkeit, Zahlenwerte in einem Grid formatiert darzustellen, etwa das Stringgrid - vom Layout her wirklich umständlich zu bewerkstelligen.
Im Moment tendiere ich dazu, die Datenbankfelder für Zahlen als Textfelder zu definieren und Abfragen in Delphi zu erstellen.
Meine Hoffnung war ja, dass es vielleicht doch einen Weg geben könnte, Zahlenwerte aus der Datenbank korrekt im DBGrid darzustellen.

@Uwe Raabe Das ist mir schon klar, deswegen vergleicht man ja Gleitkommawerte nicht direkt.

@mmw An welcher Stelle könnte ich das einsetzen? Wenn ich ein DBGrid habe und an eine Tabelle anbinde, gibt es doch keine Filtermöglichkeit mehr dazwischen, oder?

Gruß
Oswald

[mmw]

Hallo,

dazu muß man die entsprechenden Felder hinzufügen.

d.h. z.B. eine

'TTable' - Komponente mit recht's klick, dann die gewünschten Felder hinzufügen. Anschließend kann man im Objectinspector
die Felder entprechend bearbeiten.

siehe Anhang

Gruß

[himitsu]

Wie gesagt, bei DB-Komponenten (besseren DBGrids, als dem von Delphi
oder direkt in der DataSource (TFloatField/TNumericField.DisplayFormat)

Die TFields kann man zur Designtime erstellen oder erstellen lassen
oder es zur Laufzeit zuweisen.
Sind beim Open keine Fields vorhanden, dann werden sie automatisch generiert.
Sobald man auch nur ein Field vorm Open selbst erstellt, dann muß man alle Fields selbst erstellen/erstellen lassen.

Delphi-Quellcode:

ADOTable1.FieldByName('Säure').AsFloat := StrToFloat(Edit1.Text);

ADOTable1.FieldByName('Säure').AsString := Edit1.Text;  // wenn das ein NUMERIC ist

[Uwe Raabe]

Zitat von himitsu:

Sobald man auch nur ein Field vorm Open selbst erstellt, dann muß man alle Fields selbst erstellen/erstellen lassen.

Das ist aber schon etwas veraltet.

Mit FieldOptions.AutoCreateMode := acCombineAlways werden alle Felder angelegt, die nicht statisch sind. FieldOptions.PositionMode steuert, wo die automatisch erzeugten platziert werden, und mit FieldOptions.UpdatePersistent kann man die statischen Felder auch noch an die tatsächliche Datenfeldgröße (z.B. bei Stringfeldern) anpassen.

[himitsu]

Na das ist ja mal zu praktisch.

[Sinspin]

Ich denke du solltest erstmal nachdenken was du überhaupt speichern willst. Für Geldbeträge gibt es andere Datentypen die das Gleitkomma Problem nicht haben.
BCD / Numeric oder in modernen Datenbanken Currency.
Da fällt das ganze gezerre über mysteriös auftauchenden winzigen Beträgen weg.

[Jasocul]

Zitat von Uwe Raabe:

Zitat von himitsu:

Sobald man auch nur ein Field vorm Open selbst erstellt, dann muß man alle Fields selbst erstellen/erstellen lassen.

Das ist aber schon etwas veraltet.

Mit FieldOptions.AutoCreateMode := acCombineAlways werden alle Felder angelegt, die nicht statisch sind. FieldOptions.PositionMode steuert, wo die automatisch erzeugten platziert werden, und mit FieldOptions.UpdatePersistent kann man die statischen Felder auch noch an die tatsächliche Datenfeldgröße (z.B. bei Stringfeldern) anpassen.

Gut zu wissen. Danke Uwe

[Frickler]

Zitat von mmw:

dazu muß man die entsprechenden Felder hinzufügen.

Ist doch gar nicht nötig. Nach dem Öffnen der Datenmenge:

TFloatField(ds.FieldByName('feldname')).DisplayFormat := '0.00';