Wertübergbae für einen Stringgrid

[marabu]

Hallo Technikus,

herzlich willkommen in der Delphi-PRAXiS.

Du hast beim Zugriff auf Cells den Spalten- und ZeileIndex vertauscht. Und die Berechnung solltest du vor der Ausgabe erledigen.

Delphi-Quellcode:

procedure TForm1.CalcButtonClick(Sender: TObject);
var
  i: integer; // Laufvariable
  dLeistung: double;
  aVolt, aAmpere: array [1..9] of double;
begin
  for i := 1 to 9 do begin
    aVolt[i] := StrToFloat(sgMesswerte.Cells[i, 1]);
    aAmpere[i] := StrToFloat(sgMesswerte.Cells[i, 2]);
  end;

  { Ausgabe der berechneten Leistung }
  for i := 1 to 9 do
    with sgErgebnisse do begin
      dLeistung := aVolt[i] * aAmpere[i];
      Cells[i, 0]:= FloatToStr(dLeistung);
    end;
  end;
end.

Grüße vom marabu