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