mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 21:48:22 +02:00
00dabb1265
* move netdb unit and examples to fcl-net * removed netdb package git-svn-id: trunk@9909 -
28 lines
421 B
ObjectPascal
28 lines
421 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.
|