Paradox Currency Feld umschlüsseln?

[Mitchl55]

Hallo,

habe maln (Für ein Prog) eine Paradox-Datenbank byteweise eingelesen.

An der Stelle der Curreny-Werte z.B. 555,55€ steht " €�\fffff€ "
auf der Festplatte! Weiß jemand wie ich aus diesem Wert wieder
die Zahl umschlüsseln kann. Oder unter welchen Stichwörtern ich
im Netz nochmal nachschlagen könnte?

Danke & Gruß

Mitchl

PS: Auch Nummeric Felder werden nicht als Zahl abgespeichert?!?

[marabu]

Hallo,

bist du sicher, dass du an der richtigen Stelle nachgesehen hast? Paradox speichert currency und numeric fields als double precision - das sind 8 Byte - wenn du die Adresse kennst, dann kannst du sie in eine Variable vom Typ Double einlesen - kein Umcodieren nötig.

Grüße vom marabu

[Mitchl55]

Hallo,

Zitat:

@marabu

Zuerst einmal vielen Dank für Deine Unterstützung, ohne Dich wäre ich jetzt nicht so weit! Vielleicht könntest Du mir das mit dem Umwandeln des Types von Double in Curreny an einem Showmessage Beispiel erklären???

ich habe dann mal wieder nachgeschaut! in den schon dargestellten Zeichen:

Zitat:

Curreny-Werte z.B. 555,55€ steht " €�\fffff€ "

muss sich irgendwie der Wert 555,55€ Verbergen. Wie Du schon sagtest sind das 8Byte, damit kommt man dann auf eine 64bit Code. die maximale Zahl die sich daraus ergibt ist +922.337.203.685.477,5808 15-Vorkommastellen und 4-Nachkommastellen die minimale Zahl ist -922.337.203.685.477,5808. Jetzt habe ich recherchiert, aber immer noch das Problem wie ich aus den 8Byte ("�\fffff€") die Zahl 555,55€ mache? Ich weiß nicht ob der Begriff "Festkommazahl" da weiterhilft.

Danke & Gruß

Mitchl

[marabu]

Hallo Mitchl,

wenn du weißt an welcher Stelle in der Datei die Information steht, dann kannst du sie z.B. so einlesen:

Delphi-Quellcode:

procedure ReadDouble(fn: TFileName; offset: Cardinal; var d: Double);
var
  fs: TFileStream;
begin
  fs := TFileStream.Create(fn, fmOpenRead, fmShareDenyWrite);
  try
    fs.Position := offset;
    fs.Read(d, SizeOf(d));
  finally
    fs.Free;
  end;
end;

Grüße vom marabu

[Mitchl55]

Hey, vielleicht wieder ne blöde Frage jetzt??!!!???

Kann ich mir die aus der Procedure dann z.B. mit Showmessage anzeigen lassen?
Wollte das mal Prüfen, bin leider nicht so Delphi-Fit wie Du/Ihr...

z.B. Bei Button6 Procedure einlesen ausführen und dann Showmessage? etc...

vielen Dank

Mitchl

[marabu]

Ja sicher das.

ShowMessage(Format('%m', [d])); marabu

[Mitchl55]

Binde ich die Abfrage den so ein? Die Datei habe ich einen Schritt vorher schon
komplett eingelesen und die Datenreihenfolge habe ich in der Variable ba[i]
gespeichert. Dann kann doch das:

fs.Read(d, SizeOf(d)); an der Stelle wegfallen oder?

So habe ich das nicht hinbekommen....:

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var:
a : integer;
w : double;
begin
a := 1;
w := '';

    For a = 1 to 8 do begin
        w := w + ba[i+a];
    end;

    ReadDouble(GetCurrentDir+'\'+File, Cardinal, w);
    ShowMessage(Format('%m', [w]));

end;

Danke

Mitchl

[marabu]

Ach Mitchl, was treibst du da? Hast du schonmal probiert deinen Code zu kompilieren? Eine Variable w vom Typ Double kannst du nicht mit einem leeren String initialisieren. Ich habe Zweifel, ob du überhaupt weißt, an welchen Offsets in einer Tabellendatei - das sind die mit der Erweiterung .db - currency Werte stehen. Und wenn du die Datei vorher schon komplett eingelesen hast, dann zeige die 2 Statements bitte auch, damit ich den Code in seinem Kontext sehe. Die Art, wie du meine Funktion ReadDouble in deinen Code eingebaut hast, macht mich auch stutzig. Weißt du wirklich, was du da machst?

Sorgenvolle Grüße vom marabu

[Mitchl55]

Also, ich denke schon ich weiß was ich will, nur an der Umsetzung habe ich wohl meine Probleme.

Also Deine Procedure kann ich nicht richtig einbinden, dazu bin ich zu dumm! Leider! Glaube ich!

Ich denke aber mit Deiner Procedure gebe ich dem PC eine Datei vor die Eingelesen wird und aus der
eine String von der Position x als Typ double ausgegeben wird?

Die Datei habe ich jetzt aber bereits zurvor eingelesen! Komplett Variable ba[i]! Und ich weiß an welche Position der
Teil für den Typ Currency steht! Er ist 8Byte lang! Diesen muss ich jetzt nur umwandeln in das Format Currency! Und
zur Prüfung als Showmessage wollte ich mir diesen dann anzeigen lassen! Dachte das das mit der Procedure geht?

vielen Dank fürs Verständniss, ich arbeite hart an meinen Programmierkenntnissen...


Mitchl

[marabu]

Du hast genau verstanden, was meine Prozedur macht.

Wenn sich der Inhalt deiner Tabelle in einem ByteArray befindet, dann kannst du die 8 Byte, anstatt sie zu lesen, einfach in eine Variable passenden Typs kopieren:

Delphi-Quellcode:

uses
  Types;

function ExtractDouble(ba: TByteDynArray; offset: Cardinal): Double;
begin
  Result := PDouble(@ba[offset])^;
end;

Wie du den Wert anzeigen kannst, habe ich dir schon gezeigt.

Zitat von Mitchl55:

ich arbeite hart an meinen Programmierkenntnissen...

... und ich helfe dir gerne dabei - denke bitte nichts anderes.

Freundliche Grüße vom marabu