Tweet
Wie konvertiere ich ein PDWORD in einen String???
-
-
Hallo,
wer macht denn so etwas exotisches? Ein DWORD kann man als Zeiger auf einen nullterminierten String interpretieren, aber wass soll der Zeiger auf diesen DWORD-Wert (also ein Zeiger auf einen Zeiger auf ein nullterminierten String)? Das folgende Beispiel baut einen solchen Fall zusammen:
<pre>
procedure TForm1.Button1Click(Sender: TObject);
var
aDW : DWORD;
pDW : PDWORD;
pTxt : PChar;
szTxt: array[0..99] of Char;
begin
FillChar(szTxt, SizeOf(szTxt), #0);
StrPCopy(szTxt, 'Das ist der nullterminierte String');
pTxt := @szTxt;
aDW := DWORD(pTxt);
pDW := @aDW;
ShowMessage(PChar(pDW^));
end;
</pre>
Der Stringinhalt wird über die Zeigerderefrenzierung <b>pDW^</b> ausgelesen, wobei die Typumwandlung über <b>PChar</b> den Compiler zufrieden stellt.


Comment