Changeset 375 for trunk/GameServer.pas

Timestamp:

Apr 24, 2021, 1:51:40 PM (4 years ago)

Author:

chronos

Message:

• Fixed: ExtractFileNameWithoutExt function moved to CevoComponents package.

File:

• trunk/GameServer.pas (modified) (1 diff)

trunk/GameServer.pas

@@ -4495 +4495 @@
 end; { <<<server }
 
-function ExtractFileNameWithoutExt(const Filename: string): string;
-var
-  P: Integer;
-begin
-  Result := Filename;
-  P := Length(Result);
-  while P > 0 do begin
-    case Result[P] of
-      PathDelim: Exit;
-      {$ifdef windows}
-      '/': if ('/' in AllowDirectorySeparators) then Exit;
-      {$endif}
-      '.': Exit(Copy(Result, 1, P - 1));
-    end;
-    Dec(P);
-  end;
-end;
-
 
 initialization