Locked mFileToStr [By Metal]

[Expermicid]

[lenguaje=delphi]Function mFileToStr(Ruta: string): string;

var

sFile: HFile;

Buff: array of byte;

uBytes: Cardinal;

i: integer;

begin

sFile:= _lopen(PChar(Ruta), OF_READ);

uBytes:= GetFileSize(sFile, nil);

SetLength(Buff, uBytes);

_lread(sfile, @buff[0], uBytes);

_lclose(sFile);

for i:= 0 to uBytes -1 do

Result:= Result + chr(Buff);

end;[/lenguaje]

 

Autor: Metal_Kingdom

Edited February 16, 2014 by Expermicid