Changeset 375 for trunk

Timestamp:

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

Author:

chronos

Message:

• Fixed: ExtractFileNameWithoutExt function moved to CevoComponents package.

Location:

trunk

Files:

• GameServer.pas (modified) (1 diff)
• Packages/CevoComponents/ScreenTools.pas (modified) (2 diffs)
• UBrain.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

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -54 +54 @@
 procedure EditFrame(ca: TCanvas; p: TRect; T: TTexture);
 function HexStringToColor(S: string): integer;
+function ExtractFileNameWithoutExt(const Filename: string): string;
 function LoadGraphicFile(Bmp: TBitmap; FileName: string; Options: TLoadGraphicFileOptions = []): boolean;
 function LoadGraphicSet(const Name: string): TGraphicSet;
@@ -493 +494 @@
 end;
 
+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;
+
 function LoadGraphicSet(const Name: string): TGraphicSet;
 var

trunk/UBrain.pas

@@ -51 +51 @@
 
 implementation
+
+uses
+  ScreenTools;
 
 { TBrain }