[+] Strings.Ext: GetStringFromFile

jackdp · Sep 19, 2021 · f748ffe · f748ffe
1 parent e15c52f
commit f748ffe
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/Base/JPL.Strings.Ext.pas b/Base/JPL.Strings.Ext.pas
@@ -16,6 +16,7 @@ interface
 
 procedure SplitStrToList(LineToParse: string; var List: TStringList; DataSeparator: string = ',');
 function SaveStringToFile(const FileName, FileContent: string; Encoding: TEncoding): Boolean;
+function GetStringFromFile(const FileName: string; Default: string = ''): string;
 function GetLineStartingWith(List: TStrings; const TextToFind: string; IgnoreCase: Boolean = True; StartIndex: integer = 0): string;
 procedure ReverseStrings(List: TStrings);
 
@@ -66,6 +67,21 @@ function SaveStringToFile(const FileName, FileContent: string; Encoding: TEncodi
   end;
 end;
 
+function GetStringFromFile(const FileName: string; Default: string = ''): string;
+var
+  sl: TStringList;
+begin
+  Result := '';
+  if not FileExists(FileName) then Exit;
+  sl := TStringList.Create;
+  try
+    sl.LoadFromFile(FileName);
+    Result := sl.Text;
+  finally
+    sl.Free;
+  end;
+end;
+
 procedure SplitStrToList(LineToParse: string; var List: TStringList; DataSeparator: string = ',');
 var
   xp: integer;