0

Вот кусок кода, в котором вычисляется сумма на пересечениях строк и столбцов, как мне полученные значения сохранять сразу в файл?

procedure TForm1.MenuItem5Click(Sender: TObject);
var
  z,c,i,j: integer;
begin
  for j:=1 to RowCount-1 do begin
    for i:=1 to ColCount-1 do begin
      z := StrToInt(StringGrid1.cells[i,0]);
      c := StrToInt(StringGrid1.cells[0,j]);
      StringGrid1.cells[i,j] := IntToStr(z + c);
    end;
  end;
end;                 
3
  • Вот исходный код:
    – Banshee545
    Commented 9 дек. 2018 в 21:30
  • 1
    Для сохранения в текстовом виде - можно использовать TStringList
    – MBo
    Commented 10 дек. 2018 в 0:44
  • Посмотрите вот этот ответ. Commented 10 дек. 2018 в 9:05

0

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Посмотрите другие вопросы с метками или задайте свой вопрос.