Paradox Currency Feld umschlüsseln?

[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