Paradox-Feldtypen zuweisen

[LOMBI]

Hallo,

könnt Ihr bitte mal sehen, ob ich die richtigen Feldtypen gewählt habe:

Feldname Typ

MwSt N
EAN N
EKpreis $
VKnetto $
VKbrutto $
Anfangsbest N
Abgang N

Vielen Dank!

Gruß
Lombi

[Dax]

N? $? :gruebel:

[MrSpock]

Hallo Lombi,

als Bestand und Abgang könntest du wohl besser I(nteger) nehmen. Ansonsten ist N(umerisch) und $(Währung) wohl OK.

[LOMBI]

Hallo MrSpock,

das Problem ist, dass ich nach dem Compillieren für einige der Felder
Meldungen erhalte, wie z.B.:
'EditEAN' ist kein gültiger Fließkommawert für Feld 'EAN'

Was stimmt denn bei den folgenden Codes nicht?

Delphi-Quellcode:

...
QArtikel.FieldByName('EAN').AsString := EditEAN.Text //n(umerisch)?
QArtikel.FieldByName('MwST').AsString := CBMwSt.Text //n(umerisch)?
QArtikel.FieldByName('EKPreis').AsString := EditEKPreis.Text //$(Währung)?
QArtikel.FieldByName('VKnetto').AsString := EditVKPreis.Text //$ (Währung)?
QArtikel.FieldByName('Anfangsbestand').AsInteger := EditAbest.Text //I(nteger)?
...

Danke für die Hilfe!

Gruß
Lombi

[marabu]

Hallo Lombi,

wenn du Feldkomponenten eines BDE DataSets mit Werten belegst, dann solltest du die passende property verwenden - Currency-Werte (nicht BCD) werden so zugewiesen:

Delphi-Quellcode:

var
  dValue: Double;
begin
  if TryStrToFloat(EditEKPreis.Text, dValue)
    then QArtikel.FieldByName('EKPreis').AsFloat := dValue
    else QArtikel.FieldByName('EKPreis').Clear;

Ob die EAN nicht besser als String gespeichert wird?

Grüße vom marabu

[LOMBI]

Hi marabu,

wie bitte werden numerische Felder zugewiesen? .AsString?
'EAN' habe ich auf (A)lphanumerisch geändert.

Erhalte leider immer noch Fehlermeldungen:
undefinierter Bezeichner:'TryStrToFloat'
Ungültiger Wert für Feld 'MwSt'
'EditABest' ist kein gültiger Integerwert für Feld 'Anfangsbestand'

Hab's bei den Mengen auch schon ohne Erfolg mit (N)umerisch versucht!

Viele Grüße
Lombi

[eddy]

Hallo LOMBI,

bei Dir herrscht wohl noch ein bisschen Caos bezüglich der Datentypen.

N Numerisch tab.FieldByName('MwSt').AsFloat := 16.0;
tab.FieldByName('MwSt').AsFloat := StrToFloat('16.0');

I Integer tab.FieldByName('Bestand').AsInteger := StrToInt(editBestand.Text);
L Logisch tab.FieldByName('logik').AsBoolean := 'falsch'; // oder 'wahr'
A Alphanumer. tab.FieldByName('Suchtext').AsString := EditSuchtext.Text;

Währungsfelder verwende ich nicht, da bevorzuge ich den Typ N

Bestand kann auch vom Typ N sein, wenn Nachkomma-Werte vorkommen dürfen z.B. Bestand = 30.5 Meter

mfg
eddy

[MrSpock]

Hallo eddy,

da hat sich noch ein Fehler eingeschlichen:

Delphi-Quellcode:

{L Logisch}
 tab.FieldByName('logik').AsBoolean := False; // oder True ohne Anführungsstriche

[marabu]

Hallo Lombi,

eventuell gibt es die Funktion TryStrToFloat() unter D3 nicht - hier ein preiswerter Ersatz:

Delphi-Quellcode:

function TryStrToFloat(const S: string; out Value: Extended): Boolean;
var
  code: Integer;
begin
  Val(S, Value, code);
  Result := Code = 0;
end;

Grüße vom marabu

[raiguen]

Moin :-)
@marabu: Deine Funktion wird bei der deutschen Schreibweise eines Gleitkommawertes (23,456)immer FALSE zurückgeben ;-)
Die Funktion müsste dann etwas umgeändert werden:

Delphi-Quellcode:

function TryStrToFloat(S: string; out Value: Extended): Boolean;
var
  code: Integer;
begin
  //--Komma durch Punkt ersetzen
  S:= StringReplace(S, ',','.',[]);
  Val(S, Value, code);
  Result := (Code = 0);
end;

oder diese Funktion benutzen:

Delphi-Quellcode:

function IstGleitkommazahl(S: String; out Value: Extended): Boolean;
begin
  Result := TextToFloat(PChar(S), Value, fvExtended);
end;