Speicherbereich ausgeben

[ErazerZ]

Delphi-Quellcode:

var
  s: string;
  p: Pointer;
begin
  s := '12345678901234567890krieg mich doch?';
  p := Pointer(Cardinal(s) + 20);
  // Jetzt zeigt p auf der 20ten Stelle des Strings
  MessageBoxA(HWND_DESKTOP, p, 'Info', MB_ICONINFORMATION);