Formatierung von Floatfeldern in der Anzeige

[jan138]

Moin,

ahbe mit Delphi6, ADO-Table über eine ODBC-Schnittstelle auf eine MYSQL-Datenbank zugegriffen. Daten werden sauber geschrieben und stehen auch richtig in der Datenbank. Überprüft mit SQL-Statement.

Wenn ich in Delphi eine nackte sicht auf die Daten anzeige, um die Daten kontrollieren zu können, dann haben die Float-Felder ewig viele Nachkommastellen. In der Datenbank steht aber nur eine Nachlommastelle.

Wie kann ich es hinbekommen, das nur die wirklichen Nachkommastellen angezeigt werden?

Vielen Dank im vorraus.

Jan

[Jelly]

Klick mal recht auf deine ADO Table und wähle Feldeditor, und füge dort erst mal alle Tabellenfelder hinzu. Danach kannst du für dein Float Feld im Object inspector die Eigenschaft DisplayFormat anpassen, und z.B. auf ,0.00 setzen, um tausendertrennzeichen und 2 Kommastellen zu erhalten.

[jan138]

ist eine Möglichkeit. Möchte aber einfach nur die Daten aus der Datenbank und irgentwo muß es da eine falsche Übersetzung geben. Kann man das nicht generell irgentwo einstellen?

mfg Jan

[shmia]

Der Fehler liegt wahrscheinlich am ODBC-Treiber.
Es wird statt einem TBCDfield ein TFloatField erzeugt.
Oder es wird [TBCDfield].Precision nicht auf den korrekten Wert gesetzt.
Wie wird denn dein Feld nun abgebildet ?
ShowMessage(ADOQuery1.FieldByName('DasFeld').Classname);

[jan138]

Moin,

hast Recht es ist ein TFloatField.

Was kann man machen, damit man das richtige Format bekommt?

mfg Jan

[shmia]

Zitat von jan138:

hast Recht es ist ein TFloatField.
Was kann man machen, damit man das richtige Format bekommt?

Delphi-Quellcode:

procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet);
begin
   (DataSet.FieldByName('DasFeld') as TFloatField).DisplayFormat := '##0.0';
end;

[Thanatos81]

Oder, für die ganz Schreibfaulen:

Delphi-Quellcode:

procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet);
begin
   TFloatField(DataSet.FieldByName('DasFeld').DisplayFormat := '##0.0';
end;

bzw.

Delphi-Quellcode:

procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet);
begin
   TFloatField(DataSet.FieldByName('DasFeld').DisplayFormat := '#,##0.00 €';
end;

für einen Euro-Wert mit Tausendertrennzeichen und zwei Nachkommastellen.

[jan138]

Vielen Dank für die Hilfe.

mfg jan