mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: mbReadFileToString function

Browse source
This commit is contained in:
Alexander Koblov 2023-10-31 20:11:44 +03:00
commit 8dee95cc1b
1 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/ufileprocs.pas
View file

@ -229,19 +229,22 @@ end;
function mbReadFileToString(const FileName: String): String;
var
Text: String;
ASize: Int64;
Handle: THandle;
begin
Result:= EmptyStr;
ASize:= mbFileSize(FileName);
SetLength(Text, ASize);
if Length(Text) = 0 then Exit;
Handle:= mbFileOpen(FileName, fmOpenRead or fmShareDenyNone);
if Handle <> feInvalidHandle then
begin
if FileRead(Handle, Text[1], ASize) = ASize then
Result:= Text;
ASize:= FileGetSize(Handle);
SetLength(Result, ASize);
if Length(Result) > 0 then
begin
if FileRead(Handle, Result[1], ASize) <> ASize then
begin
SetLength(Result, 0);
end;
end;
FileClose(Handle);
end;
end;