|
#1
|
|||
|
|||
из Excel в Delphi
Извините плжалуйста мне нужно отфилтровать данные Excel-а на Delphi задача токая
в Excel-е EEB н1 500 DEF н1 600 EEB н2 400 DEF н1 300 и мне нужно отфильтровать чтобы в резулбтате получился примерно так н1 н2 EEB 500 400 DEF 900 0 заранее спосибо |
#2
|
|||
|
|||
Я пробую отобразить в StringGrid но проблема в том что я не могу отфильтровать и отобразить на StringGrid2 помогите пожалуйста
|
#3
|
||||
|
||||
Только я ничего не понял???
Чего и как надо фильтровать? |
#4
|
|||
|
|||
Папример
DEF н1 500+300 и получается -----н1-----н2 DEF -900---0 EEB--500---400 |
#5
|
|||
|
|||
Я загрузил ексел файл в StringGrid и теперь не могу отсортировать
его пример таблицы EEB--h1--200 EEB--h2--300 DEE--h1--300 DEE--h1--100 В StringGrid2 должно получится так -----h1---h2 EEB-200--300 DEE-400--0 код этого бутона для сор(Знаю каш я уже три для с ним вожусь и ) Здесь в DEE h1+h1=400 а h2 путо потому что в таблице его нет код этого бутона для сортировки Код:
var i,p,i2,p2, a, b:integer; Text,Text2,Text3:string; zn, zn2,zn3 :boolean; begin StringGrid2.RowCount:=Stringgrid1.RowCount; StringGrid2.ColCount:=Stringgrid1.ColCount; for i:=0 to stringGrid1.RowCount-1 do begin zn:=true; zn2:=true; zn3:=true; a:=0; Text:=StringGrid1.Cells[0,i]; Label5.Caption:=StringGrid1.Cells[0,i]; label11.Caption:=Stringgrid1.Cells[2,i]; Text2:=StringGrid1.Cells[i,0]; for i2:=0 to stringGrid1.RowCount-1 do begin label13.Caption:=StringGrid2.Cells[2,i]; label6.Caption:=StringGrid2.Cells[0 ,i2]; if StringGrid2.Cells[0,i2]=StringGrid1.Cells[0,i] then begin zn:=false; end; if stringGrid1.Cells[1,i]='Стр1' then zn2:=false; if zn2=false then begin label11.Caption:=IntToStr(StrToInt(Label11.Caption)+StrToInt(Label13.Caption)) //label13.Caption:=IntToStr(StrToInt(Label14.Caption)+StrToInt(Label14.Caption)); end; if StringGrid1.Cells[1,i]='Стр2' then begin zn2:=false; end; end; if zn=true then begin StringGrid2.Cells[0,i]:=StringGrid1.Cells[0,i]; Stringgrid2.Cells[1,i]:=label11.Caption; //Stringgrid2.Cells[1,i]:=label12.Caption; Stringgrid2.Cells[2,i]:=label12.Caption; end; if zn2=true then begin //Stringgrid2.Cells[1,i]:=label12.Caption; end; end; end; Последний раз редактировалось Admin, 03.11.2009 в 10:39. |