Unerklärliche Access Violation

[Kas Ob.]

After thinking, i want to correct my self, the above might not always fail with an exception in fact it could run without any problem,

Delphi-Quellcode:

type
  TMyClass = class
  public
    function DoAdd(A, B: Integer): Integer;
  end;

function TMyClass.DoAdd(A, B: Integer): Integer;
begin
  Result := A + B;
end;

procedure Test1;
var
  C: TMyClass;
begin
  C := TMyClass.Create;
  try
    Writeln(C.DoAdd(5, 7));
  finally
    C.Free;
  end;
end;

procedure Test2;
var
  C: TMyClass;
begin
  //C.Create; not needed at all, with it there will be a memory leak
  Writeln(C.DoAdd(6, 9));
end;

begin
  Test1;
  //Writeln('Soemthing'); // this didn't destroy the stack on my Delphi XE8
  Test2;
  Readln;
end.

The result

Zitat:

12
15

[himitsu]

Im Create ein ShowModal?

Zitat von Kas Ob.:

  //C.Create; not needed at all, with it there will be a memory leak

Ja und NEIN.

Warum hört eigentlich niemand auf das, was ihm der Compiler an Warnungen zu Recht um die Ohren wirft?
Dieses Vorgehen klappt nur, weil innerhalb der Methode nicht auf das Objekt selbst zugegriffen wird.
Aber eine Mehtode ist gerade dafür da, dass man jenes macht ... ansonsten könnte man auch eine Klassen-Methode verwenden.


Abgesehn davon ist C.Create; hier sowieso komplett falscht, weil es C := TMyClass.Create; zu sein hat!


Und wenn eine Class-Function, dann nur über deren Klassentyp, anstatt eine uninitialisierte Variable,
denn bei einer Variable wird nötige der Klassen-Typ aus der Objektinstanz geholt, welche es hier aber nicht gibt.

Delphi-Quellcode:

type
  TMyClass = class
  public
    class function DoAdd(A, B: Integer): Integer;
  end;

procedure Test2;
begin
  Writeln(TMyClass.DoAdd(6, 9));
end;

Und ja, natürlich kann man ein aObj.Create; nutzen, aber nur, wenn man vorher auch den Instanzspeicher für dieses Objekt instantiiert hat.
Beispiel: siehe TApplication.CreateForm

[Kas Ob.]

Zitat von himitsu:

Zitat von Kas Ob.:

  //C.Create; not needed at all, with it there will be a memory leak

Ja und NEIN.

Warum hört eigentlich niemand auf das, was ihm der Compiler an Warnungen zu Recht um die Ohren wirft?
Dieses Vorgehen klappt nur, weil innerhalb der Methode nicht auf das Objekt selbst zugegriffen wird.
Aber eine Mehtode ist gerade dafür da, dass man jenes macht ... ansonsten könnte man auch eine Class-Methode verwenden.


Abgesehn davon ist C.Create; sowieso komplett falscht, weil es C := TMyClass.Create; zu sein hat!


Und wenn eine Class-Function, dann nur über deren Klassentyp, anstatt eine uninitialisierte Variable,
denn bei einer Variable wird nötige der Klassen-Typ aus der Objektinstanz geholt, welche es hier aber nicht gibt.

You are right.

[Kas Ob.]

I in haste tried now to produce this strange behaviour in Delphi compiler where no warning issued

Delphi-Quellcode:

type
  TMyClass = class
  private
    FInitValue: Integer;
  public
    constructor Create(InitValue: Integer); overload;
    function DoCalc(Value: Integer): Integer;
  end;

  TCont = class
  private
    FMyClass: TMyClass;
  public
    procedure Init(Value: Integer);
    procedure DeInit;
    function Calc(Value: Integer): Integer;
  end;

constructor TMyClass.Create(InitValue: Integer);
begin
  inherited Create;
  FInitValue := InitValue;
end;

function TMyClass.DoCalc(Value: Integer): Integer;
begin
  Result := Value * FInitValue;
end;

function TCont.Calc(Value: Integer): Integer;
begin
  Result := FMyClass.DoCalc(Value)
end;

procedure TCont.DeInit;
begin
  FMyClass.Free;
end;

procedure TCont.Init(Value: Integer);
begin
  FMyClass := TMyClass.Create(Value);
end;

function Test1: Integer;
var
  C: TCont;
begin
  C := TCont.Create;
  try
    C.Init(10);
    Result := C.Calc(5);
    C.DeInit;
  finally
    C.Free;
  end;
end;

function Test2: Integer;
var
  CE: TCont;
begin
  CE := @CE;
  CE.Init(11);
  Result := CE.Calc(9);
  //C.DeInit;
end;

var
  A, B: Integer;

begin
  A := Test1;
  B := Test2;
  Writeln(A);
  Writeln(B);
  Readln;
end.

In Delphi 2010 it does exit silently with no exception, while Delphi XE8 it run like with correct result, in both cases "CE := @CE" fooled the compiler, also the warning is easily can be detected by the compiler when the variable localized and stares at the compiler in the eyes, but when a function is long enough the compiler might not detect it at all.

[Sinspin]

Zitat von himitsu:

Im Create ein ShowModal?

Das haste schön bemerkt, Himitsu

Ich finde, jemand der sowas macht, zeigt ein Level an Unfähigkeit zum Programmieren, das man ihm/ihr schon anraten sollte sich einen anderen Job zu suchen!

Andererseits, klassischer Anfängerfehler, genauso wie der Unfassbarerweise aus-dem-nichts auftauchende Nullpointer, wegen dem man gleich nen Foreneintrag aufmacht, anstatt mal das Gehirn einzuschalten!

[NoName1]

Vielen Dank an alle. Ich werde alle Ratschläge berücksichtigen.
Übrigens: Der Fehler liegt nicht in der "WPViewPDF3,".
Ich habe gestern alle Button-Zugriffe und die Actions aus dem Formular geworfen, neu Compiliert, Delphi geschlossen, den Rechner heruntergefahren.
Eine kleine Runde sparzieren gegangen, mache ich so ab und zu einmal, bis ja schließlich auch schon 73 Jahre alt.
Danach den Rechner wieder angemacht, die Button Zugriffe neu installiert, die Actions neu hinzugefügt und siehe da,
es funktioniert nun alles perfect! Weis der KuckKuck was da los war??

Einen schönen Tag noch alle Helfern!