Paradox Currency Feld umschlüsseln?

[Mitchl55]

Hallo marabu,

wenn ich so weiter mache werde ich auch noch ein sehr aktives Mitglied, allerdings im Fragen stellen!?

Den Link habe ich heute morgen auch in meinem Postfach von einem Bekanntem gehabt, hab allerdings in den Downloads nichts gefunden...da war meine ich nur eine *.PAS oder?

Hoffe ich habe jetzt das letzte Problem / Habe das so umgebaut um sie weiter nutzen zu können:

Delphi-Quellcode:

procedure TForm1.ReadValues(fn: TFileName; offset: Cardinal; xc: String; z: integer; a: integer);
var
  fs: TFileStream;
  s: String;
  d: Double;
  c: Cardinal;
// xc: Feldtyp wird übergeben
//  z: Stringlänge
//  a: Field Name Position in der Tabelle - Wird aus String Grid genommen
begin
  fs := TFileStream.Create(fn, fmOpenRead, fmShareDenyWrite);
  fs.Position := offset;

  if xc = 'String' then begin
     // 20 Bytes einlesen
     SetLength(s, z);
     fs.Read(s[1], Length(s));
     // bei trailing 0 abschneiden
     s := PChar(s);
//     Table1[Stringgrid1.cells[0,a+1]] := s;
     ShowMessage(Format('string = "%s"', [s]));
  end;

  if xc = 'Currency' then begin
  // 8 byte currency value einlesen
  fs.Read(d, SizeOf(d));
  // highbit umkehren
  SwitchHighBit(d);
  // byte order umkehren
  SwapBytes(d, SizeOf(d));
  ShowMessage(Format('double = "%f"', [d]));
  end;

  if xc = 'Date' then begin
  // 4 byte date einlesen
  fs.Read(c, SizeOf(c));
  // highbit umkehren
  SwitchHighBit(c);
  // byte order umkehren
  SwapBytes(c, SizeOf(c));
  // Zahl der Tage seit der Zeitrechnung
//  ShowMessage(Format('paradox date = "%d"', [c]));
  // Umwandeln nach Delphi Date
  ShowMessage(DateToStr(ParadoxDate(c)));
  end;

  if xc = 'Float' then begin
  // 8 byte currency value einlesen
  fs.Read(d, SizeOf(d));
  // highbit umkehren
  SwitchHighBit(d);
  // byte order umkehren
  SwapBytes(d, SizeOf(d));
  ShowMessage(Format('float = "%f"', [d]));
  end;
  fs.Free;

end;

Ich Rufe die Procedure "procedure TForm1.ReadValues(fn: TFileName; offset: Cardinal; xc: String; z: integer; a: integer);" aus Button1.click auf und möchte die Daten dann in Table1 speichern. Diese habe ich aber schon geöffnet in der Button1 Procedure.

Wie könnte ich die Werte denn am elegantesten speichen? Zeilenweise?

Danke

Mitchl