Warum AccessViolation?

[moin339]

Moin!

Ich habe hier ein kleines testprogramm. Wenn ich zuerst auf Button1 und dannach auf Button2 klicke bekomme ich eine AccessViolation, obwohl die Variable eigentlich definiert ist. Wisst ihr wodran das liegt?

Delphi-Quellcode:

  TTest = class
  private
    TestString : string;
  public
    constructor create;
    procedure ShowString;
  end;

var
  Form1 : TForm1;
  test  : TTest;

implementation

{$R *.dfm}

constructor TTest.create;
begin
  TestString := 'Hallo';

  while true do
  begin
    Application.ProcessMessages;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  test := TTest.create;
  test.free;
end;

procedure TTest.ShowString;
begin
  ShowMessage(TestString);  // Exception: EAccessViolation
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  test.ShowString;
end;

ciao, moin399 :coder:

[Keldorn]

:wiejetzt:

Zitat:

test := TTest.create;
test.free;

was glaubst du, was ein free macht?


Mfg Frank

[Keldorn]

Zitat:

while true do
begin
Application.ProcessMessages;
end;

was hat das denn so eine endlosschleife im constructor zu suchen ?

[moin339]

Würde das ganze funktionieren wenn die endlosschleife in einer anderen methode von TTest ist, also nicht im constructor? (habe hier grad kein Delphi)

moin339

[Luckie]

Du kannst die Endlosschleife hinpacken wohin du willst. Aber was meinst du wie viel Instanzen deines Objektes noch existieren, wenn du nach Create gleich ein Free wieder aufrufst?

[Marco Haffner]

Also den Fehler hat jetzt sogar mein Cousin gefunden und der hat noch nie Programmiert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  test := TTest.create;
  test.free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  test.ShowString;
end;

Das kann so nicht funktionieren. In Button1Click erzeugst Du die Variable Test, gibst sie aber auch gleich wieder frei.
Das heißt, wenn Du Button2 anklickst ist Test schon längst wieder freigegeben.

[moin339]

Schön, Schön. Bloß wenn ich die "test.free" Zeile lösche passiert das gleiche. Free wird ja auch nicht ausgeführt, da create nicht fertig werden kann (ist ja auch eine ENDLOS-Schleife)

Probiert den code doch bitte mal selber aus

ciao, moin339

[Luckie]

Stimmt auch wieder. Aber in diesem Fall wird die Instanz deines Objektes nie erstellt.

Was soll der Blödsinn mit der Endlosschleife überhaupt im Konstruktor?

[moin339]

Zitat:

Zitat von Luckie

Was soll der Blödsinn mit der Endlosschleife überhaupt im Konstruktor?

Ich schreibe eine GUI für ein consolen programm und starte im constructor einer klasse das programm und prüfe auf neue daten (das ganze in einer schleife, die erst verlassen wird wenn das consolen-programm beendet ist)

Zitat:

Zitat von Luckie

Stimmt auch wieder. Aber in diesem Fall wird die Instanz deines Objektes nie erstellt.

Würde das ganze funktionieren wenn die endlosschleife in einer anderen methode von TTest ist, also nicht im constructor?

ciao, moin339

[Keldorn]

irgendwie sehe ich keinen Sinn darin

Zitat:

(das ganze in einer schleife, die erst verlassen wird wenn das consolen-programm beendet ist)

wann wird denn deine endlosschleife verlassen? doch nie, oder? es gibt doch gar keine Abbruchgbedingung ...

außerdem, wenn du das application.processmessages so inder schleife drinläßt, wird dein CPU-Belastung auf 100% gehen. wenn schobn, dann setzt ein sleep mit rein