StreameFile

[casio23]

Помогите ускорить загрузку из файла (весит файл 1й- 3мб и 2й - 5мб) в мемо, есть какие то варианты

вот мой код

procedure TBaseFormUchitel.Button1Click(Sender: TObject);
var
Stream:TFileStream;
 s:array[0..$1FF]of char;
 i,j:Dword;
Text:String;
begin
f := TFileStream.Create(ExtractFilePath(Application.ExeName)+'Data\Base.txt', fmOpenRead);
i:=round(Stream.Size/$1FF);
for j:=0 to i do
 begin
 Stream.Read(s,$1FF);
 Text:=Text+s;
 ProgressBar1.Position:=round((j/i)*100);
 application.ProcessMessages;
 end;
 Stream.Free;
   Memo_List.Lines.text:=text;
end;

[Serge_Bliznykov]

1) а что за бред у Вас написан? Почему переменная Stream только объявляется, а создаётся переменная f которая не описана?!
это специальная версия для форума, как я понимаю?

2) через банальный ТСтринглист пробовали грузить?

var TS : TStringList;
begin
   TS := TStringList.Create();
   TS.LoadFromFile(ExtractFilePath(Application.ExeName)+'Data\Base.txt');
   ShowMessage('Всё загружено!') ;
   FreeAndNil(TS);
end;

3) почему не читаете целиком файл в переменную Text
примерно так:

var
   AllText : string;
...
   Stream := TFileStream.Create(ExtractFilePath(Application.ExeName)+'Data\Base.txt',  fmOpenRead or fmShareDenyNone);

   SetLength(AllText, Stream.Size);
   Stream.Read(AllText[1], Stream.Size);
   ShowMessage('Всё загружено!') ;
   ...

4) И ещё, очень подозреваю, что затык по времени у Вас происходит в момент записи этого текста в Memo_List!

[Ghost of Night]

Зачем TStringList??

Memo_List.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'Data\Base.txt');

Так быстрее будет

[Serge_Bliznykov]

Зачем TStringList??
...
Так быстрее будет

Гарантирую - НЕ БУДЕТ!

Вопрос, конечно, что дальше с полученным текстом делать. Если результат РЕАЛЬНО нужно иметь в Memo - тогда Ваш способ будет удобнее и быстрее.
Если же он в Мемо, т.к. автор задачи просто хотел увидеть, что грузится - то тогда способ с переменной будет на порядки быстрее!

[casio23]

Сообщение от Serge_Bliznykov

Гарантирую - НЕ БУДЕТ!

Вопрос, конечно, что дальше с полученным текстом делать. Если результат РЕАЛЬНО нужно иметь в Memo - тогда Ваш способ будет удобнее и быстрее.
Если же он в Мемо, т.к. автор задачи просто хотел увидеть, что грузится - то тогда способ с переменной будет на порядки быстрее!

да мне нужно загрузить в мемо текст, но если файл весит больше 2 мб то Memo_List.Lines.LoadFromFile(Extrac tFilePath(Application.ExeName)+'Dat a\Base.txt'); - грузит долговато, вот поэтому я и спрашиваю совета через что будет быстрее загрузить файл в мемо?

и еще а как сделать прогресс загрузки к моему примеру то что Вы написали? чтобы работал прогресс и с маленькими(например 10kb) файлами и с большими(например 3Mb)?

[FaTaL]

Грузить файл побайтово в память при этом показывать прогрессбар, а потом уже (после загрузки в память) отобразить в TMemo

[casio23]

а почему когда файл пустой выдает ошибку вот
код

Stream := TFileStream.Create(OpenDialog.FilName,fmOpenRead);
                   Reader := TReader.Create(Stream, $FF);
                   Reader.ReadListBegin;
                   Memo_List.Lines.Clear;
                    while not Reader.EndOfList do
                      Memo_List.Lines.Add(Reader.ReadString);
                      Reader.ReadListEnd;
                      Reader.Destroy;
                      Stream.Destroy;

Сообщение от FaTaL

Грузить файл побайтово в память при этом показывать прогрессбар, а потом уже (после загрузки в память) отобразить в TMemo

у меня не получается, можно пример

Сообщение от casio23

у меня не получается, можно пример

я вот сделал но не пойму почему progressbar не работает? файл загружается

код

 canceled := True;

   Memo_List.Clear;
    ProgressBar1.Max := GetFileSize(Put);
    ProgressBar1.Position:=0;

      AssignFile(BaseFile,Put);
      reset(BaseFile);
      c := 0; b := 0;


      while not eof(BaseFile) do
       begin
        inc(c);
        readln(BaseFile,s);
           b := b + length(s) + 2;

          if (c mod 1000) = 0 then
           begin
            ProgressBar1.Position := b;
            Application.ProcessMessages;
             if canceled then
               break;
       end;
           Memo_List.Lines.Add(s);
       end;
          CloseFile(BaseFile);

[Пепел Феникса]

мое мнение, в мемо быстрее не загрузишь.
максимум что можно сделать это сначало в TMemoryStream перегнать файл, а потом с памяти грузить.(или в строку весь файл)
ЗЫ: естественно лимит на размер файла есть.

практически все.

[casio23]

Сообщение от casio23

я вот сделал но не пойму почему progressbar не работает? файл загружается

код

 canceled := True;

   Memo_List.Clear;
    ProgressBar1.Max := GetFileSize(Put);
    ProgressBar1.Position:=0;

      AssignFile(BaseFile,Put);
      reset(BaseFile);
      c := 0; b := 0;


      while not eof(BaseFile) do
       begin
        inc(c);
        readln(BaseFile,s);
           b := b + length(s) + 2;

          if (c mod 1000) = 0 then
           begin
            ProgressBar1.Position := b;
            Application.ProcessMessages;
             if canceled then
               break;
       end;
           Memo_List.Lines.Add(s);
       end;
          CloseFile(BaseFile);

подскажите в чем ошибка

[casio23]

вопрос решен