Paradox-Feldtypen zuweisen

[LOMBI]

Hallo marabu,

schön, von Dir zu hören. Ich hab's nun irgendwie ohne die
Funktion TryStrToFloat geschafft:

Meine Lösung:

Delphi-Quellcode:

procedure TFArtikelListe.BtnNeuClick(Sender: TObject);
var
  Value: Double;
    begin
      FArtikel.Show;
      with FArtikel do
        begin
          QueryArtikel.SQL.Text := 'SELECT * FROM Artikel';
          QueryArtikel.Open;
          QueryArtikel.Append;
          QueryArtikel.FieldByName('EAN').AsString := EditEAN.Text;
          QueryArtikel.FieldByName('ArtBez').AsString := EditBez.Text;
          QueryArtikel.FieldByName('MwSt').AsFloat := Value;
          QueryArtikel.FieldByName('EKpreis').AsFloat := Value;
          QueryArtikel.FieldByName('VKbrutto').AsFloat := Value;
          QueryArtikel.FieldByName('Anfangsbestand').AsFloat := Value;
end;

Übrigens verwende ich jetzt für Währungs- und Bestandsfelder den Typ
(n)umerisch.

Lombi