[Electronic_Arts]

Пишу программу чтоб себе жизнь упростить...
...есть гору документов excel все они созданы с помощью какой то программы у всех одинаковые таблицы - мне нужно искать внутри таблицы нужное мне строку взять его параметр... и т.д.

у меня две проблемы возникли - из за того что в программе точнее на одной процедуре содержится много операторов for - приводит к зависанию программы

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70

begin files:=0; for lst := 0 to FileListBox1.Items.Count-1 do   begin   cleartable;   label3.Caption:='';   label4.Caption:='';   label6.Caption:='';   files:=files+1;   if Xls_To_StringGrid(StringGrid1, DirectoryListBox1.Directory+'\'+FileListBox1.Items[lst]) then //загрузка документов excel /////////////////////////////////////        s1:=DirectoryListBox1.Directory+'\'+FileListBox1.Items[lst]; //берем путь к файлу         len:=length(s1);                                   //удаляем с него ненужное           for i3 := 0 to Len do                            //оставляем только дату и название              begin                c_pos:=Pos('\', s1);                Delete(s1, 1, c_pos);                s2:=s1;                len:=length(s1);                c_pos:=Pos('_', s1);                Delete(s1, c_pos, len);                label3.Caption:=s1;                Delete(s2, 1, c_pos);                c_pos:=pos('.', s2);                Delete(s2, c_pos, len);                year:=copy(s2, 1, 4);                month:=copy(s2, 5, 2);                day:=copy(s2, 7, len);                label4.Caption:=year+'/'+month+'/'+day;                label6.Caption:=inttostr(StringGrid1.RowCount);               end; ///////////////////////////////////// x_vbp:=0; x_vap:=0; x_vnp:=0; for i:=1 to StringGrid1.RowCount-1 do begin  if (StringGrid1.Cells[4,i]='VNOP') or   (StringGrid1.Cells[4,i]='VNP') then   begin   x_vnp:=x_vnp+strtofloat(StringGrid1.Cells[9,i]);   end;    if (StringGrid1.Cells[4,i]='VBP') or   (StringGrid1.Cells[4,i]='VBOP') then   begin   x_vbp:=x_vbp+strtofloat(StringGrid1.Cells[9,i]);   end;    if (StringGrid1.Cells[4,i]='VAP') or   (StringGrid1.Cells[4,i]='VAOP') then   begin   x_vap:=x_vap+strtofloat(StringGrid1.Cells[9,i]);   end;   StringGrid2.Cells[0,files]:=label3.Caption;   StringGrid2.Cells[1,files]:='';//NAME   StringGrid2.Cells[2,files]:=FloatToStrF(x_vbp, ffFixed, 18, 3);   StringGrid2.Cells[3,files]:=FloatToStrF(x_vnp, ffFixed, 18, 3);   StringGrid2.Cells[4,files]:=FloatToStrF(x_vap, ffFixed, 18, 3);   stringGrid2.RowCount:=StringGrid2.RowCount+1; end;  end;   for i2 := 0 to StringGrid2.RowCount-1 do //удаляем пустые сроки с вроторой таблицы       begin        if StringGrid2.Cells[0,i2]='' then        begin          TDeleteGrid(StringGrid2).DeleteRow(i2);        end;       end; end;

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

и второй вопрос... можно ли внутри StringGrid искать не методом сравнения как я это сделал

Код:

1	StringGrid1.Cells[4,i]='VBP'

а по маске
допустим в таблице есть много строк все которые начинаются с VBP

Код:

1 2 3 4 5

VBP VBP intnl VBP extnl VBP outnl и. т.д.

искать их не методом сравнения полной имени а по маске VBP* ???

- если честно у нем есть одна идея - выбрать каждую строку отделить начальные три буквы и сравнивать с VBP - но это гора дополнительных операций


Что посоветуете???

[Kailon]

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

Код:

1	Application.ProcessMessages;

[Electronic_Arts]

Я так понял Application.ProcessMessages чередует выполнение кода? или как?

Создал дополнительный поток добавил туда

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

for i3 := 0 to Len do                            //оставляем только дату и название    begin      c_pos:=Pos('\', s1);      Delete(s1, 1, c_pos);      s2:=s1;      len:=length(s1);      c_pos:=Pos('_', s1);      Delete(s1, c_pos, len);      label3.Caption:=s1;      Delete(s2, 1, c_pos);      c_pos:=pos('.', s2);      Delete(s2, c_pos, len);      year:=copy(s2, 1, 4);      month:=copy(s2, 5, 2);      day:=copy(s2, 7, len);      label4.Caption:=year+'/'+month+'/'+day;      label6.Caption:=inttostr(StringGrid1.RowCount);     end;

[angvelem]

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

Я так понял Application.ProcessMessages чередует выполнение кода

Отдаёт кванты времени системе. Особенно полезно на длительных циклах, когда создаётся впечатление, что компьютер "повис".

[Страдалецъ]

И снова та-же ошибка, что была буквально пару дней назад. Цикл с удалением строк переверните. Обход строк надо делать с конца, а не с начала.

[Electronic_Arts]

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

Отдаёт кванты времени системе. Особенно полезно на длительных циклах, когда создаётся впечатление, что компьютер "повис".

Ты бы куда посоветовал прописать в моем коде
Application.ProcessMessages() ???

[Electronic_Arts]

Сообщение от Страдалецъ

И снова та-же ошибка, что была буквально пару дней назад. Цикл с удалением строк переверните. Обход строк надо делать с конца, а не с начала.

Да да да да - ты прав - зачем начать поиск с начала если там все и так и так забито...наоборот даже быстрее будет