02.02.2023, 21:39
|
Новичок
|
|
Регистрация: 18.03.2009
Сообщения: 71
Репутация: 10
|
|
проба
Код:
procedure LoadFile(FileName: TFileName);
var
MemStr: TMemoryStream;
Title: String;
begin
MemStr:= TMemoryStream.Create;
try
MemStr.LoadFromFile(FileName);
MemStr.Seek(0, soFromBeginning);
//Title := ReadStreamStr( MemStr );
finally
MemStr.Free;
end;
end;
exports
LoadFile index 1;
begin
end.
Код:
function LoadFile(FileName: TFileName); external 'project1.dll' index 1;
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadFile('111111.txt');
memo1.Lines.LoadFromFile(LoadFile);
ProgressBar1.position:= LoadFile;
end;
|