Когда передаешь Pchar -> Китайские иероглифы в мемо.
если возможность почистить блок? в моем случае.
Код:
function LoadFile(const FileName: TFileName):String; stdcall;
var
MemStr: TStringStream;
begin
MemStr:= TStringStream.Create;
try
MemStr.LoadFromFile(FileName);
MemStr.Seek(0, soFromBeginning);
if MemStr.Size >= 262144 then Result := MemStr.DataString
else Result:='File_Size_Error '+inttostr(MemStr.Size);
finally
MemStr.Free;
end;
end;
или выделять небольшие блоки, только я столкнулся, если файл большой, то можно сходить за кофе