30 lines
378 B
Plaintext
30 lines
378 B
Plaintext
unit WorkspaceUnit;
|
|
interface
|
|
|
|
type
|
|
WorkspaceUnitClass = class
|
|
public
|
|
function Create();
|
|
function Work(): integer;
|
|
end;
|
|
|
|
function WorkspaceUnitFunc(): integer;
|
|
|
|
implementation
|
|
|
|
function WorkspaceUnitClass.Create();
|
|
begin
|
|
end;
|
|
|
|
function WorkspaceUnitClass.Work(): integer;
|
|
begin
|
|
return 9;
|
|
end;
|
|
|
|
function WorkspaceUnitFunc(): integer;
|
|
begin
|
|
return 7;
|
|
end;
|
|
|
|
end.
|