1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
|
procedure TForm1.Button2Click(Sender: TObject);
var i :integer;
j : integer ;
cal1,cal2,cal3,resul : double;
begin
For i:=1 to televe.RowCount-1 do
begin
for j:=5 to televe.ColCount-3 do
begin
if televe.Cells[j,i] = 'abs' then
begin
televe.Cells[9,i]:= 'abs';
televe.Cells[11,i] := 'abs';
end
else
if televe.Cells[j,i] <> 'abs' then
begin
cal1 := StrToFloat(televe.Cells[5,i]);
cal2 := StrToFloat(televe.Cells[6,i]);
cal3 := StrToFloat(televe.Cells[7,i]);
resul := cal1+cal2+cal3;
televe.Cells[9,i]:= Format('%2.2f', [resul]);
televe.Cells[11,i] := Format('%2.2f', [resul/3]);
televe.Cells[5,i] := Format('%2.2f', [cal1]);
televe.Cells[6,i] := Format('%2.2f', [cal2]);
televe.Cells[7,i] := Format('%2.2f', [cal3]);
end;
end;
end;
end; |
Partager