mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-17 19:16:21 +02:00
27 lines
420 B
ObjectPascal
27 lines
420 B
ObjectPascal
unit svrclass;
|
|
|
|
interface
|
|
|
|
type
|
|
|
|
TServerClass = class
|
|
public
|
|
procedure WriteString(const s: String);
|
|
function Add(Arg1, Arg2: Integer): Integer;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
procedure TServerClass.WriteString(const s: String);
|
|
begin
|
|
WriteLn('String: "', s, '"');
|
|
end;
|
|
|
|
function TServerClass.Add(Arg1, Arg2: Integer): Integer;
|
|
begin
|
|
WriteLn('Adding ', Arg1, ' and ', Arg2);
|
|
Result := Arg1 + Arg2;
|
|
end;
|
|
|
|
end. |