Or, drawing procedure will accept with typecast as long as record contains same or same length information as the other:
[pascal]type
TMyPoint = record
x,y: integer;
end;
var p: TMyPoint;
begin
...Draw(TPoint(p), ...);
end;[/pascal]
Or, drawing procedure will accept with typecast as long as record contains same or same length information as the other:
[pascal]type
TMyPoint = record
x,y: integer;
end;
var p: TMyPoint;
begin
...Draw(TPoint(p), ...);
end;[/pascal]
Bookmarks