Enhance TTestPersistableArray to accept initial values and update file handling in TabSeparatedConfigForm

Author: mattia72

Test/TabSeparatedConfigTestForm.pas

@@ -54,10 +54,11 @@ implementation
 	TTestPersistableArray = class(TPersistableSettings, IPersistableArray)
 		private
 			FArraySetting : IArraySetting;
+			FArrValues: TArray<string>;
 			function GetArraySetting() : IArraySetting;
 
 		public
-			constructor Create;
+			constructor Create(const _arrValues: TArray<string>);
 			procedure Init; override;
 	end;
 
@@ -99,12 +100,8 @@ procedure TTabSeparatedConfigTestMainForm.btnOpenFormClick(Sender : TObject);
 	FResultStrings.Clear;
 
 	// create persistable array and fill with input data
-	persistableArray := TTestPersistableArray.Create;
+	persistableArray := TTestPersistableArray.Create(FInputStrings.ToStringArray);
 	try
-		for i := 0 to FInputStrings.Count - 1 do begin
-			persistableArray.GetArraySetting().Add(FInputStrings[i]);
-		end;
-
 		// parse headers
 		var
 			headerText : string := edtHeaders.Text;
@@ -155,9 +152,10 @@ procedure TTabSeparatedConfigTestMainForm.ActionTestExecute(Sender : TObject);
 
 { TTestPersistableArray }
 
-constructor TTestPersistableArray.Create;
+constructor TTestPersistableArray.Create(const _arrValues: TArray<string>);
 begin
 	IniSectionName := 'TestData';
+  FArrValues := _arrValues;
 	inherited Create(nil);
 end;
 
@@ -168,7 +166,7 @@ function TTestPersistableArray.GetArraySetting() : IArraySetting;
 
 procedure TTestPersistableArray.Init;
 begin
-	FArraySetting := TArraySetting.Create('TestData');
+	FArraySetting := TArraySetting.Create('TestData', FArrValues );
 	CreateSetting(FArraySetting.Name, ITEM_KEY_PREFIX, FArraySetting);
 end;
 

src/UI/RipGrepper.UI.TabSeparatedConfigForm.pas

@@ -108,14 +108,14 @@ implementation
 
 	RipGrepper.Common.Constants,
 	RipGrepper.Helper.UI,
+	RipGrepper.OpenWith.Constants,
 	RipGrepper.Tools.DebugUtils,
 	RipGrepper.Tools.FileUtils,
 	System.SysUtils,
 	Vcl.Clipbrd,
+	VirtualTrees.Header,
 	Winapi.ShellAPI,
-	Winapi.Windows,
-	RipGrepper.OpenWith.Constants,
-	VirtualTrees.Header;
+	Winapi.Windows;
 
 {$R *.dfm}
 
@@ -162,7 +162,6 @@ procedure TTabSeparatedConfigForm.ActionAddExecute(Sender : TObject);
 	i : Integer;
 begin
 	inherited;
-	node := VstData.GetFirstSelected;
 
 	// create empty data with same column count
 	if VstData.Header.Columns.Count > 0 then begin
@@ -387,6 +386,9 @@ procedure TTabSeparatedConfigForm.WriteSettings();
 	end;
 
 	FArraySettings.StoreToPersister();
+	if FArraySettings is TPersistableSettings then begin
+		TPersistableSettings(FArraySettings).UpdateFile(True);
+	end;
 end;
 
 procedure TTabSeparatedConfigForm.VstDataDblClick(Sender : TObject);