@Daniel, okay. Nächste mal will ich versuchen, besser zu werden.
Aber wie schon geschrieben:
- das auslesen der Größe ist kein Problem
- habe nun "packed record" und die Datei test.bin ist nur noch 42 Byte groß
- im Designer wie auch zur Laufzeit bekomme ich eine
AV, und der Debugger Stack im Designer zeigt mir nicht die richtigen Werte für:
var op: TInstruction;
op := Instruction[0].f;
an.
ich bekomme dann eine
AV, und der Debugger springt dann an.
Und dort ist dann auch die Stelle, wo ich festsitze - wie ich schon schrieb, bei:
var op : TOpCode;
op := Instruction[p].f;
@kas ob:
The file is created by the source code, you can see it in this Post.
I called it 'test.source.bin' at:
LexScanner('test.source.pas');
- test.source.pas is the script source file
- in source code, i change the .pas Extension with .bin:
s := ChangeFileExt(filename,'.bin');
where "filename" is: 'test.source.pas'.