Registriert seit: 21. Jun 2002
602 Beiträge
|
29. Aug 2002, 20:26
Hi Chakotay,
ein Pointer ist sehr wohl ein Datentyp... Kompilier mal folgendes:
Code:
procedure ShowMsg(p: Pointer);
begin
MessageBox(0, PChar(p), 'Test', 48);
end;
procedure Test;
var
s: String;
begin
s := 'Test';
ShowMsg(Pointer(s));
end;
Es wird funktionieren...
MfG,
d3g
-- Crucifixion?
-- Yes.
-- Good. Out of the door, line on the left, one cross each.
|