Здравствуйте! помогите плиз разобраться поэтапно с 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;
|
это я понял 
даже понял как передать значение в процедуру 
| Код |
procedure LoadData(FileName: TFileName; str:string);
|
и в кнопку
| Код |
var str:string;
begin
LoadData('test.txt', str);
|
но как мне на оборот не отдавать значение в процедуру , а брать от туда??? 
пр:
| Код |
LoadData('test.txt');
progressbar1.position:= MemStr.Size;
|
файл текстовый 800тыс строк, как кусками записывать в содержимое: пример в memo. (много перепробовал кодов, иногда ждешь по 10 мин пока все прогрузит), а memo1.lines.loadfile('800.txt') грузит за пару секунд , но не отображает загрузку в progressbar/
версия 11А
|