Changeset 235

Timestamp:

May 15, 2020, 12:37:31 AM (5 years ago)

Author:

chronos

Message:

• Fixed: Build under Lazarus 1.8.x.

Files:

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

tags/1.2.0/GameServer.pas

@@ -4503 +4503 @@
 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;
+
 { TBrain }
 

trunk/GameServer.pas

@@ -4503 +4503 @@
 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;
+
 { TBrain }