DLL
Код:
function LoadFile:TMemoryStream;
var
MemoryFile: TMemoryStream;
begin
MemoryFile := TMemoryStream .Create;
try
MemoryFile.LoadFromFile('test.txt');
result:=MemoryFile;
finally
showmessage('ok');//MemoryFile.Free;
end;
end;
Forma
Код:
memo1.Lines.LoadFromStream(LoadFile);
а работает!!!
с Memory то работает и нет глюков.
а ничего страшного, что MemoryFile.Free; = этого нет?
и потом куда его воткнуть? MemoryFile.Free; ????