Seltsame AV bei Pointerzweisung

[Neutral General]

Hi,

Habe folgenden Quelltext:

Delphi-Quellcode:

TKlasse = class(...)
private
  FMemory: Pointer;
  FSize: Int64;
public
  constructor Create(P: Pointer; DataSize: Int64);
  property Memory: Pointer read FMemory;
end;

implementation

var x: Pointer;

constructor TKlasse.Create(P: Pointer; DataSize: Int64);
var y: Pointer;
begin
  inherited Create;
  FMemory := P; // AV
  x := P;       // keine AV
  y := P;       // keine AV
  FSize := DataSize;
end;

Der Quelltext sagt schon eigentlich alles.. Ich bekomme wenn ich P FMemory zuweise eine AV. Bei allen anderen Pointervariablen (lokal, global) funktioniert es :gruebel:

Gruß
Neutral General

[SirThornberry]

Wie lauten die Details der AV (vollständige Fehlermeldung!)?

[Neutral General]

Hi,

ne ganz "normale" AV:

Zitat:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 00455813 in module 'Project1.exe'. Write of address 00000004'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Das seltsame ist, dass ich für @FMemory während dem debuggen: "Inaccessible value" angezeigt bekomme... Verstehe das alles nicht... :?

PS: x ist <> Pointer($00455813) und <> Pointer($4)!

[grenzgaenger]

also bei mir läuft das problemlos...

Delphi-Quellcode:

program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils;

type
 tC = class
  strict private
   fMem: Pointer;
  public
   Constructor Create(p: Pointer);
   procedure run;
   property Memory: Pointer read fMem; 
 end;

{ tC }
constructor tC.Create(p: Pointer);
begin
 Inherited Create;
 fMem := p;
end;
procedure tC.run;
begin
 writeln('irgendwas ...');
 readln;
end;

var
 x: TC;
begin
 x := tc.Create(pointer($abcd));
 try
  x.run;
 finally
  x.free;
 end;
end.

muss also an einer anderen stelle liegen... was rufst du zuvor auf? vielleicht ist die meldung nur verzögert...

BTW: ist deine klasse bereits erstellt?

[sirius]

Eigentlich ist es nicht von dir zu erwarten, aber du rufst nicht doch zufällig Create direkt als Methode auf (Klasse.create) anstatt als Klasse:=TKlasse.create;
So sieht es zumindest aus.

[SirThornberry]

Zitat:

ne ganz "normale" AV:

So wie ein Fehler ein ganz normaler Fehler ist ;-)

Durch die vollständige Fehlermeldung kann ich dir deinen Fehler schon recht sicher sagen:

Delphi-Quellcode:

var
  instanz: TKlasse;
begin
  instanz.Create(irgendwas, irgendwas);
  //anstelle von:
  instanz := TKlasse.Create(irgendwas, irgendwas);

[Edit]4 ist das Offset von fMemory zur Instanz

[Neutral General]

Tatsächlich :oops:

Passiert mir eigentlich nie, und wenn dann bemerke ichs eigentlich noch rechtzeitig :?