[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: Пользуемся тегами!