Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Offset bei AllocMem?
20. Sep 2013, 21:55
AllocMem gibt Dir einen Pointer auf den Speicherbereich zurück. Mit Showmessage(PChar(Addr)); würdest Du Dir den Inhalt des Speicherbereiches as "String" anzeigen lassen.
Delphi-Quellcode:
Const
s: String = 'Hallo'#0;
var
Addr: Pointer;
begin
Addr := AllocMem(1024);
try
Move(s[1], Addr^, Length(s) * SizeOf(char)); // ein Stück Text in den Speicherbereich schieben
Showmessage(PChar(Addr)); // und den Text anzeigen
Showmessage(IntToHex(DWord(Addr), 8)); // den Wert der Adressse in HEX anzeigen
finally
FreeMem(Addr);
end;
end;
Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|