Paradox Currency Feld umschlüsseln?

[marabu]

Hallo Mitchl,

schau nochmal etwas genauer - auf der Seite wird ein ZIP Archiv mit drei Dateien angeboten. Die Datei PxFormat.txt habe ich mir angesehen, um den Code zu bauen.

Wenn du die Werte aller Felder in allen Datensätzen auslesen willst, dann wirst du dir eine Struktur definieren müssen, die diese Werte aufnehmen kann. Wenn dein Programm mit nur einer Tabellenstruktur umgehen können muss, dann kannst du einen record nehmen, ansonsten musst du mit einer ZeigerListe arbeiten. Den Zugriff selbst würde ich elementarer gestalten - mein Beispiel sollte ja nur die Machbarkeit demonstrieren. Eine vernünftige Signatur für die Zugriffs-Routine könnte so aussehen:

Delphi-Quellcode:

procedure ReadValue(
  s: TStream;           // kann ein memory oder ein file stream sein
  offset: Cardinal;     // stelle ab der gelesen werden soll
  ft: Word;             // der Feldtyp, siehe PxFormat.txt
  len: Word;            // wieviel bytes in den buffer gelesen werden sollen
  var buffer            // hier soll das Ergebnis abgelegt werden
);

Was wird das werden, wenn es fertig ist?

marabu