12.02.2023, 21:07
|
Новичок
|
|
Регистрация: 18.03.2009
Сообщения: 71
Репутация: 10
|
|
т.е.
DLL
Код:
function LoadFile:TMemoryStream;
var
MemoryFile: TMemoryStream;
begin
MemoryFile := TMemoryStream .Create;
try
MemoryFile.LoadFromFile('test.txt');
result:=MemoryFile;
finally
MemoryFile.Free;
end;
end;
FORMA
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Memory: TMemoryStream;
begin
Memory := TMemoryStream .Create;
try
Memory.LoadFromStream(LoadFile);
memo1.Lines.LoadFromStream(Memory);
finally
Memory.Free;
end;
end;
пустое значение приходит
|