Manchmal sieht man halt das naheliegende nicht.
Abgesehn davon, daß der Typ ta nutzlos ist.
Verwende statt ta(pa^)[0]
einfach nur pa^
oder PChar(pa)^
.
( ta = array [0..MaxInt div SizeOf(Char)-1] of char;
)
Und wenn die Größe egal ist, dann hätte auch ta = array [0..0] of char;
ausgereicht.
Zusätzlich ist das 0..0 ein Sonderfall, den dieses Array verfügt dann über keine Bereichsprüfung (sollte Dieses in den Projektoptionen aktiviert sein).
ta ist ja nur ein Vehikel um den Daten hinter dem Pointer einen Namen (Struktur) zu geben.
Wenn ich das mit
Array [0..0] of..
Erreiche soll's mir recht sein. Ich finde dazu aber nichts in der
OH. Kannst Du mir da einen Tip geben?
Gruß
K-H