Delphi concept

2026-02-10 23:55:42 +01:00
parent adaff67219
commit 645fd71e45
12 changed files with 529 additions and 0 deletions
@@ -0,0 +1,19 @@
+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.