(C++) Zeiger ein Sicherheitsrisiko?

[Chewie]

Gleiches geht natürlich auch mit Delphi-Klassen

Habs grad eben mal ausprobiert:

Delphi-Quellcode:

  TMyString = String[50];

  TMyClass = class(TObject)
  private
    MyText: TMyString;
  public
    procedure SetText(s: TMyString);
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  o: TMyClass;
  s: PChar;
begin
  o := TMyClass.Create;
  o.SetText('Wer das sieht, weiß alles' + #0);
  s := Pointer(Integer(o) + 4 + 1);  //VMT-Zeiger + Längenbyte
  ShowMessage(s);
  o.Free;
end;

{ TMyClass }

procedure TMyClass.SetText(s: TMyString);
begin
  MyText := s;
end;