18 lines
174 B
ObjectPascal
18 lines
174 B
ObjectPascal
|
|
unit cycle_unit3;
|
|
|
|
interface
|
|
|
|
uses cycle_unit;
|
|
|
|
procedure my_proc(obj : tmyclass);
|
|
|
|
implementation
|
|
|
|
procedure my_proc(obj : tmyclass);
|
|
begin
|
|
writeln('my_proc');
|
|
end;
|
|
|
|
end.
|