Leider funktionieren beide Methoden hier nicht:
Delphi-Quellcode:
var
I: Integer;
begin
for I := 3 to 200 do
if GetAsyncKeyState(I) = -32767 then
Edit1.Text := Edit1.Text+chr(i);
end;
Es wird zwar "ABCDE" und "0724" angezeigt, halte ich aber die SHIFT Taste gedrückt so steht kein "$ oder ein !" da.
Du derefernzierst p2 einmal und weißt die Adresse von i zu. Das heißt p2 (also der Zeiger auf einen Zeiger) zeigt auf den Zeiger p1 welchen du so auf i zeigen lässt.