EAccessViolation führt zu unerwartetem APPCRASH (gelöst)

[KodeZwerg]

Zitat von mjustin:

Delphi-Quellcode:

procedure TProducerLoop.Run;
begin
  while True do
  begin
    Connect;

    while True do
    begin
      try
        ProduceOneMessage;
      except
        on E: Exception do
        begin
          Break;
        end;
      end;
    end;

    Disconnect;
  end;
end;

Delphi-Quellcode:

procedure TProducerLoop.Run;
Label MyBreak;
begin
  while True do
  begin
    Connect;

    while True do
    begin
      try
        ProduceOneMessage;
      except
        on E: Exception do
        begin
          Goto MyBreak;
        end;
      end;
    end;
    Disconnect;
    MyBreak:
  end;
end;

So solltest Du aus Deinen Endlosschleifen rauskommen ohne Crash, oder?