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