Cellen im Stringgrid zusammenrechnen

[SaFu]

ok

muss ich dann noch eine zweite schleife mit einbinden

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
Var i,x : integer;
begin
 for I := 0 to StringGrid1.RowCount - 1 do
  if StringGrid1.Cells[i,0] = 'Way' then
   if StringGrid1.Cells[x,0] = 'Switch'  then

      findStrings(StringGrid1.Cols[i],StringGrid1.Cols[x]);
end;

und die werte in der funktion weiter verarbeiten