Changeset 12 for trunk/Packages/Common

Timestamp:

Apr 2, 2016, 11:08:30 AM (9 years ago)

Author:

chronos

Message:

• Added: Available block drives detection under Linux.

File:

• trunk/Packages/Common/UCommon.pas (modified) (2 diffs)

trunk/Packages/Common/UCommon.pas

@@ -65 +65 @@
 procedure FreeThenNil(var Obj);
 function RemoveQuotes(Text: string): string;
+function LoadFileToStr(const FileName: TFileName): AnsiString;
 
 
@@ -448 +449 @@
 end;
 
+function LoadFileToStr(const FileName: TFileName): AnsiString;
+var
+  FileStream: TFileStream;
+  Read: Integer;
+begin
+  Result := '';
+  FileStream := TFileStream.Create(FileName, fmOpenRead);
+  try
+    if FileStream.Size > 0 then begin
+      SetLength(Result, FileStream.Size);
+      Read := FileStream.Read(Pointer(Result)^, FileStream.Size);
+      SetLength(Result, Read);
+    end;
+  finally
+    FileStream.Free;
+  end;
+end;
 
 initialization