[WithGod]

Извините плжалуйста мне нужно отфилтровать данные Excel-а на Delphi задача токая

в Excel-е

EEB н1 500
DEF н1 600
EEB н2 400
DEF н1 300

и мне нужно отфильтровать чтобы в резулбтате получился примерно так

н1 н2
EEB 500 400
DEF 900 0

заранее спосибо

[WithGod]

Я пробую отобразить в StringGrid но проблема в том что я не могу отфильтровать и отобразить на StringGrid2 помогите пожалуйста

[TOJluK]

Только я ничего не понял???
Чего и как надо фильтровать?

[WithGod]

Папример

DEF
н1
500+300
и получается
-----н1-----н2
DEF -900---0
EEB--500---400

[WithGod]

Я загрузил ексел файл в 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: Пользуемся тегами!