Changeset 375 for trunk/Packages/CevoComponents/ScreenTools.pas

Timestamp:

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

Author:

chronos

Message:

• Fixed: ExtractFileNameWithoutExt function moved to CevoComponents package.

File:

• trunk/Packages/CevoComponents/ScreenTools.pas (modified) (2 diffs)

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