StrToFloat bei Datenexport

[KodeZwerg]

ich vermute mal was himitsu sage wollte, deine denkweise ist an der stelle etwas falsch.
ich gebe dir ein beispiel, vielleicht kommst du so einen schritt weiter.

Delphi-Quellcode:

var
  d: double;
begin
  d := 1.99;
  Label1.Caption := FormatFloat('0.00', d);
end;

intern hat der "d" wert wie das von dir erwähnte endlos lange nachkommastellen zeug, es ist numal eine fließkomma zahl.
wenn du dir nun Label1 anschaust wirst du feststellen das es bei "1,99" bleibt dank formatierung.

[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.

[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';