Changeset 235


Ignore:
Timestamp:
May 15, 2020, 12:37:31 AM (17 months ago)
Author:
chronos
Message:
  • Fixed: Build under Lazarus 1.8.x.
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • tags/1.2.0/GameServer.pas

    r207 r235  
    45034503end; { <<<server }
    45044504
     4505function ExtractFileNameWithoutExt(const Filename: string): string;
     4506var
     4507  P: Integer;
     4508begin
     4509  Result := Filename;
     4510  P := Length(Result);
     4511  while P > 0 do begin
     4512    case Result[P] of
     4513      PathDelim: Exit;
     4514      {$ifdef windows}
     4515      '/': if ('/' in AllowDirectorySeparators) then Exit;
     4516      {$endif}
     4517      '.': Exit(Copy(Result, 1, P - 1));
     4518    end;
     4519    Dec(P);
     4520  end;
     4521end;
     4522
    45054523{ TBrain }
    45064524
  • trunk/GameServer.pas

    r207 r235  
    45034503end; { <<<server }
    45044504
     4505function ExtractFileNameWithoutExt(const Filename: string): string;
     4506var
     4507  P: Integer;
     4508begin
     4509  Result := Filename;
     4510  P := Length(Result);
     4511  while P > 0 do begin
     4512    case Result[P] of
     4513      PathDelim: Exit;
     4514      {$ifdef windows}
     4515      '/': if ('/' in AllowDirectorySeparators) then Exit;
     4516      {$endif}
     4517      '.': Exit(Copy(Result, 1, P - 1));
     4518    end;
     4519    Dec(P);
     4520  end;
     4521end;
     4522
    45054523{ TBrain }
    45064524
Note: See TracChangeset for help on using the changeset viewer.