Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> помогите разобраться с memory, загрузка в memory 
:(
    Опции темы
leon2009
Дата 1.2.2023, 10:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 26.3.2016

Репутация: нет
Всего: 1



Здравствуйте! помогите плиз разобраться поэтапно с Memry
Код

procedure LoadData(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;
procedure TForm1.Button7Click(Sender: TObject);
var str:string;
begin
LoadData('test.txt');
end;

это я понял  smile 
даже понял как передать значение в процедуру  smile 
Код

procedure LoadData(FileName: TFileName; str:string);

и в кнопку
Код

var str:string;
begin
LoadData('test.txt', str);

но как мне на оборот не отдавать значение в процедуру , а брать от туда??? smile 
пр:
Код

LoadData('test.txt');
progressbar1.position:= MemStr.Size;

файл текстовый 800тыс строк,  как кусками записывать в содержимое: пример в memo. (много перепробовал кодов, иногда ждешь по 10 мин пока все прогрузит), а memo1.lines.loadfile('800.txt') грузит за пару секунд , но не отображает загрузку в progressbar/
версия 11А


Это сообщение отредактировал(а) leon2009 - 1.2.2023, 10:21
PM MAIL   Вверх
leon2009
  Дата 2.2.2023, 21:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 26.3.2016

Репутация: нет
Всего: 1



 string, integer , MemoryStream?
Код

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');
LoadFile('111111.txt');
 memo1.Lines.LoadFromFile(LoadFile);
 ProgressBar1.position:= LoadFile;
end;

как это правильно сделать? не могу сообразить: передаю string и туда и туда научился, а string и integer уже тяжко 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0981 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.