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

Fix %db in file pattern being replaced like a %d (current day) with a literal "b" after it.

Browse Source
This commit is contained in:
Ansgar Becker
2021-01-27 22:35:47 +01:00
parent da2fe28cc3
commit ac9f16e4d1
1 changed files with 31 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
source/apphelpers.pas
View File

@ -92,6 +92,15 @@ type
property LastContent: String read FLastContent;
end;
// Extended string list with support for empty values
TExtStringList = class(TStringList)
private
function GetValue(const Name: string): string;
procedure SetValue(const Name, Value: string); reintroduce;
public
property Values[const Name: string]: string read GetValue write SetValue;
end;
// Threading stuff
TQueryThread = class(TThread)
private
@ -2594,12 +2603,12 @@ end;
function GetOutputFilename(FilenameWithPlaceholders: String; DBObj: TDBObject): String;
var
Arguments: TStringList;
Arguments: TExtStringList;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
i: Integer;
begin
// Rich format output filename, replace certain markers. See issue #2622
Arguments := TStringList.Create;
Arguments := TExtStringList.Create;
if Assigned(DBObj) then begin
Arguments.Values['session'] := ValidFilename(DBObj.Connection.Parameters.SessionName);
@ -3332,6 +3341,26 @@ end;
{ TExtStringList }
// taken from https://stackoverflow.com/questions/33893377/can-i-prevent-tstringlist-removing-key-value-pair-when-value-set-to-empty
function TExtStringList.GetValue(const Name: string): string;
begin
Result := Self.GetValue(Name);
end;
procedure TExtStringList.SetValue(const Name, Value: string);
var
I: Integer;
begin
I := IndexOfName(Name);
if I < 0 then I := Add('');
Put(I, Name + NameValueSeparator + Value);
end;
{ TAppSettings }
constructor TAppSettings.Create;