tasks a-s

Task/Read-entire-file/Delphi/read-entire-file-1.delphi

@@ -0,0 +1,22 @@
+program ReadAll;
+
+{$APPTYPE CONSOLE}
+
+uses Classes;
+
+var
+  i: Integer;
+  lList: TStringList;
+begin
+  lList := TStringList.Create;
+  try
+    lList.LoadFromFile('c:\input.txt');
+    // Write everything at once
+    Writeln(lList.Text);
+    // Write one line at a time
+    for i := 0 to lList.Count - 1 do
+      Writeln(lList[i]);
+  finally
+    lList.Free;
+  end;
+end.

Task/Read-entire-file/Delphi/read-entire-file-2.delphi

@@ -0,0 +1,14 @@
+program ReadAll;
+
+{$APPTYPE CONSOLE}
+
+uses
+  SysUtils, IOUtils;
+
+begin
+// with default encoding:
+  Writeln(TFile.ReadAllText('C:\autoexec.bat'));
+// with encoding specified:
+  Writeln(TFile.ReadAllText('C:\autoexec.bat', TEncoding.ASCII));
+  Readln;
+end.