StringGrid чтение из одного файла нескольких таблиц и запись

[Senya23]

Помогите пожалуйста!

У меня задача обрабатывать последовательно множество таблиц из текстовых файлов в StringGrid. пользуюсь стандартными процедурами чтения и записи. Все работает. НО! Файлы легкие и получается большая нагрузка на жесткий диск и замедление всего процесса при последовательном чтении и записи множества легких файлов. Есть ли возможность считывать с диска файл в котором множество таблиц (например 100), последовательно обрабатывать их и затем разом записывать все 100 измененных таблиц в один же файл?

[Аватар]

В файле может быть что угодно, в том числе и множество таблиц. Ток прога должна уметь по информации в файле сама, или с помощью другой проги, находить нужную таблицу и читать её, ну и писать так, что бы позже опять разобраться. Это уже давным-давно реализовано и называется база данных. Можно и самому запрограммировать, с помощью тех же стандартных процедур чтения и записи (что это?)

[Senya23]

Вот я и прошу помощи как это можно реализовать на практике. Пока ничего не получается...

[Stilet]

Ну так а файлы как формируются?
Чем помочь если не знаешь все изюминки условий работы? Какого-то общего метода нет - в данной задаче в связи с отсутствием подробностей можно посоветовать все что угодно от использования СУБД до XML движков.

[Senya23]

Вот мои стандартные процедуры чтения из файла txt и записи

код:

procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
 var
   f:    TextFile;
   i, k: Integer;
 begin
   AssignFile(f, FileName);
   Rewrite(f);
   with StringGrid do
   begin
     // Write number of Columns/Rows
    Writeln(f, ColCount);
     Writeln(f, RowCount);
     // loop through cells
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
         Writeln(F, Cells[i, k]);
   end;
   CloseFile(F);
 end;

procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
 var
   f:          TextFile;
   iTmp, i, k: Integer;
   strTemp:    String;
 begin
   AssignFile(f, FileName);
   Reset(f);
   with StringGrid do
   begin
     // Get number of columns
    Readln(f, iTmp);
     ColCount := iTmp;
     // Get number of rows
    Readln(f, iTmp);
     RowCount := iTmp;
     // loop through cells & fill in values
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
       begin
         Readln(f, strTemp);
         Cells[i, k] := strTemp;
       end;
   end;
   CloseFile(f);
 end;

[Senya23]

Но тут читается из одного файла одна таблица и записывается в файл одна же таблица.

[Stilet]

Так хорошо, я правильно понимаю - каждый элемент с новой строки?
Может тогда стоит использовать TStringList? Он считывает сразу весь файл.

With TStrinGlist.Create do begin
 LoadFromFile(FileName);
 k:=0;
 ColCount:=Strings[n]; inc(n);
 RowCount:=Strings[n]; inc(n);
     for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
       begin
         Cells[i, k] := Strings[n]; inc(n);
       end;
   end;
 free;
end;

Собственно все изменения проводить в памяти а потом этим же классом сохранять?

И всетки я свой вопрос повторю: Откуда берутся файлы и как наполняются? Если это делает твоя программа, то почему не использовать Базы Данных?

[Senya23]

Сами файлы я сам создал. запустил программу, вручную заполнил все ячейки StringGrid и через процедуру сохранения записал 1 файл. Затем создал множество копий: 100000 штук. Теперь в программе ввожу новые данные (1 новый столбец) и запускаю. Там через цикл по ходу выполнения загружается таблица из файла, изменяется на основе новых данных и сохраняется в файл под тем же именем. В итоге 100000 легких файлов последовательно читается и записывается.

 for i:=1 to 100000 do
    begin

     Stat:= 'R:\TXT\' + IntToStr(i) + '.txt';
     loadStringGrid(StringGrid1,Stat);
     form1.predobr(StringGrid1,D,);
     SaveStringGrid(StringGrid1,Stat);
     ProgressBar1.Position:=i;
     Application.ProcessMessages;

    end ;    // конец выполнения расчетов!!!!!!!!

[northener]

Там через цикл по ходу выполнения загружается таблица из файла, изменяется на основе новых данных и сохраняется в файл под тем же именем.

И вся эта работа производится через визуальный компонент. Вот вам и тормоза.

[Senya23]

Главные тормоза именно последовательное чтение и запись множества файлов. Процессор загружен на 15%. А при использовании SSD диска скорость выполнения увеличивается втрое.

Вы простите если что не так, я просто новичок пока в Delphi. Но может есть простое решение...