opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Replace redundant ExtractBaseFileName() with TPath.GetFileNameWithoutExtension()

Browse Source
This commit is contained in:
Ansgar Becker
2022-04-13 07:29:10 +02:00
parent 3ac04a8946
commit c8d9bd716b
3 changed files with 5 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/apphelpers.pas
View File

@ -302,7 +302,6 @@ type
procedure RemoveNullChars(var Text: String; var HasNulls: Boolean);
function GetShellFolder(FolderId: TGUID): String;
function ValidFilename(Str: String): String;
function ExtractBaseFileName(FileName: String): String;
function FormatNumber( str: String; Thousands: Boolean=True): String; Overload;
function UnformatNumber(Val: String): String;
function FormatNumber( int: Int64; Thousands: Boolean=True): String; Overload;
@ -827,17 +826,6 @@ begin
end;
function ExtractBaseFileName(FileName: String): String;
var
Ext: String;
begin
// Extract file name without path and file extension
FileName := ExtractFileName(FileName);
Ext := ExtractFileExt(FileName);
Result := Copy(FileName, 1, Length(FileName)-Length(Ext));
end;
{**
Unformat a formatted integer or float. Used for CSV export and composing WHERE clauses for grid editing.
}