E2149 Klasse besitzt keine Standardeigenschaft in Zeile 57 (die Zeile mit den Pointern).
Unterkringelt wird das die eckige Klammer auf beim [i]
Wo steht der Text-Cursor (nach dem Kompilieren),
bzw. wo nach dem Doppelklick auf die Fehlermeldung?
Ich weiß aber auch nicht wie er hier auf "Klasse" kommt.
OK, vielleicht eine leicht missverständliche StandardMeldung die eigentlich heißt "Punkt geht hier nicht, weil ist keine Klasse oder Record".
https://github.com/superflexible/TGP...tgputtylib.pas
Delphi-Quellcode:
fxp_name=record
filename,longname:PAnsiChar;
attrs:fxp_attrs;
end;
Pfxp_name=^fxp_name;
Tfxp_name_array=array[0..20000000] of fxp_name;
Pfxp_name_array=^Tfxp_name_array;
fxp_names=record
nnames:Integer;
names:Pfxp_name;
end;
Pfxp_names=^fxp_names;
names = pointer auf fxp_names
(bei nachfolgendem . dereferenziert Delphi automatisch)
names^ = das fxp_names
also hier eigentlich egal ob mit oder ohne ^
names^.nnames oder names.nnames = die Anzahl
names^.names oder names.names = Zeiger auf das Namen-Array
names^.names^ oder names.names^ = das Namen-Array
also müsste
names.names^[i]
eigentlich der Array-Zugriff sein
names.names^[i].filename
der Zugriff auf ein Feld einer der Records im Array.
[EDIT]
Ahhhhhhhm jetzt seh ich es.
fxp_names.names ist ein Zeiger auf den "ersten" Record, nicht auf das Record-Array.
fxp_names=record ... names:Pfxp_name;
und nicht ... names:Pfxp_name_array;
, obwohl ja ein Array gemeint ist.
Physisch ist es das "Gleiche", aber logisch vom Verhalten her eventuell unterschiedlich.
Also sollte eigentlich doch
names.names[i].filename
oder
names^.names[i].filename
funktionieren,
wenn die Zeigerarithmetik aktiv ist.
Ist die bei dir etwa ausgeschaltet?
OK, so oder so, sollte es dann gehen, wenn du selber auf das Array castest.
Pfxp_name_array(names.names)[i].filename
Oder so, falls der direkte Cast sich weigert.
Pfxp_name_array(Pointer(names.names))[i].filename