Nutzung von Routinen / Fehler E2016 bei Array

[himitsu]

Zitat von H.Bothur:

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

[H.Bothur]

Zitat von himitsu:

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?

Wo kontrolliere ich das denn ?

Zitat:

OK, so oder so, sollte es dann gehen, wenn du selber auf das Array castest.
Pfxp_name_array(names.names)[i].filename

Das scheint zuz klappen ... keine Fehlermeldung mehr und das Programm scheint so zu funktionieren
Danke für deine Hilfe !

Gruss
Hans

[himitsu]

https://docwiki.embarcadero.com/RADS...r_Math_(Delphi)
Ohhh, es ist wohl doch standardmäßig aus.

Und ich hätte eine Option z.B. in Projektoptionen > Erzeugen > Delphi-Compiler > Compilieren erwartet (die standardmäßig True wäre) ... aber nö.

Dachte ist an, weil es bei mir meistens geht (mit Inc), ohne dass ich es anschalten mußte.
Und es IMHO doch keinen Unterschied zwischen Inc(P, 4); und P := P + 4; gibt.

Delphi-Quellcode:

{$POINTERMATH ON}  // Fehler wenn OFF

procedure TForm1.FormCreate(Sender: TObject);
var
  P: PInteger;
  R: PRect;
begin
  P := nil;
  R := nil;
  Inc(P);  // entspricht P[1] bzw. Inc(P, 4) für P[4]
  Inc(R);

  // [DCC Fehler] E2015 Operator ist auf diesen Operandentyp nicht anwendbar
  P := P + 4;  // entspricht Inc(P, 4) also P[1+4]
  R := R + 4;

  // [DCC Fehler] E2016 Array-Typ erforderlich <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  if P[3] = 0 then ;  // entspricht P[1+4+3]
  if R[3].Left = 0 then ;
end;

Bis Delphi XE zurück ist es Default OFF,
aber hätte sein können, dass es ganz früher (z.B. Delphi 7) mal ON war.

Aber wenn ich jetzt danach suche ...
https://github.com/superflexible/TGP...ntMainForm.pas

Delphi-Quellcode:

unit VCLClientMainForm;

interface

{$POINTERMATH ON}

...