mirror of
https://github.com/colbymchenry/codegraph.git
synced 2026-10-23 10:21:40 +08:00
Olaf Monien
20 lines
229 B
ObjectPascal
20 lines
229 B
ObjectPascal
program App;
|
|
|
|
{$APPTYPE CONSOLE}
|
|
|
|
uses
|
|
System.SysUtils,
|
|
UAuth in 'UAuth.pas';
|
|
|
|
var
|
|
Svc: TAuthService;
|
|
|
|
begin
|
|
Svc := TAuthService.Create;
|
|
try
|
|
Writeln(Svc.Login('olaf', 'secret'));
|
|
finally
|
|
Svc.Free;
|
|
end;
|
|
end.
|