Mientras esa limitación exista, una solución es:
Código Delphi
[-]
unit uUnidadControl;
interface
type
cUnidadControl = class
private
Dato: string;
EntradaSalida: Pointer;
public
constructor Create(Dat: string; ES: Pointer );
procedure AlmacenarDato(Dat: string);
procedure EnviarDato;
end;
implementation
Uses
uEntradaSalida;
constructor cUnidadControl.Create(Dat: string; ES: Pointer );
begin
Dato := Dat;
EntradaSalida := ES;
end;
procedure cUnidadControl.EnviarDato;
begin
cEntradaSalida (EntradaSalida).RecibirDato(Dato);
end;
procedure cUnidadControl.AlmacenarDato(Dat: string);
begin
Dato := Dat;
end;
end.
Saludos.
Al González.
