Gespeicherte (n)umerische Daten anzeigen, ggf. ändern

[LOMBI]

Geschafft!

So werden die (n)umerischen Werte aus der Tabelle korrekt mit 4 Dezimalstellen in die Edits nach Query.Edit eingelesen:

Delphi-Quellcode:

procedure TDemoForm.BtnEditClick(Sender: TObject);
begin
  FArtikel.Show;
    with FArtikel do
      begin
      QArtikel.Edit //Änderungsmodus
      EditBez1.Text := QArtikel.FieldByName('ArtBez1').AsString;
      ...
      EditEKpreis.Text := Format ('%0.4f',
      [QueryArtikel.FieldByName('EKpreis').AsFloat]);
      EditVKbrutto.Text := Format ('%0.4f',
      [QueryArtikel.FieldByName('VKbrutto').AsFloat]);
      ...
   end;

Gruß
Lombi